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 /* 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 */ |
42 symbol_c *IN_param_value = &this->default_variable_name; |
43 symbol_c *IN_param_value = &this->default_variable_name; |
43 |
44 |
44 symbol_c *IN_type_symbol = param_data_type; |
45 symbol_c *IN_type_symbol = param_data_type; |
45 last_type_symbol = param_data_type; |
46 last_type_symbol = param_data_type; |
49 |
50 |
50 function_name = (symbol_c*)(new pragma_c("__move_")); |
51 function_name = (symbol_c*)(new pragma_c("__move_")); |
51 |
52 |
52 if (IN_type_symbol == NULL) |
53 if (IN_type_symbol == NULL) |
53 IN_type_symbol = last_type_symbol; |
54 IN_type_symbol = last_type_symbol; |
54 ADD_PARAM_LIST(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) |
55 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; |
56 function_type_prefix = return_type_symbol; |
57 function_type_prefix = return_type_symbol; |
57 function_type_suffix = IN_type_symbol; |
58 function_type_suffix = IN_type_symbol; |
58 break; |
59 break; |
59 |
60 |
72 case function_real_to_lint : |
73 case function_real_to_lint : |
73 { |
74 { |
74 symbol_c *last_type_symbol = NULL; |
75 symbol_c *last_type_symbol = NULL; |
75 |
76 |
76 { |
77 { |
|
78 identifier_c IN_param_name("IN"); |
77 /* 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 */ |
78 symbol_c *IN_param_value = &this->default_variable_name; |
80 symbol_c *IN_param_value = &this->default_variable_name; |
79 |
81 |
80 symbol_c *IN_type_symbol = param_data_type; |
82 symbol_c *IN_type_symbol = param_data_type; |
81 last_type_symbol = param_data_type; |
83 last_type_symbol = param_data_type; |
85 |
87 |
86 function_name = (symbol_c*)(new pragma_c("__move_")); |
88 function_name = (symbol_c*)(new pragma_c("__move_")); |
87 |
89 |
88 if (IN_type_symbol == NULL) |
90 if (IN_type_symbol == NULL) |
89 IN_type_symbol = last_type_symbol; |
91 IN_type_symbol = last_type_symbol; |
90 ADD_PARAM_LIST(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) |
91 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; |
92 function_type_prefix = return_type_symbol; |
94 function_type_prefix = return_type_symbol; |
93 function_type_suffix = IN_type_symbol; |
95 function_type_suffix = IN_type_symbol; |
94 break; |
96 break; |
95 |
97 |
108 case function_real_to_dint : |
110 case function_real_to_dint : |
109 { |
111 { |
110 symbol_c *last_type_symbol = NULL; |
112 symbol_c *last_type_symbol = NULL; |
111 |
113 |
112 { |
114 { |
|
115 identifier_c IN_param_name("IN"); |
113 /* 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 */ |
114 symbol_c *IN_param_value = &this->default_variable_name; |
117 symbol_c *IN_param_value = &this->default_variable_name; |
115 |
118 |
116 symbol_c *IN_type_symbol = param_data_type; |
119 symbol_c *IN_type_symbol = param_data_type; |
117 last_type_symbol = param_data_type; |
120 last_type_symbol = param_data_type; |
121 |
124 |
122 function_name = (symbol_c*)(new pragma_c("__move_")); |
125 function_name = (symbol_c*)(new pragma_c("__move_")); |
123 |
126 |
124 if (IN_type_symbol == NULL) |
127 if (IN_type_symbol == NULL) |
125 IN_type_symbol = last_type_symbol; |
128 IN_type_symbol = last_type_symbol; |
126 ADD_PARAM_LIST(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) |
127 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; |
128 function_type_prefix = return_type_symbol; |
131 function_type_prefix = return_type_symbol; |
129 function_type_suffix = IN_type_symbol; |
132 function_type_suffix = IN_type_symbol; |
130 break; |
133 break; |
131 |
134 |
144 case function_real_to_date : |
147 case function_real_to_date : |
145 { |
148 { |
146 symbol_c *last_type_symbol = NULL; |
149 symbol_c *last_type_symbol = NULL; |
147 |
150 |
148 { |
151 { |
|
152 identifier_c IN_param_name("IN"); |
149 /* 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 */ |
150 symbol_c *IN_param_value = &this->default_variable_name; |
154 symbol_c *IN_param_value = &this->default_variable_name; |
151 |
155 |
152 symbol_c *IN_type_symbol = param_data_type; |
156 symbol_c *IN_type_symbol = param_data_type; |
153 last_type_symbol = param_data_type; |
157 last_type_symbol = param_data_type; |
157 |
161 |
158 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
162 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
159 |
163 |
160 if (IN_type_symbol == NULL) |
164 if (IN_type_symbol == NULL) |
161 IN_type_symbol = last_type_symbol; |
165 IN_type_symbol = last_type_symbol; |
162 ADD_PARAM_LIST(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) |
163 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; |
164 function_type_prefix = return_type_symbol; |
168 function_type_prefix = return_type_symbol; |
165 break; |
169 break; |
166 |
170 |
167 } |
171 } |
179 case function_real_to_dword : |
183 case function_real_to_dword : |
180 { |
184 { |
181 symbol_c *last_type_symbol = NULL; |
185 symbol_c *last_type_symbol = NULL; |
182 |
186 |
183 { |
187 { |
|
188 identifier_c IN_param_name("IN"); |
184 /* 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 */ |
185 symbol_c *IN_param_value = &this->default_variable_name; |
190 symbol_c *IN_param_value = &this->default_variable_name; |
186 |
191 |
187 symbol_c *IN_type_symbol = param_data_type; |
192 symbol_c *IN_type_symbol = param_data_type; |
188 last_type_symbol = param_data_type; |
193 last_type_symbol = param_data_type; |
192 |
197 |
193 function_name = (symbol_c*)(new pragma_c("__move_")); |
198 function_name = (symbol_c*)(new pragma_c("__move_")); |
194 |
199 |
195 if (IN_type_symbol == NULL) |
200 if (IN_type_symbol == NULL) |
196 IN_type_symbol = last_type_symbol; |
201 IN_type_symbol = last_type_symbol; |
197 ADD_PARAM_LIST(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) |
198 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; |
199 function_type_prefix = return_type_symbol; |
204 function_type_prefix = return_type_symbol; |
200 function_type_suffix = IN_type_symbol; |
205 function_type_suffix = IN_type_symbol; |
201 break; |
206 break; |
202 |
207 |
215 case function_real_to_dt : |
220 case function_real_to_dt : |
216 { |
221 { |
217 symbol_c *last_type_symbol = NULL; |
222 symbol_c *last_type_symbol = NULL; |
218 |
223 |
219 { |
224 { |
|
225 identifier_c IN_param_name("IN"); |
220 /* 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 */ |
221 symbol_c *IN_param_value = &this->default_variable_name; |
227 symbol_c *IN_param_value = &this->default_variable_name; |
222 |
228 |
223 symbol_c *IN_type_symbol = param_data_type; |
229 symbol_c *IN_type_symbol = param_data_type; |
224 last_type_symbol = param_data_type; |
230 last_type_symbol = param_data_type; |
228 |
234 |
229 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
235 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
230 |
236 |
231 if (IN_type_symbol == NULL) |
237 if (IN_type_symbol == NULL) |
232 IN_type_symbol = last_type_symbol; |
238 IN_type_symbol = last_type_symbol; |
233 ADD_PARAM_LIST(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) |
234 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; |
235 function_type_prefix = return_type_symbol; |
241 function_type_prefix = return_type_symbol; |
236 break; |
242 break; |
237 |
243 |
238 } |
244 } |
250 case function_real_to_tod : |
256 case function_real_to_tod : |
251 { |
257 { |
252 symbol_c *last_type_symbol = NULL; |
258 symbol_c *last_type_symbol = NULL; |
253 |
259 |
254 { |
260 { |
|
261 identifier_c IN_param_name("IN"); |
255 /* 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 */ |
256 symbol_c *IN_param_value = &this->default_variable_name; |
263 symbol_c *IN_param_value = &this->default_variable_name; |
257 |
264 |
258 symbol_c *IN_type_symbol = param_data_type; |
265 symbol_c *IN_type_symbol = param_data_type; |
259 last_type_symbol = param_data_type; |
266 last_type_symbol = param_data_type; |
263 |
270 |
264 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
271 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
265 |
272 |
266 if (IN_type_symbol == NULL) |
273 if (IN_type_symbol == NULL) |
267 IN_type_symbol = last_type_symbol; |
274 IN_type_symbol = last_type_symbol; |
268 ADD_PARAM_LIST(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) |
269 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; |
270 function_type_prefix = return_type_symbol; |
277 function_type_prefix = return_type_symbol; |
271 break; |
278 break; |
272 |
279 |
273 } |
280 } |
285 case function_real_to_udint : |
292 case function_real_to_udint : |
286 { |
293 { |
287 symbol_c *last_type_symbol = NULL; |
294 symbol_c *last_type_symbol = NULL; |
288 |
295 |
289 { |
296 { |
|
297 identifier_c IN_param_name("IN"); |
290 /* 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 */ |
291 symbol_c *IN_param_value = &this->default_variable_name; |
299 symbol_c *IN_param_value = &this->default_variable_name; |
292 |
300 |
293 symbol_c *IN_type_symbol = param_data_type; |
301 symbol_c *IN_type_symbol = param_data_type; |
294 last_type_symbol = param_data_type; |
302 last_type_symbol = param_data_type; |
298 |
306 |
299 function_name = (symbol_c*)(new pragma_c("__move_")); |
307 function_name = (symbol_c*)(new pragma_c("__move_")); |
300 |
308 |
301 if (IN_type_symbol == NULL) |
309 if (IN_type_symbol == NULL) |
302 IN_type_symbol = last_type_symbol; |
310 IN_type_symbol = last_type_symbol; |
303 ADD_PARAM_LIST(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) |
304 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; |
305 function_type_prefix = return_type_symbol; |
313 function_type_prefix = return_type_symbol; |
306 function_type_suffix = IN_type_symbol; |
314 function_type_suffix = IN_type_symbol; |
307 break; |
315 break; |
308 |
316 |
321 case function_real_to_word : |
329 case function_real_to_word : |
322 { |
330 { |
323 symbol_c *last_type_symbol = NULL; |
331 symbol_c *last_type_symbol = NULL; |
324 |
332 |
325 { |
333 { |
|
334 identifier_c IN_param_name("IN"); |
326 /* 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 */ |
327 symbol_c *IN_param_value = &this->default_variable_name; |
336 symbol_c *IN_param_value = &this->default_variable_name; |
328 |
337 |
329 symbol_c *IN_type_symbol = param_data_type; |
338 symbol_c *IN_type_symbol = param_data_type; |
330 last_type_symbol = param_data_type; |
339 last_type_symbol = param_data_type; |
334 |
343 |
335 function_name = (symbol_c*)(new pragma_c("__move_")); |
344 function_name = (symbol_c*)(new pragma_c("__move_")); |
336 |
345 |
337 if (IN_type_symbol == NULL) |
346 if (IN_type_symbol == NULL) |
338 IN_type_symbol = last_type_symbol; |
347 IN_type_symbol = last_type_symbol; |
339 ADD_PARAM_LIST(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) |
340 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; |
341 function_type_prefix = return_type_symbol; |
350 function_type_prefix = return_type_symbol; |
342 function_type_suffix = IN_type_symbol; |
351 function_type_suffix = IN_type_symbol; |
343 break; |
352 break; |
344 |
353 |
357 case function_real_to_string : |
366 case function_real_to_string : |
358 { |
367 { |
359 symbol_c *last_type_symbol = NULL; |
368 symbol_c *last_type_symbol = NULL; |
360 |
369 |
361 { |
370 { |
|
371 identifier_c IN_param_name("IN"); |
362 /* 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 */ |
363 symbol_c *IN_param_value = &this->default_variable_name; |
373 symbol_c *IN_param_value = &this->default_variable_name; |
364 |
374 |
365 symbol_c *IN_type_symbol = param_data_type; |
375 symbol_c *IN_type_symbol = param_data_type; |
366 last_type_symbol = param_data_type; |
376 last_type_symbol = param_data_type; |
370 |
380 |
371 function_name = (symbol_c*)(new pragma_c("__real_to_string")); |
381 function_name = (symbol_c*)(new pragma_c("__real_to_string")); |
372 |
382 |
373 if (IN_type_symbol == NULL) |
383 if (IN_type_symbol == NULL) |
374 IN_type_symbol = last_type_symbol; |
384 IN_type_symbol = last_type_symbol; |
375 ADD_PARAM_LIST(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) |
376 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; |
377 function_type_prefix = return_type_symbol; |
387 function_type_prefix = return_type_symbol; |
378 break; |
388 break; |
379 |
389 |
380 } |
390 } |
392 case function_real_to_lword : |
402 case function_real_to_lword : |
393 { |
403 { |
394 symbol_c *last_type_symbol = NULL; |
404 symbol_c *last_type_symbol = NULL; |
395 |
405 |
396 { |
406 { |
|
407 identifier_c IN_param_name("IN"); |
397 /* 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 */ |
398 symbol_c *IN_param_value = &this->default_variable_name; |
409 symbol_c *IN_param_value = &this->default_variable_name; |
399 |
410 |
400 symbol_c *IN_type_symbol = param_data_type; |
411 symbol_c *IN_type_symbol = param_data_type; |
401 last_type_symbol = param_data_type; |
412 last_type_symbol = param_data_type; |
405 |
416 |
406 function_name = (symbol_c*)(new pragma_c("__move_")); |
417 function_name = (symbol_c*)(new pragma_c("__move_")); |
407 |
418 |
408 if (IN_type_symbol == NULL) |
419 if (IN_type_symbol == NULL) |
409 IN_type_symbol = last_type_symbol; |
420 IN_type_symbol = last_type_symbol; |
410 ADD_PARAM_LIST(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) |
411 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; |
412 function_type_prefix = return_type_symbol; |
423 function_type_prefix = return_type_symbol; |
413 function_type_suffix = IN_type_symbol; |
424 function_type_suffix = IN_type_symbol; |
414 break; |
425 break; |
415 |
426 |
428 case function_real_to_uint : |
439 case function_real_to_uint : |
429 { |
440 { |
430 symbol_c *last_type_symbol = NULL; |
441 symbol_c *last_type_symbol = NULL; |
431 |
442 |
432 { |
443 { |
|
444 identifier_c IN_param_name("IN"); |
433 /* 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 */ |
434 symbol_c *IN_param_value = &this->default_variable_name; |
446 symbol_c *IN_param_value = &this->default_variable_name; |
435 |
447 |
436 symbol_c *IN_type_symbol = param_data_type; |
448 symbol_c *IN_type_symbol = param_data_type; |
437 last_type_symbol = param_data_type; |
449 last_type_symbol = param_data_type; |
441 |
453 |
442 function_name = (symbol_c*)(new pragma_c("__move_")); |
454 function_name = (symbol_c*)(new pragma_c("__move_")); |
443 |
455 |
444 if (IN_type_symbol == NULL) |
456 if (IN_type_symbol == NULL) |
445 IN_type_symbol = last_type_symbol; |
457 IN_type_symbol = last_type_symbol; |
446 ADD_PARAM_LIST(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) |
447 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; |
448 function_type_prefix = return_type_symbol; |
460 function_type_prefix = return_type_symbol; |
449 function_type_suffix = IN_type_symbol; |
461 function_type_suffix = IN_type_symbol; |
450 break; |
462 break; |
451 |
463 |
464 case function_real_to_lreal : |
476 case function_real_to_lreal : |
465 { |
477 { |
466 symbol_c *last_type_symbol = NULL; |
478 symbol_c *last_type_symbol = NULL; |
467 |
479 |
468 { |
480 { |
|
481 identifier_c IN_param_name("IN"); |
469 /* 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 */ |
470 symbol_c *IN_param_value = &this->default_variable_name; |
483 symbol_c *IN_param_value = &this->default_variable_name; |
471 |
484 |
472 symbol_c *IN_type_symbol = param_data_type; |
485 symbol_c *IN_type_symbol = param_data_type; |
473 last_type_symbol = param_data_type; |
486 last_type_symbol = param_data_type; |
477 |
490 |
478 function_name = (symbol_c*)(new pragma_c("__move_")); |
491 function_name = (symbol_c*)(new pragma_c("__move_")); |
479 |
492 |
480 if (IN_type_symbol == NULL) |
493 if (IN_type_symbol == NULL) |
481 IN_type_symbol = last_type_symbol; |
494 IN_type_symbol = last_type_symbol; |
482 ADD_PARAM_LIST(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) |
483 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; |
484 function_type_prefix = return_type_symbol; |
497 function_type_prefix = return_type_symbol; |
485 function_type_suffix = IN_type_symbol; |
498 function_type_suffix = IN_type_symbol; |
486 break; |
499 break; |
487 |
500 |
500 case function_real_to_byte : |
513 case function_real_to_byte : |
501 { |
514 { |
502 symbol_c *last_type_symbol = NULL; |
515 symbol_c *last_type_symbol = NULL; |
503 |
516 |
504 { |
517 { |
|
518 identifier_c IN_param_name("IN"); |
505 /* 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 */ |
506 symbol_c *IN_param_value = &this->default_variable_name; |
520 symbol_c *IN_param_value = &this->default_variable_name; |
507 |
521 |
508 symbol_c *IN_type_symbol = param_data_type; |
522 symbol_c *IN_type_symbol = param_data_type; |
509 last_type_symbol = param_data_type; |
523 last_type_symbol = param_data_type; |
513 |
527 |
514 function_name = (symbol_c*)(new pragma_c("__move_")); |
528 function_name = (symbol_c*)(new pragma_c("__move_")); |
515 |
529 |
516 if (IN_type_symbol == NULL) |
530 if (IN_type_symbol == NULL) |
517 IN_type_symbol = last_type_symbol; |
531 IN_type_symbol = last_type_symbol; |
518 ADD_PARAM_LIST(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) |
519 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; |
520 function_type_prefix = return_type_symbol; |
534 function_type_prefix = return_type_symbol; |
521 function_type_suffix = IN_type_symbol; |
535 function_type_suffix = IN_type_symbol; |
522 break; |
536 break; |
523 |
537 |
536 case function_real_to_usint : |
550 case function_real_to_usint : |
537 { |
551 { |
538 symbol_c *last_type_symbol = NULL; |
552 symbol_c *last_type_symbol = NULL; |
539 |
553 |
540 { |
554 { |
|
555 identifier_c IN_param_name("IN"); |
541 /* 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 */ |
542 symbol_c *IN_param_value = &this->default_variable_name; |
557 symbol_c *IN_param_value = &this->default_variable_name; |
543 |
558 |
544 symbol_c *IN_type_symbol = param_data_type; |
559 symbol_c *IN_type_symbol = param_data_type; |
545 last_type_symbol = param_data_type; |
560 last_type_symbol = param_data_type; |
549 |
564 |
550 function_name = (symbol_c*)(new pragma_c("__move_")); |
565 function_name = (symbol_c*)(new pragma_c("__move_")); |
551 |
566 |
552 if (IN_type_symbol == NULL) |
567 if (IN_type_symbol == NULL) |
553 IN_type_symbol = last_type_symbol; |
568 IN_type_symbol = last_type_symbol; |
554 ADD_PARAM_LIST(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) |
555 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; |
556 function_type_prefix = return_type_symbol; |
571 function_type_prefix = return_type_symbol; |
557 function_type_suffix = IN_type_symbol; |
572 function_type_suffix = IN_type_symbol; |
558 break; |
573 break; |
559 |
574 |
572 case function_real_to_ulint : |
587 case function_real_to_ulint : |
573 { |
588 { |
574 symbol_c *last_type_symbol = NULL; |
589 symbol_c *last_type_symbol = NULL; |
575 |
590 |
576 { |
591 { |
|
592 identifier_c IN_param_name("IN"); |
577 /* 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 */ |
578 symbol_c *IN_param_value = &this->default_variable_name; |
594 symbol_c *IN_param_value = &this->default_variable_name; |
579 |
595 |
580 symbol_c *IN_type_symbol = param_data_type; |
596 symbol_c *IN_type_symbol = param_data_type; |
581 last_type_symbol = param_data_type; |
597 last_type_symbol = param_data_type; |
585 |
601 |
586 function_name = (symbol_c*)(new pragma_c("__move_")); |
602 function_name = (symbol_c*)(new pragma_c("__move_")); |
587 |
603 |
588 if (IN_type_symbol == NULL) |
604 if (IN_type_symbol == NULL) |
589 IN_type_symbol = last_type_symbol; |
605 IN_type_symbol = last_type_symbol; |
590 ADD_PARAM_LIST(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) |
591 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; |
592 function_type_prefix = return_type_symbol; |
608 function_type_prefix = return_type_symbol; |
593 function_type_suffix = IN_type_symbol; |
609 function_type_suffix = IN_type_symbol; |
594 break; |
610 break; |
595 |
611 |
608 case function_real_to_bool : |
624 case function_real_to_bool : |
609 { |
625 { |
610 symbol_c *last_type_symbol = NULL; |
626 symbol_c *last_type_symbol = NULL; |
611 |
627 |
612 { |
628 { |
|
629 identifier_c IN_param_name("IN"); |
613 /* 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 */ |
614 symbol_c *IN_param_value = &this->default_variable_name; |
631 symbol_c *IN_param_value = &this->default_variable_name; |
615 |
632 |
616 symbol_c *IN_type_symbol = param_data_type; |
633 symbol_c *IN_type_symbol = param_data_type; |
617 last_type_symbol = param_data_type; |
634 last_type_symbol = param_data_type; |
621 |
638 |
622 function_name = (symbol_c*)(new pragma_c("__move_")); |
639 function_name = (symbol_c*)(new pragma_c("__move_")); |
623 |
640 |
624 if (IN_type_symbol == NULL) |
641 if (IN_type_symbol == NULL) |
625 IN_type_symbol = last_type_symbol; |
642 IN_type_symbol = last_type_symbol; |
626 ADD_PARAM_LIST(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) |
627 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; |
628 function_type_prefix = return_type_symbol; |
645 function_type_prefix = return_type_symbol; |
629 function_type_suffix = IN_type_symbol; |
646 function_type_suffix = IN_type_symbol; |
630 break; |
647 break; |
631 |
648 |
644 case function_real_to_time : |
661 case function_real_to_time : |
645 { |
662 { |
646 symbol_c *last_type_symbol = NULL; |
663 symbol_c *last_type_symbol = NULL; |
647 |
664 |
648 { |
665 { |
|
666 identifier_c IN_param_name("IN"); |
649 /* 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 */ |
650 symbol_c *IN_param_value = &this->default_variable_name; |
668 symbol_c *IN_param_value = &this->default_variable_name; |
651 |
669 |
652 symbol_c *IN_type_symbol = param_data_type; |
670 symbol_c *IN_type_symbol = param_data_type; |
653 last_type_symbol = param_data_type; |
671 last_type_symbol = param_data_type; |
657 |
675 |
658 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
676 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
659 |
677 |
660 if (IN_type_symbol == NULL) |
678 if (IN_type_symbol == NULL) |
661 IN_type_symbol = last_type_symbol; |
679 IN_type_symbol = last_type_symbol; |
662 ADD_PARAM_LIST(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) |
663 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; |
664 function_type_prefix = return_type_symbol; |
682 function_type_prefix = return_type_symbol; |
665 break; |
683 break; |
666 |
684 |
667 } |
685 } |
679 case function_real_to_int : |
697 case function_real_to_int : |
680 { |
698 { |
681 symbol_c *last_type_symbol = NULL; |
699 symbol_c *last_type_symbol = NULL; |
682 |
700 |
683 { |
701 { |
|
702 identifier_c IN_param_name("IN"); |
684 /* 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 */ |
685 symbol_c *IN_param_value = &this->default_variable_name; |
704 symbol_c *IN_param_value = &this->default_variable_name; |
686 |
705 |
687 symbol_c *IN_type_symbol = param_data_type; |
706 symbol_c *IN_type_symbol = param_data_type; |
688 last_type_symbol = param_data_type; |
707 last_type_symbol = param_data_type; |
692 |
711 |
693 function_name = (symbol_c*)(new pragma_c("__move_")); |
712 function_name = (symbol_c*)(new pragma_c("__move_")); |
694 |
713 |
695 if (IN_type_symbol == NULL) |
714 if (IN_type_symbol == NULL) |
696 IN_type_symbol = last_type_symbol; |
715 IN_type_symbol = last_type_symbol; |
697 ADD_PARAM_LIST(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) |
698 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; |
699 function_type_prefix = return_type_symbol; |
718 function_type_prefix = return_type_symbol; |
700 function_type_suffix = IN_type_symbol; |
719 function_type_suffix = IN_type_symbol; |
701 break; |
720 break; |
702 |
721 |
715 case function_sint_to_real : |
734 case function_sint_to_real : |
716 { |
735 { |
717 symbol_c *last_type_symbol = NULL; |
736 symbol_c *last_type_symbol = NULL; |
718 |
737 |
719 { |
738 { |
|
739 identifier_c IN_param_name("IN"); |
720 /* 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 */ |
721 symbol_c *IN_param_value = &this->default_variable_name; |
741 symbol_c *IN_param_value = &this->default_variable_name; |
722 |
742 |
723 symbol_c *IN_type_symbol = param_data_type; |
743 symbol_c *IN_type_symbol = param_data_type; |
724 last_type_symbol = param_data_type; |
744 last_type_symbol = param_data_type; |
728 |
748 |
729 function_name = (symbol_c*)(new pragma_c("__move_")); |
749 function_name = (symbol_c*)(new pragma_c("__move_")); |
730 |
750 |
731 if (IN_type_symbol == NULL) |
751 if (IN_type_symbol == NULL) |
732 IN_type_symbol = last_type_symbol; |
752 IN_type_symbol = last_type_symbol; |
733 ADD_PARAM_LIST(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) |
734 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; |
735 function_type_prefix = return_type_symbol; |
755 function_type_prefix = return_type_symbol; |
736 function_type_suffix = IN_type_symbol; |
756 function_type_suffix = IN_type_symbol; |
737 break; |
757 break; |
738 |
758 |
751 case function_sint_to_lint : |
771 case function_sint_to_lint : |
752 { |
772 { |
753 symbol_c *last_type_symbol = NULL; |
773 symbol_c *last_type_symbol = NULL; |
754 |
774 |
755 { |
775 { |
|
776 identifier_c IN_param_name("IN"); |
756 /* 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 */ |
757 symbol_c *IN_param_value = &this->default_variable_name; |
778 symbol_c *IN_param_value = &this->default_variable_name; |
758 |
779 |
759 symbol_c *IN_type_symbol = param_data_type; |
780 symbol_c *IN_type_symbol = param_data_type; |
760 last_type_symbol = param_data_type; |
781 last_type_symbol = param_data_type; |
764 |
785 |
765 function_name = (symbol_c*)(new pragma_c("__move_")); |
786 function_name = (symbol_c*)(new pragma_c("__move_")); |
766 |
787 |
767 if (IN_type_symbol == NULL) |
788 if (IN_type_symbol == NULL) |
768 IN_type_symbol = last_type_symbol; |
789 IN_type_symbol = last_type_symbol; |
769 ADD_PARAM_LIST(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) |
770 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; |
771 function_type_prefix = return_type_symbol; |
792 function_type_prefix = return_type_symbol; |
772 function_type_suffix = IN_type_symbol; |
793 function_type_suffix = IN_type_symbol; |
773 break; |
794 break; |
774 |
795 |
787 case function_sint_to_dint : |
808 case function_sint_to_dint : |
788 { |
809 { |
789 symbol_c *last_type_symbol = NULL; |
810 symbol_c *last_type_symbol = NULL; |
790 |
811 |
791 { |
812 { |
|
813 identifier_c IN_param_name("IN"); |
792 /* 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 */ |
793 symbol_c *IN_param_value = &this->default_variable_name; |
815 symbol_c *IN_param_value = &this->default_variable_name; |
794 |
816 |
795 symbol_c *IN_type_symbol = param_data_type; |
817 symbol_c *IN_type_symbol = param_data_type; |
796 last_type_symbol = param_data_type; |
818 last_type_symbol = param_data_type; |
800 |
822 |
801 function_name = (symbol_c*)(new pragma_c("__move_")); |
823 function_name = (symbol_c*)(new pragma_c("__move_")); |
802 |
824 |
803 if (IN_type_symbol == NULL) |
825 if (IN_type_symbol == NULL) |
804 IN_type_symbol = last_type_symbol; |
826 IN_type_symbol = last_type_symbol; |
805 ADD_PARAM_LIST(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) |
806 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; |
807 function_type_prefix = return_type_symbol; |
829 function_type_prefix = return_type_symbol; |
808 function_type_suffix = IN_type_symbol; |
830 function_type_suffix = IN_type_symbol; |
809 break; |
831 break; |
810 |
832 |
823 case function_sint_to_date : |
845 case function_sint_to_date : |
824 { |
846 { |
825 symbol_c *last_type_symbol = NULL; |
847 symbol_c *last_type_symbol = NULL; |
826 |
848 |
827 { |
849 { |
|
850 identifier_c IN_param_name("IN"); |
828 /* 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 */ |
829 symbol_c *IN_param_value = &this->default_variable_name; |
852 symbol_c *IN_param_value = &this->default_variable_name; |
830 |
853 |
831 symbol_c *IN_type_symbol = param_data_type; |
854 symbol_c *IN_type_symbol = param_data_type; |
832 last_type_symbol = param_data_type; |
855 last_type_symbol = param_data_type; |
836 |
859 |
837 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
860 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
838 |
861 |
839 if (IN_type_symbol == NULL) |
862 if (IN_type_symbol == NULL) |
840 IN_type_symbol = last_type_symbol; |
863 IN_type_symbol = last_type_symbol; |
841 ADD_PARAM_LIST(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) |
842 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; |
843 function_type_prefix = return_type_symbol; |
866 function_type_prefix = return_type_symbol; |
844 break; |
867 break; |
845 |
868 |
846 } |
869 } |
858 case function_sint_to_dword : |
881 case function_sint_to_dword : |
859 { |
882 { |
860 symbol_c *last_type_symbol = NULL; |
883 symbol_c *last_type_symbol = NULL; |
861 |
884 |
862 { |
885 { |
|
886 identifier_c IN_param_name("IN"); |
863 /* 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 */ |
864 symbol_c *IN_param_value = &this->default_variable_name; |
888 symbol_c *IN_param_value = &this->default_variable_name; |
865 |
889 |
866 symbol_c *IN_type_symbol = param_data_type; |
890 symbol_c *IN_type_symbol = param_data_type; |
867 last_type_symbol = param_data_type; |
891 last_type_symbol = param_data_type; |
871 |
895 |
872 function_name = (symbol_c*)(new pragma_c("__move_")); |
896 function_name = (symbol_c*)(new pragma_c("__move_")); |
873 |
897 |
874 if (IN_type_symbol == NULL) |
898 if (IN_type_symbol == NULL) |
875 IN_type_symbol = last_type_symbol; |
899 IN_type_symbol = last_type_symbol; |
876 ADD_PARAM_LIST(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) |
877 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; |
878 function_type_prefix = return_type_symbol; |
902 function_type_prefix = return_type_symbol; |
879 function_type_suffix = IN_type_symbol; |
903 function_type_suffix = IN_type_symbol; |
880 break; |
904 break; |
881 |
905 |
894 case function_sint_to_dt : |
918 case function_sint_to_dt : |
895 { |
919 { |
896 symbol_c *last_type_symbol = NULL; |
920 symbol_c *last_type_symbol = NULL; |
897 |
921 |
898 { |
922 { |
|
923 identifier_c IN_param_name("IN"); |
899 /* 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 */ |
900 symbol_c *IN_param_value = &this->default_variable_name; |
925 symbol_c *IN_param_value = &this->default_variable_name; |
901 |
926 |
902 symbol_c *IN_type_symbol = param_data_type; |
927 symbol_c *IN_type_symbol = param_data_type; |
903 last_type_symbol = param_data_type; |
928 last_type_symbol = param_data_type; |
907 |
932 |
908 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
933 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
909 |
934 |
910 if (IN_type_symbol == NULL) |
935 if (IN_type_symbol == NULL) |
911 IN_type_symbol = last_type_symbol; |
936 IN_type_symbol = last_type_symbol; |
912 ADD_PARAM_LIST(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) |
913 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; |
914 function_type_prefix = return_type_symbol; |
939 function_type_prefix = return_type_symbol; |
915 break; |
940 break; |
916 |
941 |
917 } |
942 } |
929 case function_sint_to_tod : |
954 case function_sint_to_tod : |
930 { |
955 { |
931 symbol_c *last_type_symbol = NULL; |
956 symbol_c *last_type_symbol = NULL; |
932 |
957 |
933 { |
958 { |
|
959 identifier_c IN_param_name("IN"); |
934 /* 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 */ |
935 symbol_c *IN_param_value = &this->default_variable_name; |
961 symbol_c *IN_param_value = &this->default_variable_name; |
936 |
962 |
937 symbol_c *IN_type_symbol = param_data_type; |
963 symbol_c *IN_type_symbol = param_data_type; |
938 last_type_symbol = param_data_type; |
964 last_type_symbol = param_data_type; |
942 |
968 |
943 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
969 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
944 |
970 |
945 if (IN_type_symbol == NULL) |
971 if (IN_type_symbol == NULL) |
946 IN_type_symbol = last_type_symbol; |
972 IN_type_symbol = last_type_symbol; |
947 ADD_PARAM_LIST(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) |
948 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; |
949 function_type_prefix = return_type_symbol; |
975 function_type_prefix = return_type_symbol; |
950 break; |
976 break; |
951 |
977 |
952 } |
978 } |
964 case function_sint_to_udint : |
990 case function_sint_to_udint : |
965 { |
991 { |
966 symbol_c *last_type_symbol = NULL; |
992 symbol_c *last_type_symbol = NULL; |
967 |
993 |
968 { |
994 { |
|
995 identifier_c IN_param_name("IN"); |
969 /* 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 */ |
970 symbol_c *IN_param_value = &this->default_variable_name; |
997 symbol_c *IN_param_value = &this->default_variable_name; |
971 |
998 |
972 symbol_c *IN_type_symbol = param_data_type; |
999 symbol_c *IN_type_symbol = param_data_type; |
973 last_type_symbol = param_data_type; |
1000 last_type_symbol = param_data_type; |
977 |
1004 |
978 function_name = (symbol_c*)(new pragma_c("__move_")); |
1005 function_name = (symbol_c*)(new pragma_c("__move_")); |
979 |
1006 |
980 if (IN_type_symbol == NULL) |
1007 if (IN_type_symbol == NULL) |
981 IN_type_symbol = last_type_symbol; |
1008 IN_type_symbol = last_type_symbol; |
982 ADD_PARAM_LIST(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) |
983 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; |
984 function_type_prefix = return_type_symbol; |
1011 function_type_prefix = return_type_symbol; |
985 function_type_suffix = IN_type_symbol; |
1012 function_type_suffix = IN_type_symbol; |
986 break; |
1013 break; |
987 |
1014 |
1000 case function_sint_to_word : |
1027 case function_sint_to_word : |
1001 { |
1028 { |
1002 symbol_c *last_type_symbol = NULL; |
1029 symbol_c *last_type_symbol = NULL; |
1003 |
1030 |
1004 { |
1031 { |
|
1032 identifier_c IN_param_name("IN"); |
1005 /* 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 */ |
1006 symbol_c *IN_param_value = &this->default_variable_name; |
1034 symbol_c *IN_param_value = &this->default_variable_name; |
1007 |
1035 |
1008 symbol_c *IN_type_symbol = param_data_type; |
1036 symbol_c *IN_type_symbol = param_data_type; |
1009 last_type_symbol = param_data_type; |
1037 last_type_symbol = param_data_type; |
1013 |
1041 |
1014 function_name = (symbol_c*)(new pragma_c("__move_")); |
1042 function_name = (symbol_c*)(new pragma_c("__move_")); |
1015 |
1043 |
1016 if (IN_type_symbol == NULL) |
1044 if (IN_type_symbol == NULL) |
1017 IN_type_symbol = last_type_symbol; |
1045 IN_type_symbol = last_type_symbol; |
1018 ADD_PARAM_LIST(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) |
1019 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; |
1020 function_type_prefix = return_type_symbol; |
1048 function_type_prefix = return_type_symbol; |
1021 function_type_suffix = IN_type_symbol; |
1049 function_type_suffix = IN_type_symbol; |
1022 break; |
1050 break; |
1023 |
1051 |
1036 case function_sint_to_string : |
1064 case function_sint_to_string : |
1037 { |
1065 { |
1038 symbol_c *last_type_symbol = NULL; |
1066 symbol_c *last_type_symbol = NULL; |
1039 |
1067 |
1040 { |
1068 { |
|
1069 identifier_c IN_param_name("IN"); |
1041 /* 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 */ |
1042 symbol_c *IN_param_value = &this->default_variable_name; |
1071 symbol_c *IN_param_value = &this->default_variable_name; |
1043 |
1072 |
1044 symbol_c *IN_type_symbol = param_data_type; |
1073 symbol_c *IN_type_symbol = param_data_type; |
1045 last_type_symbol = param_data_type; |
1074 last_type_symbol = param_data_type; |
1049 |
1078 |
1050 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
1079 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
1051 |
1080 |
1052 if (IN_type_symbol == NULL) |
1081 if (IN_type_symbol == NULL) |
1053 IN_type_symbol = last_type_symbol; |
1082 IN_type_symbol = last_type_symbol; |
1054 ADD_PARAM_LIST(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) |
1055 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; |
1056 function_type_prefix = return_type_symbol; |
1085 function_type_prefix = return_type_symbol; |
1057 break; |
1086 break; |
1058 |
1087 |
1059 } |
1088 } |
1071 case function_sint_to_lword : |
1100 case function_sint_to_lword : |
1072 { |
1101 { |
1073 symbol_c *last_type_symbol = NULL; |
1102 symbol_c *last_type_symbol = NULL; |
1074 |
1103 |
1075 { |
1104 { |
|
1105 identifier_c IN_param_name("IN"); |
1076 /* 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 */ |
1077 symbol_c *IN_param_value = &this->default_variable_name; |
1107 symbol_c *IN_param_value = &this->default_variable_name; |
1078 |
1108 |
1079 symbol_c *IN_type_symbol = param_data_type; |
1109 symbol_c *IN_type_symbol = param_data_type; |
1080 last_type_symbol = param_data_type; |
1110 last_type_symbol = param_data_type; |
1084 |
1114 |
1085 function_name = (symbol_c*)(new pragma_c("__move_")); |
1115 function_name = (symbol_c*)(new pragma_c("__move_")); |
1086 |
1116 |
1087 if (IN_type_symbol == NULL) |
1117 if (IN_type_symbol == NULL) |
1088 IN_type_symbol = last_type_symbol; |
1118 IN_type_symbol = last_type_symbol; |
1089 ADD_PARAM_LIST(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) |
1090 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; |
1091 function_type_prefix = return_type_symbol; |
1121 function_type_prefix = return_type_symbol; |
1092 function_type_suffix = IN_type_symbol; |
1122 function_type_suffix = IN_type_symbol; |
1093 break; |
1123 break; |
1094 |
1124 |
1107 case function_sint_to_uint : |
1137 case function_sint_to_uint : |
1108 { |
1138 { |
1109 symbol_c *last_type_symbol = NULL; |
1139 symbol_c *last_type_symbol = NULL; |
1110 |
1140 |
1111 { |
1141 { |
|
1142 identifier_c IN_param_name("IN"); |
1112 /* 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 */ |
1113 symbol_c *IN_param_value = &this->default_variable_name; |
1144 symbol_c *IN_param_value = &this->default_variable_name; |
1114 |
1145 |
1115 symbol_c *IN_type_symbol = param_data_type; |
1146 symbol_c *IN_type_symbol = param_data_type; |
1116 last_type_symbol = param_data_type; |
1147 last_type_symbol = param_data_type; |
1120 |
1151 |
1121 function_name = (symbol_c*)(new pragma_c("__move_")); |
1152 function_name = (symbol_c*)(new pragma_c("__move_")); |
1122 |
1153 |
1123 if (IN_type_symbol == NULL) |
1154 if (IN_type_symbol == NULL) |
1124 IN_type_symbol = last_type_symbol; |
1155 IN_type_symbol = last_type_symbol; |
1125 ADD_PARAM_LIST(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) |
1126 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; |
1127 function_type_prefix = return_type_symbol; |
1158 function_type_prefix = return_type_symbol; |
1128 function_type_suffix = IN_type_symbol; |
1159 function_type_suffix = IN_type_symbol; |
1129 break; |
1160 break; |
1130 |
1161 |
1143 case function_sint_to_lreal : |
1174 case function_sint_to_lreal : |
1144 { |
1175 { |
1145 symbol_c *last_type_symbol = NULL; |
1176 symbol_c *last_type_symbol = NULL; |
1146 |
1177 |
1147 { |
1178 { |
|
1179 identifier_c IN_param_name("IN"); |
1148 /* 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 */ |
1149 symbol_c *IN_param_value = &this->default_variable_name; |
1181 symbol_c *IN_param_value = &this->default_variable_name; |
1150 |
1182 |
1151 symbol_c *IN_type_symbol = param_data_type; |
1183 symbol_c *IN_type_symbol = param_data_type; |
1152 last_type_symbol = param_data_type; |
1184 last_type_symbol = param_data_type; |
1156 |
1188 |
1157 function_name = (symbol_c*)(new pragma_c("__move_")); |
1189 function_name = (symbol_c*)(new pragma_c("__move_")); |
1158 |
1190 |
1159 if (IN_type_symbol == NULL) |
1191 if (IN_type_symbol == NULL) |
1160 IN_type_symbol = last_type_symbol; |
1192 IN_type_symbol = last_type_symbol; |
1161 ADD_PARAM_LIST(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) |
1162 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; |
1163 function_type_prefix = return_type_symbol; |
1195 function_type_prefix = return_type_symbol; |
1164 function_type_suffix = IN_type_symbol; |
1196 function_type_suffix = IN_type_symbol; |
1165 break; |
1197 break; |
1166 |
1198 |
1179 case function_sint_to_byte : |
1211 case function_sint_to_byte : |
1180 { |
1212 { |
1181 symbol_c *last_type_symbol = NULL; |
1213 symbol_c *last_type_symbol = NULL; |
1182 |
1214 |
1183 { |
1215 { |
|
1216 identifier_c IN_param_name("IN"); |
1184 /* 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 */ |
1185 symbol_c *IN_param_value = &this->default_variable_name; |
1218 symbol_c *IN_param_value = &this->default_variable_name; |
1186 |
1219 |
1187 symbol_c *IN_type_symbol = param_data_type; |
1220 symbol_c *IN_type_symbol = param_data_type; |
1188 last_type_symbol = param_data_type; |
1221 last_type_symbol = param_data_type; |
1192 |
1225 |
1193 function_name = (symbol_c*)(new pragma_c("__move_")); |
1226 function_name = (symbol_c*)(new pragma_c("__move_")); |
1194 |
1227 |
1195 if (IN_type_symbol == NULL) |
1228 if (IN_type_symbol == NULL) |
1196 IN_type_symbol = last_type_symbol; |
1229 IN_type_symbol = last_type_symbol; |
1197 ADD_PARAM_LIST(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) |
1198 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; |
1199 function_type_prefix = return_type_symbol; |
1232 function_type_prefix = return_type_symbol; |
1200 function_type_suffix = IN_type_symbol; |
1233 function_type_suffix = IN_type_symbol; |
1201 break; |
1234 break; |
1202 |
1235 |
1215 case function_sint_to_usint : |
1248 case function_sint_to_usint : |
1216 { |
1249 { |
1217 symbol_c *last_type_symbol = NULL; |
1250 symbol_c *last_type_symbol = NULL; |
1218 |
1251 |
1219 { |
1252 { |
|
1253 identifier_c IN_param_name("IN"); |
1220 /* 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 */ |
1221 symbol_c *IN_param_value = &this->default_variable_name; |
1255 symbol_c *IN_param_value = &this->default_variable_name; |
1222 |
1256 |
1223 symbol_c *IN_type_symbol = param_data_type; |
1257 symbol_c *IN_type_symbol = param_data_type; |
1224 last_type_symbol = param_data_type; |
1258 last_type_symbol = param_data_type; |
1228 |
1262 |
1229 function_name = (symbol_c*)(new pragma_c("__move_")); |
1263 function_name = (symbol_c*)(new pragma_c("__move_")); |
1230 |
1264 |
1231 if (IN_type_symbol == NULL) |
1265 if (IN_type_symbol == NULL) |
1232 IN_type_symbol = last_type_symbol; |
1266 IN_type_symbol = last_type_symbol; |
1233 ADD_PARAM_LIST(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) |
1234 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; |
1235 function_type_prefix = return_type_symbol; |
1269 function_type_prefix = return_type_symbol; |
1236 function_type_suffix = IN_type_symbol; |
1270 function_type_suffix = IN_type_symbol; |
1237 break; |
1271 break; |
1238 |
1272 |
1251 case function_sint_to_ulint : |
1285 case function_sint_to_ulint : |
1252 { |
1286 { |
1253 symbol_c *last_type_symbol = NULL; |
1287 symbol_c *last_type_symbol = NULL; |
1254 |
1288 |
1255 { |
1289 { |
|
1290 identifier_c IN_param_name("IN"); |
1256 /* 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 */ |
1257 symbol_c *IN_param_value = &this->default_variable_name; |
1292 symbol_c *IN_param_value = &this->default_variable_name; |
1258 |
1293 |
1259 symbol_c *IN_type_symbol = param_data_type; |
1294 symbol_c *IN_type_symbol = param_data_type; |
1260 last_type_symbol = param_data_type; |
1295 last_type_symbol = param_data_type; |
1264 |
1299 |
1265 function_name = (symbol_c*)(new pragma_c("__move_")); |
1300 function_name = (symbol_c*)(new pragma_c("__move_")); |
1266 |
1301 |
1267 if (IN_type_symbol == NULL) |
1302 if (IN_type_symbol == NULL) |
1268 IN_type_symbol = last_type_symbol; |
1303 IN_type_symbol = last_type_symbol; |
1269 ADD_PARAM_LIST(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) |
1270 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; |
1271 function_type_prefix = return_type_symbol; |
1306 function_type_prefix = return_type_symbol; |
1272 function_type_suffix = IN_type_symbol; |
1307 function_type_suffix = IN_type_symbol; |
1273 break; |
1308 break; |
1274 |
1309 |
1287 case function_sint_to_bool : |
1322 case function_sint_to_bool : |
1288 { |
1323 { |
1289 symbol_c *last_type_symbol = NULL; |
1324 symbol_c *last_type_symbol = NULL; |
1290 |
1325 |
1291 { |
1326 { |
|
1327 identifier_c IN_param_name("IN"); |
1292 /* 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 */ |
1293 symbol_c *IN_param_value = &this->default_variable_name; |
1329 symbol_c *IN_param_value = &this->default_variable_name; |
1294 |
1330 |
1295 symbol_c *IN_type_symbol = param_data_type; |
1331 symbol_c *IN_type_symbol = param_data_type; |
1296 last_type_symbol = param_data_type; |
1332 last_type_symbol = param_data_type; |
1300 |
1336 |
1301 function_name = (symbol_c*)(new pragma_c("__move_")); |
1337 function_name = (symbol_c*)(new pragma_c("__move_")); |
1302 |
1338 |
1303 if (IN_type_symbol == NULL) |
1339 if (IN_type_symbol == NULL) |
1304 IN_type_symbol = last_type_symbol; |
1340 IN_type_symbol = last_type_symbol; |
1305 ADD_PARAM_LIST(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) |
1306 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; |
1307 function_type_prefix = return_type_symbol; |
1343 function_type_prefix = return_type_symbol; |
1308 function_type_suffix = IN_type_symbol; |
1344 function_type_suffix = IN_type_symbol; |
1309 break; |
1345 break; |
1310 |
1346 |
1323 case function_sint_to_time : |
1359 case function_sint_to_time : |
1324 { |
1360 { |
1325 symbol_c *last_type_symbol = NULL; |
1361 symbol_c *last_type_symbol = NULL; |
1326 |
1362 |
1327 { |
1363 { |
|
1364 identifier_c IN_param_name("IN"); |
1328 /* 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 */ |
1329 symbol_c *IN_param_value = &this->default_variable_name; |
1366 symbol_c *IN_param_value = &this->default_variable_name; |
1330 |
1367 |
1331 symbol_c *IN_type_symbol = param_data_type; |
1368 symbol_c *IN_type_symbol = param_data_type; |
1332 last_type_symbol = param_data_type; |
1369 last_type_symbol = param_data_type; |
1336 |
1373 |
1337 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1374 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1338 |
1375 |
1339 if (IN_type_symbol == NULL) |
1376 if (IN_type_symbol == NULL) |
1340 IN_type_symbol = last_type_symbol; |
1377 IN_type_symbol = last_type_symbol; |
1341 ADD_PARAM_LIST(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) |
1342 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; |
1343 function_type_prefix = return_type_symbol; |
1380 function_type_prefix = return_type_symbol; |
1344 break; |
1381 break; |
1345 |
1382 |
1346 } |
1383 } |
1358 case function_sint_to_int : |
1395 case function_sint_to_int : |
1359 { |
1396 { |
1360 symbol_c *last_type_symbol = NULL; |
1397 symbol_c *last_type_symbol = NULL; |
1361 |
1398 |
1362 { |
1399 { |
|
1400 identifier_c IN_param_name("IN"); |
1363 /* 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 */ |
1364 symbol_c *IN_param_value = &this->default_variable_name; |
1402 symbol_c *IN_param_value = &this->default_variable_name; |
1365 |
1403 |
1366 symbol_c *IN_type_symbol = param_data_type; |
1404 symbol_c *IN_type_symbol = param_data_type; |
1367 last_type_symbol = param_data_type; |
1405 last_type_symbol = param_data_type; |
1371 |
1409 |
1372 function_name = (symbol_c*)(new pragma_c("__move_")); |
1410 function_name = (symbol_c*)(new pragma_c("__move_")); |
1373 |
1411 |
1374 if (IN_type_symbol == NULL) |
1412 if (IN_type_symbol == NULL) |
1375 IN_type_symbol = last_type_symbol; |
1413 IN_type_symbol = last_type_symbol; |
1376 ADD_PARAM_LIST(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) |
1377 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; |
1378 function_type_prefix = return_type_symbol; |
1416 function_type_prefix = return_type_symbol; |
1379 function_type_suffix = IN_type_symbol; |
1417 function_type_suffix = IN_type_symbol; |
1380 break; |
1418 break; |
1381 |
1419 |
1394 case function_lint_to_real : |
1432 case function_lint_to_real : |
1395 { |
1433 { |
1396 symbol_c *last_type_symbol = NULL; |
1434 symbol_c *last_type_symbol = NULL; |
1397 |
1435 |
1398 { |
1436 { |
|
1437 identifier_c IN_param_name("IN"); |
1399 /* 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 */ |
1400 symbol_c *IN_param_value = &this->default_variable_name; |
1439 symbol_c *IN_param_value = &this->default_variable_name; |
1401 |
1440 |
1402 symbol_c *IN_type_symbol = param_data_type; |
1441 symbol_c *IN_type_symbol = param_data_type; |
1403 last_type_symbol = param_data_type; |
1442 last_type_symbol = param_data_type; |
1407 |
1446 |
1408 function_name = (symbol_c*)(new pragma_c("__move_")); |
1447 function_name = (symbol_c*)(new pragma_c("__move_")); |
1409 |
1448 |
1410 if (IN_type_symbol == NULL) |
1449 if (IN_type_symbol == NULL) |
1411 IN_type_symbol = last_type_symbol; |
1450 IN_type_symbol = last_type_symbol; |
1412 ADD_PARAM_LIST(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) |
1413 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; |
1414 function_type_prefix = return_type_symbol; |
1453 function_type_prefix = return_type_symbol; |
1415 function_type_suffix = IN_type_symbol; |
1454 function_type_suffix = IN_type_symbol; |
1416 break; |
1455 break; |
1417 |
1456 |
1430 case function_lint_to_sint : |
1469 case function_lint_to_sint : |
1431 { |
1470 { |
1432 symbol_c *last_type_symbol = NULL; |
1471 symbol_c *last_type_symbol = NULL; |
1433 |
1472 |
1434 { |
1473 { |
|
1474 identifier_c IN_param_name("IN"); |
1435 /* 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 */ |
1436 symbol_c *IN_param_value = &this->default_variable_name; |
1476 symbol_c *IN_param_value = &this->default_variable_name; |
1437 |
1477 |
1438 symbol_c *IN_type_symbol = param_data_type; |
1478 symbol_c *IN_type_symbol = param_data_type; |
1439 last_type_symbol = param_data_type; |
1479 last_type_symbol = param_data_type; |
1443 |
1483 |
1444 function_name = (symbol_c*)(new pragma_c("__move_")); |
1484 function_name = (symbol_c*)(new pragma_c("__move_")); |
1445 |
1485 |
1446 if (IN_type_symbol == NULL) |
1486 if (IN_type_symbol == NULL) |
1447 IN_type_symbol = last_type_symbol; |
1487 IN_type_symbol = last_type_symbol; |
1448 ADD_PARAM_LIST(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) |
1449 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; |
1450 function_type_prefix = return_type_symbol; |
1490 function_type_prefix = return_type_symbol; |
1451 function_type_suffix = IN_type_symbol; |
1491 function_type_suffix = IN_type_symbol; |
1452 break; |
1492 break; |
1453 |
1493 |
1466 case function_lint_to_dint : |
1506 case function_lint_to_dint : |
1467 { |
1507 { |
1468 symbol_c *last_type_symbol = NULL; |
1508 symbol_c *last_type_symbol = NULL; |
1469 |
1509 |
1470 { |
1510 { |
|
1511 identifier_c IN_param_name("IN"); |
1471 /* 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 */ |
1472 symbol_c *IN_param_value = &this->default_variable_name; |
1513 symbol_c *IN_param_value = &this->default_variable_name; |
1473 |
1514 |
1474 symbol_c *IN_type_symbol = param_data_type; |
1515 symbol_c *IN_type_symbol = param_data_type; |
1475 last_type_symbol = param_data_type; |
1516 last_type_symbol = param_data_type; |
1479 |
1520 |
1480 function_name = (symbol_c*)(new pragma_c("__move_")); |
1521 function_name = (symbol_c*)(new pragma_c("__move_")); |
1481 |
1522 |
1482 if (IN_type_symbol == NULL) |
1523 if (IN_type_symbol == NULL) |
1483 IN_type_symbol = last_type_symbol; |
1524 IN_type_symbol = last_type_symbol; |
1484 ADD_PARAM_LIST(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) |
1485 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; |
1486 function_type_prefix = return_type_symbol; |
1527 function_type_prefix = return_type_symbol; |
1487 function_type_suffix = IN_type_symbol; |
1528 function_type_suffix = IN_type_symbol; |
1488 break; |
1529 break; |
1489 |
1530 |
1502 case function_lint_to_date : |
1543 case function_lint_to_date : |
1503 { |
1544 { |
1504 symbol_c *last_type_symbol = NULL; |
1545 symbol_c *last_type_symbol = NULL; |
1505 |
1546 |
1506 { |
1547 { |
|
1548 identifier_c IN_param_name("IN"); |
1507 /* 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 */ |
1508 symbol_c *IN_param_value = &this->default_variable_name; |
1550 symbol_c *IN_param_value = &this->default_variable_name; |
1509 |
1551 |
1510 symbol_c *IN_type_symbol = param_data_type; |
1552 symbol_c *IN_type_symbol = param_data_type; |
1511 last_type_symbol = param_data_type; |
1553 last_type_symbol = param_data_type; |
1515 |
1557 |
1516 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1558 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1517 |
1559 |
1518 if (IN_type_symbol == NULL) |
1560 if (IN_type_symbol == NULL) |
1519 IN_type_symbol = last_type_symbol; |
1561 IN_type_symbol = last_type_symbol; |
1520 ADD_PARAM_LIST(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) |
1521 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; |
1522 function_type_prefix = return_type_symbol; |
1564 function_type_prefix = return_type_symbol; |
1523 break; |
1565 break; |
1524 |
1566 |
1525 } |
1567 } |
1537 case function_lint_to_dword : |
1579 case function_lint_to_dword : |
1538 { |
1580 { |
1539 symbol_c *last_type_symbol = NULL; |
1581 symbol_c *last_type_symbol = NULL; |
1540 |
1582 |
1541 { |
1583 { |
|
1584 identifier_c IN_param_name("IN"); |
1542 /* 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 */ |
1543 symbol_c *IN_param_value = &this->default_variable_name; |
1586 symbol_c *IN_param_value = &this->default_variable_name; |
1544 |
1587 |
1545 symbol_c *IN_type_symbol = param_data_type; |
1588 symbol_c *IN_type_symbol = param_data_type; |
1546 last_type_symbol = param_data_type; |
1589 last_type_symbol = param_data_type; |
1550 |
1593 |
1551 function_name = (symbol_c*)(new pragma_c("__move_")); |
1594 function_name = (symbol_c*)(new pragma_c("__move_")); |
1552 |
1595 |
1553 if (IN_type_symbol == NULL) |
1596 if (IN_type_symbol == NULL) |
1554 IN_type_symbol = last_type_symbol; |
1597 IN_type_symbol = last_type_symbol; |
1555 ADD_PARAM_LIST(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) |
1556 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; |
1557 function_type_prefix = return_type_symbol; |
1600 function_type_prefix = return_type_symbol; |
1558 function_type_suffix = IN_type_symbol; |
1601 function_type_suffix = IN_type_symbol; |
1559 break; |
1602 break; |
1560 |
1603 |
1573 case function_lint_to_dt : |
1616 case function_lint_to_dt : |
1574 { |
1617 { |
1575 symbol_c *last_type_symbol = NULL; |
1618 symbol_c *last_type_symbol = NULL; |
1576 |
1619 |
1577 { |
1620 { |
|
1621 identifier_c IN_param_name("IN"); |
1578 /* 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 */ |
1579 symbol_c *IN_param_value = &this->default_variable_name; |
1623 symbol_c *IN_param_value = &this->default_variable_name; |
1580 |
1624 |
1581 symbol_c *IN_type_symbol = param_data_type; |
1625 symbol_c *IN_type_symbol = param_data_type; |
1582 last_type_symbol = param_data_type; |
1626 last_type_symbol = param_data_type; |
1586 |
1630 |
1587 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1631 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1588 |
1632 |
1589 if (IN_type_symbol == NULL) |
1633 if (IN_type_symbol == NULL) |
1590 IN_type_symbol = last_type_symbol; |
1634 IN_type_symbol = last_type_symbol; |
1591 ADD_PARAM_LIST(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) |
1592 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; |
1593 function_type_prefix = return_type_symbol; |
1637 function_type_prefix = return_type_symbol; |
1594 break; |
1638 break; |
1595 |
1639 |
1596 } |
1640 } |
1608 case function_lint_to_tod : |
1652 case function_lint_to_tod : |
1609 { |
1653 { |
1610 symbol_c *last_type_symbol = NULL; |
1654 symbol_c *last_type_symbol = NULL; |
1611 |
1655 |
1612 { |
1656 { |
|
1657 identifier_c IN_param_name("IN"); |
1613 /* 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 */ |
1614 symbol_c *IN_param_value = &this->default_variable_name; |
1659 symbol_c *IN_param_value = &this->default_variable_name; |
1615 |
1660 |
1616 symbol_c *IN_type_symbol = param_data_type; |
1661 symbol_c *IN_type_symbol = param_data_type; |
1617 last_type_symbol = param_data_type; |
1662 last_type_symbol = param_data_type; |
1621 |
1666 |
1622 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1667 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
1623 |
1668 |
1624 if (IN_type_symbol == NULL) |
1669 if (IN_type_symbol == NULL) |
1625 IN_type_symbol = last_type_symbol; |
1670 IN_type_symbol = last_type_symbol; |
1626 ADD_PARAM_LIST(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) |
1627 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; |
1628 function_type_prefix = return_type_symbol; |
1673 function_type_prefix = return_type_symbol; |
1629 break; |
1674 break; |
1630 |
1675 |
1631 } |
1676 } |
1643 case function_lint_to_udint : |
1688 case function_lint_to_udint : |
1644 { |
1689 { |
1645 symbol_c *last_type_symbol = NULL; |
1690 symbol_c *last_type_symbol = NULL; |
1646 |
1691 |
1647 { |
1692 { |
|
1693 identifier_c IN_param_name("IN"); |
1648 /* 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 */ |
1649 symbol_c *IN_param_value = &this->default_variable_name; |
1695 symbol_c *IN_param_value = &this->default_variable_name; |
1650 |
1696 |
1651 symbol_c *IN_type_symbol = param_data_type; |
1697 symbol_c *IN_type_symbol = param_data_type; |
1652 last_type_symbol = param_data_type; |
1698 last_type_symbol = param_data_type; |
1656 |
1702 |
1657 function_name = (symbol_c*)(new pragma_c("__move_")); |
1703 function_name = (symbol_c*)(new pragma_c("__move_")); |
1658 |
1704 |
1659 if (IN_type_symbol == NULL) |
1705 if (IN_type_symbol == NULL) |
1660 IN_type_symbol = last_type_symbol; |
1706 IN_type_symbol = last_type_symbol; |
1661 ADD_PARAM_LIST(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) |
1662 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; |
1663 function_type_prefix = return_type_symbol; |
1709 function_type_prefix = return_type_symbol; |
1664 function_type_suffix = IN_type_symbol; |
1710 function_type_suffix = IN_type_symbol; |
1665 break; |
1711 break; |
1666 |
1712 |
1679 case function_lint_to_word : |
1725 case function_lint_to_word : |
1680 { |
1726 { |
1681 symbol_c *last_type_symbol = NULL; |
1727 symbol_c *last_type_symbol = NULL; |
1682 |
1728 |
1683 { |
1729 { |
|
1730 identifier_c IN_param_name("IN"); |
1684 /* 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 */ |
1685 symbol_c *IN_param_value = &this->default_variable_name; |
1732 symbol_c *IN_param_value = &this->default_variable_name; |
1686 |
1733 |
1687 symbol_c *IN_type_symbol = param_data_type; |
1734 symbol_c *IN_type_symbol = param_data_type; |
1688 last_type_symbol = param_data_type; |
1735 last_type_symbol = param_data_type; |
1692 |
1739 |
1693 function_name = (symbol_c*)(new pragma_c("__move_")); |
1740 function_name = (symbol_c*)(new pragma_c("__move_")); |
1694 |
1741 |
1695 if (IN_type_symbol == NULL) |
1742 if (IN_type_symbol == NULL) |
1696 IN_type_symbol = last_type_symbol; |
1743 IN_type_symbol = last_type_symbol; |
1697 ADD_PARAM_LIST(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) |
1698 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; |
1699 function_type_prefix = return_type_symbol; |
1746 function_type_prefix = return_type_symbol; |
1700 function_type_suffix = IN_type_symbol; |
1747 function_type_suffix = IN_type_symbol; |
1701 break; |
1748 break; |
1702 |
1749 |
1715 case function_lint_to_string : |
1762 case function_lint_to_string : |
1716 { |
1763 { |
1717 symbol_c *last_type_symbol = NULL; |
1764 symbol_c *last_type_symbol = NULL; |
1718 |
1765 |
1719 { |
1766 { |
|
1767 identifier_c IN_param_name("IN"); |
1720 /* 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 */ |
1721 symbol_c *IN_param_value = &this->default_variable_name; |
1769 symbol_c *IN_param_value = &this->default_variable_name; |
1722 |
1770 |
1723 symbol_c *IN_type_symbol = param_data_type; |
1771 symbol_c *IN_type_symbol = param_data_type; |
1724 last_type_symbol = param_data_type; |
1772 last_type_symbol = param_data_type; |
1728 |
1776 |
1729 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
1777 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
1730 |
1778 |
1731 if (IN_type_symbol == NULL) |
1779 if (IN_type_symbol == NULL) |
1732 IN_type_symbol = last_type_symbol; |
1780 IN_type_symbol = last_type_symbol; |
1733 ADD_PARAM_LIST(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) |
1734 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; |
1735 function_type_prefix = return_type_symbol; |
1783 function_type_prefix = return_type_symbol; |
1736 break; |
1784 break; |
1737 |
1785 |
1738 } |
1786 } |
1750 case function_lint_to_lword : |
1798 case function_lint_to_lword : |
1751 { |
1799 { |
1752 symbol_c *last_type_symbol = NULL; |
1800 symbol_c *last_type_symbol = NULL; |
1753 |
1801 |
1754 { |
1802 { |
|
1803 identifier_c IN_param_name("IN"); |
1755 /* 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 */ |
1756 symbol_c *IN_param_value = &this->default_variable_name; |
1805 symbol_c *IN_param_value = &this->default_variable_name; |
1757 |
1806 |
1758 symbol_c *IN_type_symbol = param_data_type; |
1807 symbol_c *IN_type_symbol = param_data_type; |
1759 last_type_symbol = param_data_type; |
1808 last_type_symbol = param_data_type; |
1763 |
1812 |
1764 function_name = (symbol_c*)(new pragma_c("__move_")); |
1813 function_name = (symbol_c*)(new pragma_c("__move_")); |
1765 |
1814 |
1766 if (IN_type_symbol == NULL) |
1815 if (IN_type_symbol == NULL) |
1767 IN_type_symbol = last_type_symbol; |
1816 IN_type_symbol = last_type_symbol; |
1768 ADD_PARAM_LIST(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) |
1769 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; |
1770 function_type_prefix = return_type_symbol; |
1819 function_type_prefix = return_type_symbol; |
1771 function_type_suffix = IN_type_symbol; |
1820 function_type_suffix = IN_type_symbol; |
1772 break; |
1821 break; |
1773 |
1822 |
1786 case function_lint_to_uint : |
1835 case function_lint_to_uint : |
1787 { |
1836 { |
1788 symbol_c *last_type_symbol = NULL; |
1837 symbol_c *last_type_symbol = NULL; |
1789 |
1838 |
1790 { |
1839 { |
|
1840 identifier_c IN_param_name("IN"); |
1791 /* 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 */ |
1792 symbol_c *IN_param_value = &this->default_variable_name; |
1842 symbol_c *IN_param_value = &this->default_variable_name; |
1793 |
1843 |
1794 symbol_c *IN_type_symbol = param_data_type; |
1844 symbol_c *IN_type_symbol = param_data_type; |
1795 last_type_symbol = param_data_type; |
1845 last_type_symbol = param_data_type; |
1799 |
1849 |
1800 function_name = (symbol_c*)(new pragma_c("__move_")); |
1850 function_name = (symbol_c*)(new pragma_c("__move_")); |
1801 |
1851 |
1802 if (IN_type_symbol == NULL) |
1852 if (IN_type_symbol == NULL) |
1803 IN_type_symbol = last_type_symbol; |
1853 IN_type_symbol = last_type_symbol; |
1804 ADD_PARAM_LIST(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) |
1805 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; |
1806 function_type_prefix = return_type_symbol; |
1856 function_type_prefix = return_type_symbol; |
1807 function_type_suffix = IN_type_symbol; |
1857 function_type_suffix = IN_type_symbol; |
1808 break; |
1858 break; |
1809 |
1859 |
1822 case function_lint_to_lreal : |
1872 case function_lint_to_lreal : |
1823 { |
1873 { |
1824 symbol_c *last_type_symbol = NULL; |
1874 symbol_c *last_type_symbol = NULL; |
1825 |
1875 |
1826 { |
1876 { |
|
1877 identifier_c IN_param_name("IN"); |
1827 /* 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 */ |
1828 symbol_c *IN_param_value = &this->default_variable_name; |
1879 symbol_c *IN_param_value = &this->default_variable_name; |
1829 |
1880 |
1830 symbol_c *IN_type_symbol = param_data_type; |
1881 symbol_c *IN_type_symbol = param_data_type; |
1831 last_type_symbol = param_data_type; |
1882 last_type_symbol = param_data_type; |
1835 |
1886 |
1836 function_name = (symbol_c*)(new pragma_c("__move_")); |
1887 function_name = (symbol_c*)(new pragma_c("__move_")); |
1837 |
1888 |
1838 if (IN_type_symbol == NULL) |
1889 if (IN_type_symbol == NULL) |
1839 IN_type_symbol = last_type_symbol; |
1890 IN_type_symbol = last_type_symbol; |
1840 ADD_PARAM_LIST(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) |
1841 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; |
1842 function_type_prefix = return_type_symbol; |
1893 function_type_prefix = return_type_symbol; |
1843 function_type_suffix = IN_type_symbol; |
1894 function_type_suffix = IN_type_symbol; |
1844 break; |
1895 break; |
1845 |
1896 |
1858 case function_lint_to_byte : |
1909 case function_lint_to_byte : |
1859 { |
1910 { |
1860 symbol_c *last_type_symbol = NULL; |
1911 symbol_c *last_type_symbol = NULL; |
1861 |
1912 |
1862 { |
1913 { |
|
1914 identifier_c IN_param_name("IN"); |
1863 /* 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 */ |
1864 symbol_c *IN_param_value = &this->default_variable_name; |
1916 symbol_c *IN_param_value = &this->default_variable_name; |
1865 |
1917 |
1866 symbol_c *IN_type_symbol = param_data_type; |
1918 symbol_c *IN_type_symbol = param_data_type; |
1867 last_type_symbol = param_data_type; |
1919 last_type_symbol = param_data_type; |
1871 |
1923 |
1872 function_name = (symbol_c*)(new pragma_c("__move_")); |
1924 function_name = (symbol_c*)(new pragma_c("__move_")); |
1873 |
1925 |
1874 if (IN_type_symbol == NULL) |
1926 if (IN_type_symbol == NULL) |
1875 IN_type_symbol = last_type_symbol; |
1927 IN_type_symbol = last_type_symbol; |
1876 ADD_PARAM_LIST(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) |
1877 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; |
1878 function_type_prefix = return_type_symbol; |
1930 function_type_prefix = return_type_symbol; |
1879 function_type_suffix = IN_type_symbol; |
1931 function_type_suffix = IN_type_symbol; |
1880 break; |
1932 break; |
1881 |
1933 |
1894 case function_lint_to_usint : |
1946 case function_lint_to_usint : |
1895 { |
1947 { |
1896 symbol_c *last_type_symbol = NULL; |
1948 symbol_c *last_type_symbol = NULL; |
1897 |
1949 |
1898 { |
1950 { |
|
1951 identifier_c IN_param_name("IN"); |
1899 /* 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 */ |
1900 symbol_c *IN_param_value = &this->default_variable_name; |
1953 symbol_c *IN_param_value = &this->default_variable_name; |
1901 |
1954 |
1902 symbol_c *IN_type_symbol = param_data_type; |
1955 symbol_c *IN_type_symbol = param_data_type; |
1903 last_type_symbol = param_data_type; |
1956 last_type_symbol = param_data_type; |
1907 |
1960 |
1908 function_name = (symbol_c*)(new pragma_c("__move_")); |
1961 function_name = (symbol_c*)(new pragma_c("__move_")); |
1909 |
1962 |
1910 if (IN_type_symbol == NULL) |
1963 if (IN_type_symbol == NULL) |
1911 IN_type_symbol = last_type_symbol; |
1964 IN_type_symbol = last_type_symbol; |
1912 ADD_PARAM_LIST(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) |
1913 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; |
1914 function_type_prefix = return_type_symbol; |
1967 function_type_prefix = return_type_symbol; |
1915 function_type_suffix = IN_type_symbol; |
1968 function_type_suffix = IN_type_symbol; |
1916 break; |
1969 break; |
1917 |
1970 |
1930 case function_lint_to_ulint : |
1983 case function_lint_to_ulint : |
1931 { |
1984 { |
1932 symbol_c *last_type_symbol = NULL; |
1985 symbol_c *last_type_symbol = NULL; |
1933 |
1986 |
1934 { |
1987 { |
|
1988 identifier_c IN_param_name("IN"); |
1935 /* 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 */ |
1936 symbol_c *IN_param_value = &this->default_variable_name; |
1990 symbol_c *IN_param_value = &this->default_variable_name; |
1937 |
1991 |
1938 symbol_c *IN_type_symbol = param_data_type; |
1992 symbol_c *IN_type_symbol = param_data_type; |
1939 last_type_symbol = param_data_type; |
1993 last_type_symbol = param_data_type; |
1943 |
1997 |
1944 function_name = (symbol_c*)(new pragma_c("__move_")); |
1998 function_name = (symbol_c*)(new pragma_c("__move_")); |
1945 |
1999 |
1946 if (IN_type_symbol == NULL) |
2000 if (IN_type_symbol == NULL) |
1947 IN_type_symbol = last_type_symbol; |
2001 IN_type_symbol = last_type_symbol; |
1948 ADD_PARAM_LIST(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) |
1949 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; |
1950 function_type_prefix = return_type_symbol; |
2004 function_type_prefix = return_type_symbol; |
1951 function_type_suffix = IN_type_symbol; |
2005 function_type_suffix = IN_type_symbol; |
1952 break; |
2006 break; |
1953 |
2007 |
1966 case function_lint_to_bool : |
2020 case function_lint_to_bool : |
1967 { |
2021 { |
1968 symbol_c *last_type_symbol = NULL; |
2022 symbol_c *last_type_symbol = NULL; |
1969 |
2023 |
1970 { |
2024 { |
|
2025 identifier_c IN_param_name("IN"); |
1971 /* 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 */ |
1972 symbol_c *IN_param_value = &this->default_variable_name; |
2027 symbol_c *IN_param_value = &this->default_variable_name; |
1973 |
2028 |
1974 symbol_c *IN_type_symbol = param_data_type; |
2029 symbol_c *IN_type_symbol = param_data_type; |
1975 last_type_symbol = param_data_type; |
2030 last_type_symbol = param_data_type; |
1979 |
2034 |
1980 function_name = (symbol_c*)(new pragma_c("__move_")); |
2035 function_name = (symbol_c*)(new pragma_c("__move_")); |
1981 |
2036 |
1982 if (IN_type_symbol == NULL) |
2037 if (IN_type_symbol == NULL) |
1983 IN_type_symbol = last_type_symbol; |
2038 IN_type_symbol = last_type_symbol; |
1984 ADD_PARAM_LIST(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) |
1985 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; |
1986 function_type_prefix = return_type_symbol; |
2041 function_type_prefix = return_type_symbol; |
1987 function_type_suffix = IN_type_symbol; |
2042 function_type_suffix = IN_type_symbol; |
1988 break; |
2043 break; |
1989 |
2044 |
2002 case function_lint_to_time : |
2057 case function_lint_to_time : |
2003 { |
2058 { |
2004 symbol_c *last_type_symbol = NULL; |
2059 symbol_c *last_type_symbol = NULL; |
2005 |
2060 |
2006 { |
2061 { |
|
2062 identifier_c IN_param_name("IN"); |
2007 /* 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 */ |
2008 symbol_c *IN_param_value = &this->default_variable_name; |
2064 symbol_c *IN_param_value = &this->default_variable_name; |
2009 |
2065 |
2010 symbol_c *IN_type_symbol = param_data_type; |
2066 symbol_c *IN_type_symbol = param_data_type; |
2011 last_type_symbol = param_data_type; |
2067 last_type_symbol = param_data_type; |
2015 |
2071 |
2016 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2072 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2017 |
2073 |
2018 if (IN_type_symbol == NULL) |
2074 if (IN_type_symbol == NULL) |
2019 IN_type_symbol = last_type_symbol; |
2075 IN_type_symbol = last_type_symbol; |
2020 ADD_PARAM_LIST(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) |
2021 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; |
2022 function_type_prefix = return_type_symbol; |
2078 function_type_prefix = return_type_symbol; |
2023 break; |
2079 break; |
2024 |
2080 |
2025 } |
2081 } |
2037 case function_lint_to_int : |
2093 case function_lint_to_int : |
2038 { |
2094 { |
2039 symbol_c *last_type_symbol = NULL; |
2095 symbol_c *last_type_symbol = NULL; |
2040 |
2096 |
2041 { |
2097 { |
|
2098 identifier_c IN_param_name("IN"); |
2042 /* 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 */ |
2043 symbol_c *IN_param_value = &this->default_variable_name; |
2100 symbol_c *IN_param_value = &this->default_variable_name; |
2044 |
2101 |
2045 symbol_c *IN_type_symbol = param_data_type; |
2102 symbol_c *IN_type_symbol = param_data_type; |
2046 last_type_symbol = param_data_type; |
2103 last_type_symbol = param_data_type; |
2050 |
2107 |
2051 function_name = (symbol_c*)(new pragma_c("__move_")); |
2108 function_name = (symbol_c*)(new pragma_c("__move_")); |
2052 |
2109 |
2053 if (IN_type_symbol == NULL) |
2110 if (IN_type_symbol == NULL) |
2054 IN_type_symbol = last_type_symbol; |
2111 IN_type_symbol = last_type_symbol; |
2055 ADD_PARAM_LIST(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) |
2056 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; |
2057 function_type_prefix = return_type_symbol; |
2114 function_type_prefix = return_type_symbol; |
2058 function_type_suffix = IN_type_symbol; |
2115 function_type_suffix = IN_type_symbol; |
2059 break; |
2116 break; |
2060 |
2117 |
2073 case function_dint_to_real : |
2130 case function_dint_to_real : |
2074 { |
2131 { |
2075 symbol_c *last_type_symbol = NULL; |
2132 symbol_c *last_type_symbol = NULL; |
2076 |
2133 |
2077 { |
2134 { |
|
2135 identifier_c IN_param_name("IN"); |
2078 /* 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 */ |
2079 symbol_c *IN_param_value = &this->default_variable_name; |
2137 symbol_c *IN_param_value = &this->default_variable_name; |
2080 |
2138 |
2081 symbol_c *IN_type_symbol = param_data_type; |
2139 symbol_c *IN_type_symbol = param_data_type; |
2082 last_type_symbol = param_data_type; |
2140 last_type_symbol = param_data_type; |
2086 |
2144 |
2087 function_name = (symbol_c*)(new pragma_c("__move_")); |
2145 function_name = (symbol_c*)(new pragma_c("__move_")); |
2088 |
2146 |
2089 if (IN_type_symbol == NULL) |
2147 if (IN_type_symbol == NULL) |
2090 IN_type_symbol = last_type_symbol; |
2148 IN_type_symbol = last_type_symbol; |
2091 ADD_PARAM_LIST(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) |
2092 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; |
2093 function_type_prefix = return_type_symbol; |
2151 function_type_prefix = return_type_symbol; |
2094 function_type_suffix = IN_type_symbol; |
2152 function_type_suffix = IN_type_symbol; |
2095 break; |
2153 break; |
2096 |
2154 |
2109 case function_dint_to_sint : |
2167 case function_dint_to_sint : |
2110 { |
2168 { |
2111 symbol_c *last_type_symbol = NULL; |
2169 symbol_c *last_type_symbol = NULL; |
2112 |
2170 |
2113 { |
2171 { |
|
2172 identifier_c IN_param_name("IN"); |
2114 /* 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 */ |
2115 symbol_c *IN_param_value = &this->default_variable_name; |
2174 symbol_c *IN_param_value = &this->default_variable_name; |
2116 |
2175 |
2117 symbol_c *IN_type_symbol = param_data_type; |
2176 symbol_c *IN_type_symbol = param_data_type; |
2118 last_type_symbol = param_data_type; |
2177 last_type_symbol = param_data_type; |
2122 |
2181 |
2123 function_name = (symbol_c*)(new pragma_c("__move_")); |
2182 function_name = (symbol_c*)(new pragma_c("__move_")); |
2124 |
2183 |
2125 if (IN_type_symbol == NULL) |
2184 if (IN_type_symbol == NULL) |
2126 IN_type_symbol = last_type_symbol; |
2185 IN_type_symbol = last_type_symbol; |
2127 ADD_PARAM_LIST(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) |
2128 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; |
2129 function_type_prefix = return_type_symbol; |
2188 function_type_prefix = return_type_symbol; |
2130 function_type_suffix = IN_type_symbol; |
2189 function_type_suffix = IN_type_symbol; |
2131 break; |
2190 break; |
2132 |
2191 |
2145 case function_dint_to_lint : |
2204 case function_dint_to_lint : |
2146 { |
2205 { |
2147 symbol_c *last_type_symbol = NULL; |
2206 symbol_c *last_type_symbol = NULL; |
2148 |
2207 |
2149 { |
2208 { |
|
2209 identifier_c IN_param_name("IN"); |
2150 /* 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 */ |
2151 symbol_c *IN_param_value = &this->default_variable_name; |
2211 symbol_c *IN_param_value = &this->default_variable_name; |
2152 |
2212 |
2153 symbol_c *IN_type_symbol = param_data_type; |
2213 symbol_c *IN_type_symbol = param_data_type; |
2154 last_type_symbol = param_data_type; |
2214 last_type_symbol = param_data_type; |
2158 |
2218 |
2159 function_name = (symbol_c*)(new pragma_c("__move_")); |
2219 function_name = (symbol_c*)(new pragma_c("__move_")); |
2160 |
2220 |
2161 if (IN_type_symbol == NULL) |
2221 if (IN_type_symbol == NULL) |
2162 IN_type_symbol = last_type_symbol; |
2222 IN_type_symbol = last_type_symbol; |
2163 ADD_PARAM_LIST(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) |
2164 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; |
2165 function_type_prefix = return_type_symbol; |
2225 function_type_prefix = return_type_symbol; |
2166 function_type_suffix = IN_type_symbol; |
2226 function_type_suffix = IN_type_symbol; |
2167 break; |
2227 break; |
2168 |
2228 |
2181 case function_dint_to_date : |
2241 case function_dint_to_date : |
2182 { |
2242 { |
2183 symbol_c *last_type_symbol = NULL; |
2243 symbol_c *last_type_symbol = NULL; |
2184 |
2244 |
2185 { |
2245 { |
|
2246 identifier_c IN_param_name("IN"); |
2186 /* 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 */ |
2187 symbol_c *IN_param_value = &this->default_variable_name; |
2248 symbol_c *IN_param_value = &this->default_variable_name; |
2188 |
2249 |
2189 symbol_c *IN_type_symbol = param_data_type; |
2250 symbol_c *IN_type_symbol = param_data_type; |
2190 last_type_symbol = param_data_type; |
2251 last_type_symbol = param_data_type; |
2194 |
2255 |
2195 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2256 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2196 |
2257 |
2197 if (IN_type_symbol == NULL) |
2258 if (IN_type_symbol == NULL) |
2198 IN_type_symbol = last_type_symbol; |
2259 IN_type_symbol = last_type_symbol; |
2199 ADD_PARAM_LIST(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) |
2200 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; |
2201 function_type_prefix = return_type_symbol; |
2262 function_type_prefix = return_type_symbol; |
2202 break; |
2263 break; |
2203 |
2264 |
2204 } |
2265 } |
2216 case function_dint_to_dword : |
2277 case function_dint_to_dword : |
2217 { |
2278 { |
2218 symbol_c *last_type_symbol = NULL; |
2279 symbol_c *last_type_symbol = NULL; |
2219 |
2280 |
2220 { |
2281 { |
|
2282 identifier_c IN_param_name("IN"); |
2221 /* 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 */ |
2222 symbol_c *IN_param_value = &this->default_variable_name; |
2284 symbol_c *IN_param_value = &this->default_variable_name; |
2223 |
2285 |
2224 symbol_c *IN_type_symbol = param_data_type; |
2286 symbol_c *IN_type_symbol = param_data_type; |
2225 last_type_symbol = param_data_type; |
2287 last_type_symbol = param_data_type; |
2229 |
2291 |
2230 function_name = (symbol_c*)(new pragma_c("__move_")); |
2292 function_name = (symbol_c*)(new pragma_c("__move_")); |
2231 |
2293 |
2232 if (IN_type_symbol == NULL) |
2294 if (IN_type_symbol == NULL) |
2233 IN_type_symbol = last_type_symbol; |
2295 IN_type_symbol = last_type_symbol; |
2234 ADD_PARAM_LIST(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) |
2235 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; |
2236 function_type_prefix = return_type_symbol; |
2298 function_type_prefix = return_type_symbol; |
2237 function_type_suffix = IN_type_symbol; |
2299 function_type_suffix = IN_type_symbol; |
2238 break; |
2300 break; |
2239 |
2301 |
2252 case function_dint_to_dt : |
2314 case function_dint_to_dt : |
2253 { |
2315 { |
2254 symbol_c *last_type_symbol = NULL; |
2316 symbol_c *last_type_symbol = NULL; |
2255 |
2317 |
2256 { |
2318 { |
|
2319 identifier_c IN_param_name("IN"); |
2257 /* 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 */ |
2258 symbol_c *IN_param_value = &this->default_variable_name; |
2321 symbol_c *IN_param_value = &this->default_variable_name; |
2259 |
2322 |
2260 symbol_c *IN_type_symbol = param_data_type; |
2323 symbol_c *IN_type_symbol = param_data_type; |
2261 last_type_symbol = param_data_type; |
2324 last_type_symbol = param_data_type; |
2265 |
2328 |
2266 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2329 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2267 |
2330 |
2268 if (IN_type_symbol == NULL) |
2331 if (IN_type_symbol == NULL) |
2269 IN_type_symbol = last_type_symbol; |
2332 IN_type_symbol = last_type_symbol; |
2270 ADD_PARAM_LIST(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) |
2271 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; |
2272 function_type_prefix = return_type_symbol; |
2335 function_type_prefix = return_type_symbol; |
2273 break; |
2336 break; |
2274 |
2337 |
2275 } |
2338 } |
2287 case function_dint_to_tod : |
2350 case function_dint_to_tod : |
2288 { |
2351 { |
2289 symbol_c *last_type_symbol = NULL; |
2352 symbol_c *last_type_symbol = NULL; |
2290 |
2353 |
2291 { |
2354 { |
|
2355 identifier_c IN_param_name("IN"); |
2292 /* 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 */ |
2293 symbol_c *IN_param_value = &this->default_variable_name; |
2357 symbol_c *IN_param_value = &this->default_variable_name; |
2294 |
2358 |
2295 symbol_c *IN_type_symbol = param_data_type; |
2359 symbol_c *IN_type_symbol = param_data_type; |
2296 last_type_symbol = param_data_type; |
2360 last_type_symbol = param_data_type; |
2300 |
2364 |
2301 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2365 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2302 |
2366 |
2303 if (IN_type_symbol == NULL) |
2367 if (IN_type_symbol == NULL) |
2304 IN_type_symbol = last_type_symbol; |
2368 IN_type_symbol = last_type_symbol; |
2305 ADD_PARAM_LIST(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) |
2306 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; |
2307 function_type_prefix = return_type_symbol; |
2371 function_type_prefix = return_type_symbol; |
2308 break; |
2372 break; |
2309 |
2373 |
2310 } |
2374 } |
2322 case function_dint_to_udint : |
2386 case function_dint_to_udint : |
2323 { |
2387 { |
2324 symbol_c *last_type_symbol = NULL; |
2388 symbol_c *last_type_symbol = NULL; |
2325 |
2389 |
2326 { |
2390 { |
|
2391 identifier_c IN_param_name("IN"); |
2327 /* 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 */ |
2328 symbol_c *IN_param_value = &this->default_variable_name; |
2393 symbol_c *IN_param_value = &this->default_variable_name; |
2329 |
2394 |
2330 symbol_c *IN_type_symbol = param_data_type; |
2395 symbol_c *IN_type_symbol = param_data_type; |
2331 last_type_symbol = param_data_type; |
2396 last_type_symbol = param_data_type; |
2335 |
2400 |
2336 function_name = (symbol_c*)(new pragma_c("__move_")); |
2401 function_name = (symbol_c*)(new pragma_c("__move_")); |
2337 |
2402 |
2338 if (IN_type_symbol == NULL) |
2403 if (IN_type_symbol == NULL) |
2339 IN_type_symbol = last_type_symbol; |
2404 IN_type_symbol = last_type_symbol; |
2340 ADD_PARAM_LIST(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) |
2341 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; |
2342 function_type_prefix = return_type_symbol; |
2407 function_type_prefix = return_type_symbol; |
2343 function_type_suffix = IN_type_symbol; |
2408 function_type_suffix = IN_type_symbol; |
2344 break; |
2409 break; |
2345 |
2410 |
2358 case function_dint_to_word : |
2423 case function_dint_to_word : |
2359 { |
2424 { |
2360 symbol_c *last_type_symbol = NULL; |
2425 symbol_c *last_type_symbol = NULL; |
2361 |
2426 |
2362 { |
2427 { |
|
2428 identifier_c IN_param_name("IN"); |
2363 /* 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 */ |
2364 symbol_c *IN_param_value = &this->default_variable_name; |
2430 symbol_c *IN_param_value = &this->default_variable_name; |
2365 |
2431 |
2366 symbol_c *IN_type_symbol = param_data_type; |
2432 symbol_c *IN_type_symbol = param_data_type; |
2367 last_type_symbol = param_data_type; |
2433 last_type_symbol = param_data_type; |
2371 |
2437 |
2372 function_name = (symbol_c*)(new pragma_c("__move_")); |
2438 function_name = (symbol_c*)(new pragma_c("__move_")); |
2373 |
2439 |
2374 if (IN_type_symbol == NULL) |
2440 if (IN_type_symbol == NULL) |
2375 IN_type_symbol = last_type_symbol; |
2441 IN_type_symbol = last_type_symbol; |
2376 ADD_PARAM_LIST(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) |
2377 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; |
2378 function_type_prefix = return_type_symbol; |
2444 function_type_prefix = return_type_symbol; |
2379 function_type_suffix = IN_type_symbol; |
2445 function_type_suffix = IN_type_symbol; |
2380 break; |
2446 break; |
2381 |
2447 |
2394 case function_dint_to_string : |
2460 case function_dint_to_string : |
2395 { |
2461 { |
2396 symbol_c *last_type_symbol = NULL; |
2462 symbol_c *last_type_symbol = NULL; |
2397 |
2463 |
2398 { |
2464 { |
|
2465 identifier_c IN_param_name("IN"); |
2399 /* 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 */ |
2400 symbol_c *IN_param_value = &this->default_variable_name; |
2467 symbol_c *IN_param_value = &this->default_variable_name; |
2401 |
2468 |
2402 symbol_c *IN_type_symbol = param_data_type; |
2469 symbol_c *IN_type_symbol = param_data_type; |
2403 last_type_symbol = param_data_type; |
2470 last_type_symbol = param_data_type; |
2407 |
2474 |
2408 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
2475 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
2409 |
2476 |
2410 if (IN_type_symbol == NULL) |
2477 if (IN_type_symbol == NULL) |
2411 IN_type_symbol = last_type_symbol; |
2478 IN_type_symbol = last_type_symbol; |
2412 ADD_PARAM_LIST(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) |
2413 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; |
2414 function_type_prefix = return_type_symbol; |
2481 function_type_prefix = return_type_symbol; |
2415 break; |
2482 break; |
2416 |
2483 |
2417 } |
2484 } |
2429 case function_dint_to_lword : |
2496 case function_dint_to_lword : |
2430 { |
2497 { |
2431 symbol_c *last_type_symbol = NULL; |
2498 symbol_c *last_type_symbol = NULL; |
2432 |
2499 |
2433 { |
2500 { |
|
2501 identifier_c IN_param_name("IN"); |
2434 /* 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 */ |
2435 symbol_c *IN_param_value = &this->default_variable_name; |
2503 symbol_c *IN_param_value = &this->default_variable_name; |
2436 |
2504 |
2437 symbol_c *IN_type_symbol = param_data_type; |
2505 symbol_c *IN_type_symbol = param_data_type; |
2438 last_type_symbol = param_data_type; |
2506 last_type_symbol = param_data_type; |
2442 |
2510 |
2443 function_name = (symbol_c*)(new pragma_c("__move_")); |
2511 function_name = (symbol_c*)(new pragma_c("__move_")); |
2444 |
2512 |
2445 if (IN_type_symbol == NULL) |
2513 if (IN_type_symbol == NULL) |
2446 IN_type_symbol = last_type_symbol; |
2514 IN_type_symbol = last_type_symbol; |
2447 ADD_PARAM_LIST(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) |
2448 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; |
2449 function_type_prefix = return_type_symbol; |
2517 function_type_prefix = return_type_symbol; |
2450 function_type_suffix = IN_type_symbol; |
2518 function_type_suffix = IN_type_symbol; |
2451 break; |
2519 break; |
2452 |
2520 |
2465 case function_dint_to_uint : |
2533 case function_dint_to_uint : |
2466 { |
2534 { |
2467 symbol_c *last_type_symbol = NULL; |
2535 symbol_c *last_type_symbol = NULL; |
2468 |
2536 |
2469 { |
2537 { |
|
2538 identifier_c IN_param_name("IN"); |
2470 /* 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 */ |
2471 symbol_c *IN_param_value = &this->default_variable_name; |
2540 symbol_c *IN_param_value = &this->default_variable_name; |
2472 |
2541 |
2473 symbol_c *IN_type_symbol = param_data_type; |
2542 symbol_c *IN_type_symbol = param_data_type; |
2474 last_type_symbol = param_data_type; |
2543 last_type_symbol = param_data_type; |
2478 |
2547 |
2479 function_name = (symbol_c*)(new pragma_c("__move_")); |
2548 function_name = (symbol_c*)(new pragma_c("__move_")); |
2480 |
2549 |
2481 if (IN_type_symbol == NULL) |
2550 if (IN_type_symbol == NULL) |
2482 IN_type_symbol = last_type_symbol; |
2551 IN_type_symbol = last_type_symbol; |
2483 ADD_PARAM_LIST(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) |
2484 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; |
2485 function_type_prefix = return_type_symbol; |
2554 function_type_prefix = return_type_symbol; |
2486 function_type_suffix = IN_type_symbol; |
2555 function_type_suffix = IN_type_symbol; |
2487 break; |
2556 break; |
2488 |
2557 |
2501 case function_dint_to_lreal : |
2570 case function_dint_to_lreal : |
2502 { |
2571 { |
2503 symbol_c *last_type_symbol = NULL; |
2572 symbol_c *last_type_symbol = NULL; |
2504 |
2573 |
2505 { |
2574 { |
|
2575 identifier_c IN_param_name("IN"); |
2506 /* 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 */ |
2507 symbol_c *IN_param_value = &this->default_variable_name; |
2577 symbol_c *IN_param_value = &this->default_variable_name; |
2508 |
2578 |
2509 symbol_c *IN_type_symbol = param_data_type; |
2579 symbol_c *IN_type_symbol = param_data_type; |
2510 last_type_symbol = param_data_type; |
2580 last_type_symbol = param_data_type; |
2514 |
2584 |
2515 function_name = (symbol_c*)(new pragma_c("__move_")); |
2585 function_name = (symbol_c*)(new pragma_c("__move_")); |
2516 |
2586 |
2517 if (IN_type_symbol == NULL) |
2587 if (IN_type_symbol == NULL) |
2518 IN_type_symbol = last_type_symbol; |
2588 IN_type_symbol = last_type_symbol; |
2519 ADD_PARAM_LIST(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) |
2520 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; |
2521 function_type_prefix = return_type_symbol; |
2591 function_type_prefix = return_type_symbol; |
2522 function_type_suffix = IN_type_symbol; |
2592 function_type_suffix = IN_type_symbol; |
2523 break; |
2593 break; |
2524 |
2594 |
2537 case function_dint_to_byte : |
2607 case function_dint_to_byte : |
2538 { |
2608 { |
2539 symbol_c *last_type_symbol = NULL; |
2609 symbol_c *last_type_symbol = NULL; |
2540 |
2610 |
2541 { |
2611 { |
|
2612 identifier_c IN_param_name("IN"); |
2542 /* 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 */ |
2543 symbol_c *IN_param_value = &this->default_variable_name; |
2614 symbol_c *IN_param_value = &this->default_variable_name; |
2544 |
2615 |
2545 symbol_c *IN_type_symbol = param_data_type; |
2616 symbol_c *IN_type_symbol = param_data_type; |
2546 last_type_symbol = param_data_type; |
2617 last_type_symbol = param_data_type; |
2550 |
2621 |
2551 function_name = (symbol_c*)(new pragma_c("__move_")); |
2622 function_name = (symbol_c*)(new pragma_c("__move_")); |
2552 |
2623 |
2553 if (IN_type_symbol == NULL) |
2624 if (IN_type_symbol == NULL) |
2554 IN_type_symbol = last_type_symbol; |
2625 IN_type_symbol = last_type_symbol; |
2555 ADD_PARAM_LIST(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) |
2556 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; |
2557 function_type_prefix = return_type_symbol; |
2628 function_type_prefix = return_type_symbol; |
2558 function_type_suffix = IN_type_symbol; |
2629 function_type_suffix = IN_type_symbol; |
2559 break; |
2630 break; |
2560 |
2631 |
2573 case function_dint_to_usint : |
2644 case function_dint_to_usint : |
2574 { |
2645 { |
2575 symbol_c *last_type_symbol = NULL; |
2646 symbol_c *last_type_symbol = NULL; |
2576 |
2647 |
2577 { |
2648 { |
|
2649 identifier_c IN_param_name("IN"); |
2578 /* 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 */ |
2579 symbol_c *IN_param_value = &this->default_variable_name; |
2651 symbol_c *IN_param_value = &this->default_variable_name; |
2580 |
2652 |
2581 symbol_c *IN_type_symbol = param_data_type; |
2653 symbol_c *IN_type_symbol = param_data_type; |
2582 last_type_symbol = param_data_type; |
2654 last_type_symbol = param_data_type; |
2586 |
2658 |
2587 function_name = (symbol_c*)(new pragma_c("__move_")); |
2659 function_name = (symbol_c*)(new pragma_c("__move_")); |
2588 |
2660 |
2589 if (IN_type_symbol == NULL) |
2661 if (IN_type_symbol == NULL) |
2590 IN_type_symbol = last_type_symbol; |
2662 IN_type_symbol = last_type_symbol; |
2591 ADD_PARAM_LIST(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) |
2592 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; |
2593 function_type_prefix = return_type_symbol; |
2665 function_type_prefix = return_type_symbol; |
2594 function_type_suffix = IN_type_symbol; |
2666 function_type_suffix = IN_type_symbol; |
2595 break; |
2667 break; |
2596 |
2668 |
2609 case function_dint_to_ulint : |
2681 case function_dint_to_ulint : |
2610 { |
2682 { |
2611 symbol_c *last_type_symbol = NULL; |
2683 symbol_c *last_type_symbol = NULL; |
2612 |
2684 |
2613 { |
2685 { |
|
2686 identifier_c IN_param_name("IN"); |
2614 /* 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 */ |
2615 symbol_c *IN_param_value = &this->default_variable_name; |
2688 symbol_c *IN_param_value = &this->default_variable_name; |
2616 |
2689 |
2617 symbol_c *IN_type_symbol = param_data_type; |
2690 symbol_c *IN_type_symbol = param_data_type; |
2618 last_type_symbol = param_data_type; |
2691 last_type_symbol = param_data_type; |
2622 |
2695 |
2623 function_name = (symbol_c*)(new pragma_c("__move_")); |
2696 function_name = (symbol_c*)(new pragma_c("__move_")); |
2624 |
2697 |
2625 if (IN_type_symbol == NULL) |
2698 if (IN_type_symbol == NULL) |
2626 IN_type_symbol = last_type_symbol; |
2699 IN_type_symbol = last_type_symbol; |
2627 ADD_PARAM_LIST(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) |
2628 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; |
2629 function_type_prefix = return_type_symbol; |
2702 function_type_prefix = return_type_symbol; |
2630 function_type_suffix = IN_type_symbol; |
2703 function_type_suffix = IN_type_symbol; |
2631 break; |
2704 break; |
2632 |
2705 |
2645 case function_dint_to_bool : |
2718 case function_dint_to_bool : |
2646 { |
2719 { |
2647 symbol_c *last_type_symbol = NULL; |
2720 symbol_c *last_type_symbol = NULL; |
2648 |
2721 |
2649 { |
2722 { |
|
2723 identifier_c IN_param_name("IN"); |
2650 /* 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 */ |
2651 symbol_c *IN_param_value = &this->default_variable_name; |
2725 symbol_c *IN_param_value = &this->default_variable_name; |
2652 |
2726 |
2653 symbol_c *IN_type_symbol = param_data_type; |
2727 symbol_c *IN_type_symbol = param_data_type; |
2654 last_type_symbol = param_data_type; |
2728 last_type_symbol = param_data_type; |
2658 |
2732 |
2659 function_name = (symbol_c*)(new pragma_c("__move_")); |
2733 function_name = (symbol_c*)(new pragma_c("__move_")); |
2660 |
2734 |
2661 if (IN_type_symbol == NULL) |
2735 if (IN_type_symbol == NULL) |
2662 IN_type_symbol = last_type_symbol; |
2736 IN_type_symbol = last_type_symbol; |
2663 ADD_PARAM_LIST(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) |
2664 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; |
2665 function_type_prefix = return_type_symbol; |
2739 function_type_prefix = return_type_symbol; |
2666 function_type_suffix = IN_type_symbol; |
2740 function_type_suffix = IN_type_symbol; |
2667 break; |
2741 break; |
2668 |
2742 |
2681 case function_dint_to_time : |
2755 case function_dint_to_time : |
2682 { |
2756 { |
2683 symbol_c *last_type_symbol = NULL; |
2757 symbol_c *last_type_symbol = NULL; |
2684 |
2758 |
2685 { |
2759 { |
|
2760 identifier_c IN_param_name("IN"); |
2686 /* 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 */ |
2687 symbol_c *IN_param_value = &this->default_variable_name; |
2762 symbol_c *IN_param_value = &this->default_variable_name; |
2688 |
2763 |
2689 symbol_c *IN_type_symbol = param_data_type; |
2764 symbol_c *IN_type_symbol = param_data_type; |
2690 last_type_symbol = param_data_type; |
2765 last_type_symbol = param_data_type; |
2694 |
2769 |
2695 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2770 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
2696 |
2771 |
2697 if (IN_type_symbol == NULL) |
2772 if (IN_type_symbol == NULL) |
2698 IN_type_symbol = last_type_symbol; |
2773 IN_type_symbol = last_type_symbol; |
2699 ADD_PARAM_LIST(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) |
2700 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; |
2701 function_type_prefix = return_type_symbol; |
2776 function_type_prefix = return_type_symbol; |
2702 break; |
2777 break; |
2703 |
2778 |
2704 } |
2779 } |
2716 case function_dint_to_int : |
2791 case function_dint_to_int : |
2717 { |
2792 { |
2718 symbol_c *last_type_symbol = NULL; |
2793 symbol_c *last_type_symbol = NULL; |
2719 |
2794 |
2720 { |
2795 { |
|
2796 identifier_c IN_param_name("IN"); |
2721 /* 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 */ |
2722 symbol_c *IN_param_value = &this->default_variable_name; |
2798 symbol_c *IN_param_value = &this->default_variable_name; |
2723 |
2799 |
2724 symbol_c *IN_type_symbol = param_data_type; |
2800 symbol_c *IN_type_symbol = param_data_type; |
2725 last_type_symbol = param_data_type; |
2801 last_type_symbol = param_data_type; |
2729 |
2805 |
2730 function_name = (symbol_c*)(new pragma_c("__move_")); |
2806 function_name = (symbol_c*)(new pragma_c("__move_")); |
2731 |
2807 |
2732 if (IN_type_symbol == NULL) |
2808 if (IN_type_symbol == NULL) |
2733 IN_type_symbol = last_type_symbol; |
2809 IN_type_symbol = last_type_symbol; |
2734 ADD_PARAM_LIST(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) |
2735 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; |
2736 function_type_prefix = return_type_symbol; |
2812 function_type_prefix = return_type_symbol; |
2737 function_type_suffix = IN_type_symbol; |
2813 function_type_suffix = IN_type_symbol; |
2738 break; |
2814 break; |
2739 |
2815 |
2752 case function_date_to_real : |
2828 case function_date_to_real : |
2753 { |
2829 { |
2754 symbol_c *last_type_symbol = NULL; |
2830 symbol_c *last_type_symbol = NULL; |
2755 |
2831 |
2756 { |
2832 { |
|
2833 identifier_c IN_param_name("IN"); |
2757 /* 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 */ |
2758 symbol_c *IN_param_value = &this->default_variable_name; |
2835 symbol_c *IN_param_value = &this->default_variable_name; |
2759 |
2836 |
2760 symbol_c *IN_type_symbol = param_data_type; |
2837 symbol_c *IN_type_symbol = param_data_type; |
2761 last_type_symbol = param_data_type; |
2838 last_type_symbol = param_data_type; |
2765 |
2842 |
2766 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
2843 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
2767 |
2844 |
2768 if (IN_type_symbol == NULL) |
2845 if (IN_type_symbol == NULL) |
2769 IN_type_symbol = last_type_symbol; |
2846 IN_type_symbol = last_type_symbol; |
2770 ADD_PARAM_LIST(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) |
2771 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; |
2772 function_type_prefix = return_type_symbol; |
2849 function_type_prefix = return_type_symbol; |
2773 break; |
2850 break; |
2774 |
2851 |
2775 } |
2852 } |
2787 case function_date_to_sint : |
2864 case function_date_to_sint : |
2788 { |
2865 { |
2789 symbol_c *last_type_symbol = NULL; |
2866 symbol_c *last_type_symbol = NULL; |
2790 |
2867 |
2791 { |
2868 { |
|
2869 identifier_c IN_param_name("IN"); |
2792 /* 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 */ |
2793 symbol_c *IN_param_value = &this->default_variable_name; |
2871 symbol_c *IN_param_value = &this->default_variable_name; |
2794 |
2872 |
2795 symbol_c *IN_type_symbol = param_data_type; |
2873 symbol_c *IN_type_symbol = param_data_type; |
2796 last_type_symbol = param_data_type; |
2874 last_type_symbol = param_data_type; |
2800 |
2878 |
2801 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2879 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2802 |
2880 |
2803 if (IN_type_symbol == NULL) |
2881 if (IN_type_symbol == NULL) |
2804 IN_type_symbol = last_type_symbol; |
2882 IN_type_symbol = last_type_symbol; |
2805 ADD_PARAM_LIST(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) |
2806 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; |
2807 function_type_prefix = return_type_symbol; |
2885 function_type_prefix = return_type_symbol; |
2808 break; |
2886 break; |
2809 |
2887 |
2810 } |
2888 } |
2822 case function_date_to_lint : |
2900 case function_date_to_lint : |
2823 { |
2901 { |
2824 symbol_c *last_type_symbol = NULL; |
2902 symbol_c *last_type_symbol = NULL; |
2825 |
2903 |
2826 { |
2904 { |
|
2905 identifier_c IN_param_name("IN"); |
2827 /* 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 */ |
2828 symbol_c *IN_param_value = &this->default_variable_name; |
2907 symbol_c *IN_param_value = &this->default_variable_name; |
2829 |
2908 |
2830 symbol_c *IN_type_symbol = param_data_type; |
2909 symbol_c *IN_type_symbol = param_data_type; |
2831 last_type_symbol = param_data_type; |
2910 last_type_symbol = param_data_type; |
2835 |
2914 |
2836 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2915 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2837 |
2916 |
2838 if (IN_type_symbol == NULL) |
2917 if (IN_type_symbol == NULL) |
2839 IN_type_symbol = last_type_symbol; |
2918 IN_type_symbol = last_type_symbol; |
2840 ADD_PARAM_LIST(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) |
2841 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; |
2842 function_type_prefix = return_type_symbol; |
2921 function_type_prefix = return_type_symbol; |
2843 break; |
2922 break; |
2844 |
2923 |
2845 } |
2924 } |
2857 case function_date_to_dint : |
2936 case function_date_to_dint : |
2858 { |
2937 { |
2859 symbol_c *last_type_symbol = NULL; |
2938 symbol_c *last_type_symbol = NULL; |
2860 |
2939 |
2861 { |
2940 { |
|
2941 identifier_c IN_param_name("IN"); |
2862 /* 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 */ |
2863 symbol_c *IN_param_value = &this->default_variable_name; |
2943 symbol_c *IN_param_value = &this->default_variable_name; |
2864 |
2944 |
2865 symbol_c *IN_type_symbol = param_data_type; |
2945 symbol_c *IN_type_symbol = param_data_type; |
2866 last_type_symbol = param_data_type; |
2946 last_type_symbol = param_data_type; |
2870 |
2950 |
2871 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2951 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2872 |
2952 |
2873 if (IN_type_symbol == NULL) |
2953 if (IN_type_symbol == NULL) |
2874 IN_type_symbol = last_type_symbol; |
2954 IN_type_symbol = last_type_symbol; |
2875 ADD_PARAM_LIST(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) |
2876 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; |
2877 function_type_prefix = return_type_symbol; |
2957 function_type_prefix = return_type_symbol; |
2878 break; |
2958 break; |
2879 |
2959 |
2880 } |
2960 } |
2892 case function_date_to_dword : |
2972 case function_date_to_dword : |
2893 { |
2973 { |
2894 symbol_c *last_type_symbol = NULL; |
2974 symbol_c *last_type_symbol = NULL; |
2895 |
2975 |
2896 { |
2976 { |
|
2977 identifier_c IN_param_name("IN"); |
2897 /* 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 */ |
2898 symbol_c *IN_param_value = &this->default_variable_name; |
2979 symbol_c *IN_param_value = &this->default_variable_name; |
2899 |
2980 |
2900 symbol_c *IN_type_symbol = param_data_type; |
2981 symbol_c *IN_type_symbol = param_data_type; |
2901 last_type_symbol = param_data_type; |
2982 last_type_symbol = param_data_type; |
2905 |
2986 |
2906 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2987 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2907 |
2988 |
2908 if (IN_type_symbol == NULL) |
2989 if (IN_type_symbol == NULL) |
2909 IN_type_symbol = last_type_symbol; |
2990 IN_type_symbol = last_type_symbol; |
2910 ADD_PARAM_LIST(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) |
2911 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; |
2912 function_type_prefix = return_type_symbol; |
2993 function_type_prefix = return_type_symbol; |
2913 break; |
2994 break; |
2914 |
2995 |
2915 } |
2996 } |
2927 case function_date_to_udint : |
3008 case function_date_to_udint : |
2928 { |
3009 { |
2929 symbol_c *last_type_symbol = NULL; |
3010 symbol_c *last_type_symbol = NULL; |
2930 |
3011 |
2931 { |
3012 { |
|
3013 identifier_c IN_param_name("IN"); |
2932 /* 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 */ |
2933 symbol_c *IN_param_value = &this->default_variable_name; |
3015 symbol_c *IN_param_value = &this->default_variable_name; |
2934 |
3016 |
2935 symbol_c *IN_type_symbol = param_data_type; |
3017 symbol_c *IN_type_symbol = param_data_type; |
2936 last_type_symbol = param_data_type; |
3018 last_type_symbol = param_data_type; |
2940 |
3022 |
2941 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3023 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2942 |
3024 |
2943 if (IN_type_symbol == NULL) |
3025 if (IN_type_symbol == NULL) |
2944 IN_type_symbol = last_type_symbol; |
3026 IN_type_symbol = last_type_symbol; |
2945 ADD_PARAM_LIST(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) |
2946 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; |
2947 function_type_prefix = return_type_symbol; |
3029 function_type_prefix = return_type_symbol; |
2948 break; |
3030 break; |
2949 |
3031 |
2950 } |
3032 } |
2962 case function_date_to_word : |
3044 case function_date_to_word : |
2963 { |
3045 { |
2964 symbol_c *last_type_symbol = NULL; |
3046 symbol_c *last_type_symbol = NULL; |
2965 |
3047 |
2966 { |
3048 { |
|
3049 identifier_c IN_param_name("IN"); |
2967 /* 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 */ |
2968 symbol_c *IN_param_value = &this->default_variable_name; |
3051 symbol_c *IN_param_value = &this->default_variable_name; |
2969 |
3052 |
2970 symbol_c *IN_type_symbol = param_data_type; |
3053 symbol_c *IN_type_symbol = param_data_type; |
2971 last_type_symbol = param_data_type; |
3054 last_type_symbol = param_data_type; |
2975 |
3058 |
2976 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3059 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
2977 |
3060 |
2978 if (IN_type_symbol == NULL) |
3061 if (IN_type_symbol == NULL) |
2979 IN_type_symbol = last_type_symbol; |
3062 IN_type_symbol = last_type_symbol; |
2980 ADD_PARAM_LIST(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) |
2981 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; |
2982 function_type_prefix = return_type_symbol; |
3065 function_type_prefix = return_type_symbol; |
2983 break; |
3066 break; |
2984 |
3067 |
2985 } |
3068 } |
2997 case function_date_to_string : |
3080 case function_date_to_string : |
2998 { |
3081 { |
2999 symbol_c *last_type_symbol = NULL; |
3082 symbol_c *last_type_symbol = NULL; |
3000 |
3083 |
3001 { |
3084 { |
|
3085 identifier_c IN_param_name("IN"); |
3002 /* 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 */ |
3003 symbol_c *IN_param_value = &this->default_variable_name; |
3087 symbol_c *IN_param_value = &this->default_variable_name; |
3004 |
3088 |
3005 symbol_c *IN_type_symbol = param_data_type; |
3089 symbol_c *IN_type_symbol = param_data_type; |
3006 last_type_symbol = param_data_type; |
3090 last_type_symbol = param_data_type; |
3010 |
3094 |
3011 function_name = (symbol_c*)(new pragma_c("__date_to_string")); |
3095 function_name = (symbol_c*)(new pragma_c("__date_to_string")); |
3012 |
3096 |
3013 if (IN_type_symbol == NULL) |
3097 if (IN_type_symbol == NULL) |
3014 IN_type_symbol = last_type_symbol; |
3098 IN_type_symbol = last_type_symbol; |
3015 ADD_PARAM_LIST(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) |
3016 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; |
3017 function_type_prefix = return_type_symbol; |
3101 function_type_prefix = return_type_symbol; |
3018 break; |
3102 break; |
3019 |
3103 |
3020 } |
3104 } |
3032 case function_date_to_lword : |
3116 case function_date_to_lword : |
3033 { |
3117 { |
3034 symbol_c *last_type_symbol = NULL; |
3118 symbol_c *last_type_symbol = NULL; |
3035 |
3119 |
3036 { |
3120 { |
|
3121 identifier_c IN_param_name("IN"); |
3037 /* 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 */ |
3038 symbol_c *IN_param_value = &this->default_variable_name; |
3123 symbol_c *IN_param_value = &this->default_variable_name; |
3039 |
3124 |
3040 symbol_c *IN_type_symbol = param_data_type; |
3125 symbol_c *IN_type_symbol = param_data_type; |
3041 last_type_symbol = param_data_type; |
3126 last_type_symbol = param_data_type; |
3045 |
3130 |
3046 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3131 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3047 |
3132 |
3048 if (IN_type_symbol == NULL) |
3133 if (IN_type_symbol == NULL) |
3049 IN_type_symbol = last_type_symbol; |
3134 IN_type_symbol = last_type_symbol; |
3050 ADD_PARAM_LIST(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) |
3051 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; |
3052 function_type_prefix = return_type_symbol; |
3137 function_type_prefix = return_type_symbol; |
3053 break; |
3138 break; |
3054 |
3139 |
3055 } |
3140 } |
3067 case function_date_to_uint : |
3152 case function_date_to_uint : |
3068 { |
3153 { |
3069 symbol_c *last_type_symbol = NULL; |
3154 symbol_c *last_type_symbol = NULL; |
3070 |
3155 |
3071 { |
3156 { |
|
3157 identifier_c IN_param_name("IN"); |
3072 /* 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 */ |
3073 symbol_c *IN_param_value = &this->default_variable_name; |
3159 symbol_c *IN_param_value = &this->default_variable_name; |
3074 |
3160 |
3075 symbol_c *IN_type_symbol = param_data_type; |
3161 symbol_c *IN_type_symbol = param_data_type; |
3076 last_type_symbol = param_data_type; |
3162 last_type_symbol = param_data_type; |
3080 |
3166 |
3081 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3167 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3082 |
3168 |
3083 if (IN_type_symbol == NULL) |
3169 if (IN_type_symbol == NULL) |
3084 IN_type_symbol = last_type_symbol; |
3170 IN_type_symbol = last_type_symbol; |
3085 ADD_PARAM_LIST(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) |
3086 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; |
3087 function_type_prefix = return_type_symbol; |
3173 function_type_prefix = return_type_symbol; |
3088 break; |
3174 break; |
3089 |
3175 |
3090 } |
3176 } |
3102 case function_date_to_lreal : |
3188 case function_date_to_lreal : |
3103 { |
3189 { |
3104 symbol_c *last_type_symbol = NULL; |
3190 symbol_c *last_type_symbol = NULL; |
3105 |
3191 |
3106 { |
3192 { |
|
3193 identifier_c IN_param_name("IN"); |
3107 /* 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 */ |
3108 symbol_c *IN_param_value = &this->default_variable_name; |
3195 symbol_c *IN_param_value = &this->default_variable_name; |
3109 |
3196 |
3110 symbol_c *IN_type_symbol = param_data_type; |
3197 symbol_c *IN_type_symbol = param_data_type; |
3111 last_type_symbol = param_data_type; |
3198 last_type_symbol = param_data_type; |
3115 |
3202 |
3116 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
3203 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
3117 |
3204 |
3118 if (IN_type_symbol == NULL) |
3205 if (IN_type_symbol == NULL) |
3119 IN_type_symbol = last_type_symbol; |
3206 IN_type_symbol = last_type_symbol; |
3120 ADD_PARAM_LIST(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) |
3121 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; |
3122 function_type_prefix = return_type_symbol; |
3209 function_type_prefix = return_type_symbol; |
3123 break; |
3210 break; |
3124 |
3211 |
3125 } |
3212 } |
3137 case function_date_to_byte : |
3224 case function_date_to_byte : |
3138 { |
3225 { |
3139 symbol_c *last_type_symbol = NULL; |
3226 symbol_c *last_type_symbol = NULL; |
3140 |
3227 |
3141 { |
3228 { |
|
3229 identifier_c IN_param_name("IN"); |
3142 /* 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 */ |
3143 symbol_c *IN_param_value = &this->default_variable_name; |
3231 symbol_c *IN_param_value = &this->default_variable_name; |
3144 |
3232 |
3145 symbol_c *IN_type_symbol = param_data_type; |
3233 symbol_c *IN_type_symbol = param_data_type; |
3146 last_type_symbol = param_data_type; |
3234 last_type_symbol = param_data_type; |
3150 |
3238 |
3151 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3239 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3152 |
3240 |
3153 if (IN_type_symbol == NULL) |
3241 if (IN_type_symbol == NULL) |
3154 IN_type_symbol = last_type_symbol; |
3242 IN_type_symbol = last_type_symbol; |
3155 ADD_PARAM_LIST(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) |
3156 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; |
3157 function_type_prefix = return_type_symbol; |
3245 function_type_prefix = return_type_symbol; |
3158 break; |
3246 break; |
3159 |
3247 |
3160 } |
3248 } |
3172 case function_date_to_usint : |
3260 case function_date_to_usint : |
3173 { |
3261 { |
3174 symbol_c *last_type_symbol = NULL; |
3262 symbol_c *last_type_symbol = NULL; |
3175 |
3263 |
3176 { |
3264 { |
|
3265 identifier_c IN_param_name("IN"); |
3177 /* 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 */ |
3178 symbol_c *IN_param_value = &this->default_variable_name; |
3267 symbol_c *IN_param_value = &this->default_variable_name; |
3179 |
3268 |
3180 symbol_c *IN_type_symbol = param_data_type; |
3269 symbol_c *IN_type_symbol = param_data_type; |
3181 last_type_symbol = param_data_type; |
3270 last_type_symbol = param_data_type; |
3185 |
3274 |
3186 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3275 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3187 |
3276 |
3188 if (IN_type_symbol == NULL) |
3277 if (IN_type_symbol == NULL) |
3189 IN_type_symbol = last_type_symbol; |
3278 IN_type_symbol = last_type_symbol; |
3190 ADD_PARAM_LIST(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) |
3191 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; |
3192 function_type_prefix = return_type_symbol; |
3281 function_type_prefix = return_type_symbol; |
3193 break; |
3282 break; |
3194 |
3283 |
3195 } |
3284 } |
3207 case function_date_to_ulint : |
3296 case function_date_to_ulint : |
3208 { |
3297 { |
3209 symbol_c *last_type_symbol = NULL; |
3298 symbol_c *last_type_symbol = NULL; |
3210 |
3299 |
3211 { |
3300 { |
|
3301 identifier_c IN_param_name("IN"); |
3212 /* 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 */ |
3213 symbol_c *IN_param_value = &this->default_variable_name; |
3303 symbol_c *IN_param_value = &this->default_variable_name; |
3214 |
3304 |
3215 symbol_c *IN_type_symbol = param_data_type; |
3305 symbol_c *IN_type_symbol = param_data_type; |
3216 last_type_symbol = param_data_type; |
3306 last_type_symbol = param_data_type; |
3220 |
3310 |
3221 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3311 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3222 |
3312 |
3223 if (IN_type_symbol == NULL) |
3313 if (IN_type_symbol == NULL) |
3224 IN_type_symbol = last_type_symbol; |
3314 IN_type_symbol = last_type_symbol; |
3225 ADD_PARAM_LIST(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) |
3226 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; |
3227 function_type_prefix = return_type_symbol; |
3317 function_type_prefix = return_type_symbol; |
3228 break; |
3318 break; |
3229 |
3319 |
3230 } |
3320 } |
3242 case function_date_to_int : |
3332 case function_date_to_int : |
3243 { |
3333 { |
3244 symbol_c *last_type_symbol = NULL; |
3334 symbol_c *last_type_symbol = NULL; |
3245 |
3335 |
3246 { |
3336 { |
|
3337 identifier_c IN_param_name("IN"); |
3247 /* 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 */ |
3248 symbol_c *IN_param_value = &this->default_variable_name; |
3339 symbol_c *IN_param_value = &this->default_variable_name; |
3249 |
3340 |
3250 symbol_c *IN_type_symbol = param_data_type; |
3341 symbol_c *IN_type_symbol = param_data_type; |
3251 last_type_symbol = param_data_type; |
3342 last_type_symbol = param_data_type; |
3255 |
3346 |
3256 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3347 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
3257 |
3348 |
3258 if (IN_type_symbol == NULL) |
3349 if (IN_type_symbol == NULL) |
3259 IN_type_symbol = last_type_symbol; |
3350 IN_type_symbol = last_type_symbol; |
3260 ADD_PARAM_LIST(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) |
3261 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; |
3262 function_type_prefix = return_type_symbol; |
3353 function_type_prefix = return_type_symbol; |
3263 break; |
3354 break; |
3264 |
3355 |
3265 } |
3356 } |
3277 case function_dword_to_real : |
3368 case function_dword_to_real : |
3278 { |
3369 { |
3279 symbol_c *last_type_symbol = NULL; |
3370 symbol_c *last_type_symbol = NULL; |
3280 |
3371 |
3281 { |
3372 { |
|
3373 identifier_c IN_param_name("IN"); |
3282 /* 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 */ |
3283 symbol_c *IN_param_value = &this->default_variable_name; |
3375 symbol_c *IN_param_value = &this->default_variable_name; |
3284 |
3376 |
3285 symbol_c *IN_type_symbol = param_data_type; |
3377 symbol_c *IN_type_symbol = param_data_type; |
3286 last_type_symbol = param_data_type; |
3378 last_type_symbol = param_data_type; |
3290 |
3382 |
3291 function_name = (symbol_c*)(new pragma_c("__move_")); |
3383 function_name = (symbol_c*)(new pragma_c("__move_")); |
3292 |
3384 |
3293 if (IN_type_symbol == NULL) |
3385 if (IN_type_symbol == NULL) |
3294 IN_type_symbol = last_type_symbol; |
3386 IN_type_symbol = last_type_symbol; |
3295 ADD_PARAM_LIST(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) |
3296 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; |
3297 function_type_prefix = return_type_symbol; |
3389 function_type_prefix = return_type_symbol; |
3298 function_type_suffix = IN_type_symbol; |
3390 function_type_suffix = IN_type_symbol; |
3299 break; |
3391 break; |
3300 |
3392 |
3313 case function_dword_to_sint : |
3405 case function_dword_to_sint : |
3314 { |
3406 { |
3315 symbol_c *last_type_symbol = NULL; |
3407 symbol_c *last_type_symbol = NULL; |
3316 |
3408 |
3317 { |
3409 { |
|
3410 identifier_c IN_param_name("IN"); |
3318 /* 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 */ |
3319 symbol_c *IN_param_value = &this->default_variable_name; |
3412 symbol_c *IN_param_value = &this->default_variable_name; |
3320 |
3413 |
3321 symbol_c *IN_type_symbol = param_data_type; |
3414 symbol_c *IN_type_symbol = param_data_type; |
3322 last_type_symbol = param_data_type; |
3415 last_type_symbol = param_data_type; |
3326 |
3419 |
3327 function_name = (symbol_c*)(new pragma_c("__move_")); |
3420 function_name = (symbol_c*)(new pragma_c("__move_")); |
3328 |
3421 |
3329 if (IN_type_symbol == NULL) |
3422 if (IN_type_symbol == NULL) |
3330 IN_type_symbol = last_type_symbol; |
3423 IN_type_symbol = last_type_symbol; |
3331 ADD_PARAM_LIST(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) |
3332 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; |
3333 function_type_prefix = return_type_symbol; |
3426 function_type_prefix = return_type_symbol; |
3334 function_type_suffix = IN_type_symbol; |
3427 function_type_suffix = IN_type_symbol; |
3335 break; |
3428 break; |
3336 |
3429 |
3349 case function_dword_to_lint : |
3442 case function_dword_to_lint : |
3350 { |
3443 { |
3351 symbol_c *last_type_symbol = NULL; |
3444 symbol_c *last_type_symbol = NULL; |
3352 |
3445 |
3353 { |
3446 { |
|
3447 identifier_c IN_param_name("IN"); |
3354 /* 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 */ |
3355 symbol_c *IN_param_value = &this->default_variable_name; |
3449 symbol_c *IN_param_value = &this->default_variable_name; |
3356 |
3450 |
3357 symbol_c *IN_type_symbol = param_data_type; |
3451 symbol_c *IN_type_symbol = param_data_type; |
3358 last_type_symbol = param_data_type; |
3452 last_type_symbol = param_data_type; |
3362 |
3456 |
3363 function_name = (symbol_c*)(new pragma_c("__move_")); |
3457 function_name = (symbol_c*)(new pragma_c("__move_")); |
3364 |
3458 |
3365 if (IN_type_symbol == NULL) |
3459 if (IN_type_symbol == NULL) |
3366 IN_type_symbol = last_type_symbol; |
3460 IN_type_symbol = last_type_symbol; |
3367 ADD_PARAM_LIST(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) |
3368 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; |
3369 function_type_prefix = return_type_symbol; |
3463 function_type_prefix = return_type_symbol; |
3370 function_type_suffix = IN_type_symbol; |
3464 function_type_suffix = IN_type_symbol; |
3371 break; |
3465 break; |
3372 |
3466 |
3385 case function_dword_to_dint : |
3479 case function_dword_to_dint : |
3386 { |
3480 { |
3387 symbol_c *last_type_symbol = NULL; |
3481 symbol_c *last_type_symbol = NULL; |
3388 |
3482 |
3389 { |
3483 { |
|
3484 identifier_c IN_param_name("IN"); |
3390 /* 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 */ |
3391 symbol_c *IN_param_value = &this->default_variable_name; |
3486 symbol_c *IN_param_value = &this->default_variable_name; |
3392 |
3487 |
3393 symbol_c *IN_type_symbol = param_data_type; |
3488 symbol_c *IN_type_symbol = param_data_type; |
3394 last_type_symbol = param_data_type; |
3489 last_type_symbol = param_data_type; |
3398 |
3493 |
3399 function_name = (symbol_c*)(new pragma_c("__move_")); |
3494 function_name = (symbol_c*)(new pragma_c("__move_")); |
3400 |
3495 |
3401 if (IN_type_symbol == NULL) |
3496 if (IN_type_symbol == NULL) |
3402 IN_type_symbol = last_type_symbol; |
3497 IN_type_symbol = last_type_symbol; |
3403 ADD_PARAM_LIST(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) |
3404 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; |
3405 function_type_prefix = return_type_symbol; |
3500 function_type_prefix = return_type_symbol; |
3406 function_type_suffix = IN_type_symbol; |
3501 function_type_suffix = IN_type_symbol; |
3407 break; |
3502 break; |
3408 |
3503 |
3421 case function_dword_to_date : |
3516 case function_dword_to_date : |
3422 { |
3517 { |
3423 symbol_c *last_type_symbol = NULL; |
3518 symbol_c *last_type_symbol = NULL; |
3424 |
3519 |
3425 { |
3520 { |
|
3521 identifier_c IN_param_name("IN"); |
3426 /* 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 */ |
3427 symbol_c *IN_param_value = &this->default_variable_name; |
3523 symbol_c *IN_param_value = &this->default_variable_name; |
3428 |
3524 |
3429 symbol_c *IN_type_symbol = param_data_type; |
3525 symbol_c *IN_type_symbol = param_data_type; |
3430 last_type_symbol = param_data_type; |
3526 last_type_symbol = param_data_type; |
3434 |
3530 |
3435 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3531 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3436 |
3532 |
3437 if (IN_type_symbol == NULL) |
3533 if (IN_type_symbol == NULL) |
3438 IN_type_symbol = last_type_symbol; |
3534 IN_type_symbol = last_type_symbol; |
3439 ADD_PARAM_LIST(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) |
3440 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; |
3441 function_type_prefix = return_type_symbol; |
3537 function_type_prefix = return_type_symbol; |
3442 break; |
3538 break; |
3443 |
3539 |
3444 } |
3540 } |
3456 case function_dword_to_dt : |
3552 case function_dword_to_dt : |
3457 { |
3553 { |
3458 symbol_c *last_type_symbol = NULL; |
3554 symbol_c *last_type_symbol = NULL; |
3459 |
3555 |
3460 { |
3556 { |
|
3557 identifier_c IN_param_name("IN"); |
3461 /* 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 */ |
3462 symbol_c *IN_param_value = &this->default_variable_name; |
3559 symbol_c *IN_param_value = &this->default_variable_name; |
3463 |
3560 |
3464 symbol_c *IN_type_symbol = param_data_type; |
3561 symbol_c *IN_type_symbol = param_data_type; |
3465 last_type_symbol = param_data_type; |
3562 last_type_symbol = param_data_type; |
3469 |
3566 |
3470 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3567 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3471 |
3568 |
3472 if (IN_type_symbol == NULL) |
3569 if (IN_type_symbol == NULL) |
3473 IN_type_symbol = last_type_symbol; |
3570 IN_type_symbol = last_type_symbol; |
3474 ADD_PARAM_LIST(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) |
3475 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; |
3476 function_type_prefix = return_type_symbol; |
3573 function_type_prefix = return_type_symbol; |
3477 break; |
3574 break; |
3478 |
3575 |
3479 } |
3576 } |
3491 case function_dword_to_tod : |
3588 case function_dword_to_tod : |
3492 { |
3589 { |
3493 symbol_c *last_type_symbol = NULL; |
3590 symbol_c *last_type_symbol = NULL; |
3494 |
3591 |
3495 { |
3592 { |
|
3593 identifier_c IN_param_name("IN"); |
3496 /* 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 */ |
3497 symbol_c *IN_param_value = &this->default_variable_name; |
3595 symbol_c *IN_param_value = &this->default_variable_name; |
3498 |
3596 |
3499 symbol_c *IN_type_symbol = param_data_type; |
3597 symbol_c *IN_type_symbol = param_data_type; |
3500 last_type_symbol = param_data_type; |
3598 last_type_symbol = param_data_type; |
3504 |
3602 |
3505 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3603 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3506 |
3604 |
3507 if (IN_type_symbol == NULL) |
3605 if (IN_type_symbol == NULL) |
3508 IN_type_symbol = last_type_symbol; |
3606 IN_type_symbol = last_type_symbol; |
3509 ADD_PARAM_LIST(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) |
3510 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; |
3511 function_type_prefix = return_type_symbol; |
3609 function_type_prefix = return_type_symbol; |
3512 break; |
3610 break; |
3513 |
3611 |
3514 } |
3612 } |
3526 case function_dword_to_udint : |
3624 case function_dword_to_udint : |
3527 { |
3625 { |
3528 symbol_c *last_type_symbol = NULL; |
3626 symbol_c *last_type_symbol = NULL; |
3529 |
3627 |
3530 { |
3628 { |
|
3629 identifier_c IN_param_name("IN"); |
3531 /* 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 */ |
3532 symbol_c *IN_param_value = &this->default_variable_name; |
3631 symbol_c *IN_param_value = &this->default_variable_name; |
3533 |
3632 |
3534 symbol_c *IN_type_symbol = param_data_type; |
3633 symbol_c *IN_type_symbol = param_data_type; |
3535 last_type_symbol = param_data_type; |
3634 last_type_symbol = param_data_type; |
3539 |
3638 |
3540 function_name = (symbol_c*)(new pragma_c("__move_")); |
3639 function_name = (symbol_c*)(new pragma_c("__move_")); |
3541 |
3640 |
3542 if (IN_type_symbol == NULL) |
3641 if (IN_type_symbol == NULL) |
3543 IN_type_symbol = last_type_symbol; |
3642 IN_type_symbol = last_type_symbol; |
3544 ADD_PARAM_LIST(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) |
3545 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; |
3546 function_type_prefix = return_type_symbol; |
3645 function_type_prefix = return_type_symbol; |
3547 function_type_suffix = IN_type_symbol; |
3646 function_type_suffix = IN_type_symbol; |
3548 break; |
3647 break; |
3549 |
3648 |
3562 case function_dword_to_word : |
3661 case function_dword_to_word : |
3563 { |
3662 { |
3564 symbol_c *last_type_symbol = NULL; |
3663 symbol_c *last_type_symbol = NULL; |
3565 |
3664 |
3566 { |
3665 { |
|
3666 identifier_c IN_param_name("IN"); |
3567 /* 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 */ |
3568 symbol_c *IN_param_value = &this->default_variable_name; |
3668 symbol_c *IN_param_value = &this->default_variable_name; |
3569 |
3669 |
3570 symbol_c *IN_type_symbol = param_data_type; |
3670 symbol_c *IN_type_symbol = param_data_type; |
3571 last_type_symbol = param_data_type; |
3671 last_type_symbol = param_data_type; |
3575 |
3675 |
3576 function_name = (symbol_c*)(new pragma_c("__move_")); |
3676 function_name = (symbol_c*)(new pragma_c("__move_")); |
3577 |
3677 |
3578 if (IN_type_symbol == NULL) |
3678 if (IN_type_symbol == NULL) |
3579 IN_type_symbol = last_type_symbol; |
3679 IN_type_symbol = last_type_symbol; |
3580 ADD_PARAM_LIST(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) |
3581 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; |
3582 function_type_prefix = return_type_symbol; |
3682 function_type_prefix = return_type_symbol; |
3583 function_type_suffix = IN_type_symbol; |
3683 function_type_suffix = IN_type_symbol; |
3584 break; |
3684 break; |
3585 |
3685 |
3598 case function_dword_to_string : |
3698 case function_dword_to_string : |
3599 { |
3699 { |
3600 symbol_c *last_type_symbol = NULL; |
3700 symbol_c *last_type_symbol = NULL; |
3601 |
3701 |
3602 { |
3702 { |
|
3703 identifier_c IN_param_name("IN"); |
3603 /* 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 */ |
3604 symbol_c *IN_param_value = &this->default_variable_name; |
3705 symbol_c *IN_param_value = &this->default_variable_name; |
3605 |
3706 |
3606 symbol_c *IN_type_symbol = param_data_type; |
3707 symbol_c *IN_type_symbol = param_data_type; |
3607 last_type_symbol = param_data_type; |
3708 last_type_symbol = param_data_type; |
3611 |
3712 |
3612 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
3713 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
3613 |
3714 |
3614 if (IN_type_symbol == NULL) |
3715 if (IN_type_symbol == NULL) |
3615 IN_type_symbol = last_type_symbol; |
3716 IN_type_symbol = last_type_symbol; |
3616 ADD_PARAM_LIST(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) |
3617 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; |
3618 function_type_prefix = return_type_symbol; |
3719 function_type_prefix = return_type_symbol; |
3619 break; |
3720 break; |
3620 |
3721 |
3621 } |
3722 } |
3633 case function_dword_to_lword : |
3734 case function_dword_to_lword : |
3634 { |
3735 { |
3635 symbol_c *last_type_symbol = NULL; |
3736 symbol_c *last_type_symbol = NULL; |
3636 |
3737 |
3637 { |
3738 { |
|
3739 identifier_c IN_param_name("IN"); |
3638 /* 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 */ |
3639 symbol_c *IN_param_value = &this->default_variable_name; |
3741 symbol_c *IN_param_value = &this->default_variable_name; |
3640 |
3742 |
3641 symbol_c *IN_type_symbol = param_data_type; |
3743 symbol_c *IN_type_symbol = param_data_type; |
3642 last_type_symbol = param_data_type; |
3744 last_type_symbol = param_data_type; |
3646 |
3748 |
3647 function_name = (symbol_c*)(new pragma_c("__move_")); |
3749 function_name = (symbol_c*)(new pragma_c("__move_")); |
3648 |
3750 |
3649 if (IN_type_symbol == NULL) |
3751 if (IN_type_symbol == NULL) |
3650 IN_type_symbol = last_type_symbol; |
3752 IN_type_symbol = last_type_symbol; |
3651 ADD_PARAM_LIST(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) |
3652 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; |
3653 function_type_prefix = return_type_symbol; |
3755 function_type_prefix = return_type_symbol; |
3654 function_type_suffix = IN_type_symbol; |
3756 function_type_suffix = IN_type_symbol; |
3655 break; |
3757 break; |
3656 |
3758 |
3669 case function_dword_to_uint : |
3771 case function_dword_to_uint : |
3670 { |
3772 { |
3671 symbol_c *last_type_symbol = NULL; |
3773 symbol_c *last_type_symbol = NULL; |
3672 |
3774 |
3673 { |
3775 { |
|
3776 identifier_c IN_param_name("IN"); |
3674 /* 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 */ |
3675 symbol_c *IN_param_value = &this->default_variable_name; |
3778 symbol_c *IN_param_value = &this->default_variable_name; |
3676 |
3779 |
3677 symbol_c *IN_type_symbol = param_data_type; |
3780 symbol_c *IN_type_symbol = param_data_type; |
3678 last_type_symbol = param_data_type; |
3781 last_type_symbol = param_data_type; |
3682 |
3785 |
3683 function_name = (symbol_c*)(new pragma_c("__move_")); |
3786 function_name = (symbol_c*)(new pragma_c("__move_")); |
3684 |
3787 |
3685 if (IN_type_symbol == NULL) |
3788 if (IN_type_symbol == NULL) |
3686 IN_type_symbol = last_type_symbol; |
3789 IN_type_symbol = last_type_symbol; |
3687 ADD_PARAM_LIST(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) |
3688 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; |
3689 function_type_prefix = return_type_symbol; |
3792 function_type_prefix = return_type_symbol; |
3690 function_type_suffix = IN_type_symbol; |
3793 function_type_suffix = IN_type_symbol; |
3691 break; |
3794 break; |
3692 |
3795 |
3705 case function_dword_to_lreal : |
3808 case function_dword_to_lreal : |
3706 { |
3809 { |
3707 symbol_c *last_type_symbol = NULL; |
3810 symbol_c *last_type_symbol = NULL; |
3708 |
3811 |
3709 { |
3812 { |
|
3813 identifier_c IN_param_name("IN"); |
3710 /* 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 */ |
3711 symbol_c *IN_param_value = &this->default_variable_name; |
3815 symbol_c *IN_param_value = &this->default_variable_name; |
3712 |
3816 |
3713 symbol_c *IN_type_symbol = param_data_type; |
3817 symbol_c *IN_type_symbol = param_data_type; |
3714 last_type_symbol = param_data_type; |
3818 last_type_symbol = param_data_type; |
3718 |
3822 |
3719 function_name = (symbol_c*)(new pragma_c("__move_")); |
3823 function_name = (symbol_c*)(new pragma_c("__move_")); |
3720 |
3824 |
3721 if (IN_type_symbol == NULL) |
3825 if (IN_type_symbol == NULL) |
3722 IN_type_symbol = last_type_symbol; |
3826 IN_type_symbol = last_type_symbol; |
3723 ADD_PARAM_LIST(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) |
3724 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; |
3725 function_type_prefix = return_type_symbol; |
3829 function_type_prefix = return_type_symbol; |
3726 function_type_suffix = IN_type_symbol; |
3830 function_type_suffix = IN_type_symbol; |
3727 break; |
3831 break; |
3728 |
3832 |
3741 case function_dword_to_byte : |
3845 case function_dword_to_byte : |
3742 { |
3846 { |
3743 symbol_c *last_type_symbol = NULL; |
3847 symbol_c *last_type_symbol = NULL; |
3744 |
3848 |
3745 { |
3849 { |
|
3850 identifier_c IN_param_name("IN"); |
3746 /* 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 */ |
3747 symbol_c *IN_param_value = &this->default_variable_name; |
3852 symbol_c *IN_param_value = &this->default_variable_name; |
3748 |
3853 |
3749 symbol_c *IN_type_symbol = param_data_type; |
3854 symbol_c *IN_type_symbol = param_data_type; |
3750 last_type_symbol = param_data_type; |
3855 last_type_symbol = param_data_type; |
3754 |
3859 |
3755 function_name = (symbol_c*)(new pragma_c("__move_")); |
3860 function_name = (symbol_c*)(new pragma_c("__move_")); |
3756 |
3861 |
3757 if (IN_type_symbol == NULL) |
3862 if (IN_type_symbol == NULL) |
3758 IN_type_symbol = last_type_symbol; |
3863 IN_type_symbol = last_type_symbol; |
3759 ADD_PARAM_LIST(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) |
3760 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; |
3761 function_type_prefix = return_type_symbol; |
3866 function_type_prefix = return_type_symbol; |
3762 function_type_suffix = IN_type_symbol; |
3867 function_type_suffix = IN_type_symbol; |
3763 break; |
3868 break; |
3764 |
3869 |
3777 case function_dword_to_usint : |
3882 case function_dword_to_usint : |
3778 { |
3883 { |
3779 symbol_c *last_type_symbol = NULL; |
3884 symbol_c *last_type_symbol = NULL; |
3780 |
3885 |
3781 { |
3886 { |
|
3887 identifier_c IN_param_name("IN"); |
3782 /* 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 */ |
3783 symbol_c *IN_param_value = &this->default_variable_name; |
3889 symbol_c *IN_param_value = &this->default_variable_name; |
3784 |
3890 |
3785 symbol_c *IN_type_symbol = param_data_type; |
3891 symbol_c *IN_type_symbol = param_data_type; |
3786 last_type_symbol = param_data_type; |
3892 last_type_symbol = param_data_type; |
3790 |
3896 |
3791 function_name = (symbol_c*)(new pragma_c("__move_")); |
3897 function_name = (symbol_c*)(new pragma_c("__move_")); |
3792 |
3898 |
3793 if (IN_type_symbol == NULL) |
3899 if (IN_type_symbol == NULL) |
3794 IN_type_symbol = last_type_symbol; |
3900 IN_type_symbol = last_type_symbol; |
3795 ADD_PARAM_LIST(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) |
3796 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; |
3797 function_type_prefix = return_type_symbol; |
3903 function_type_prefix = return_type_symbol; |
3798 function_type_suffix = IN_type_symbol; |
3904 function_type_suffix = IN_type_symbol; |
3799 break; |
3905 break; |
3800 |
3906 |
3813 case function_dword_to_ulint : |
3919 case function_dword_to_ulint : |
3814 { |
3920 { |
3815 symbol_c *last_type_symbol = NULL; |
3921 symbol_c *last_type_symbol = NULL; |
3816 |
3922 |
3817 { |
3923 { |
|
3924 identifier_c IN_param_name("IN"); |
3818 /* 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 */ |
3819 symbol_c *IN_param_value = &this->default_variable_name; |
3926 symbol_c *IN_param_value = &this->default_variable_name; |
3820 |
3927 |
3821 symbol_c *IN_type_symbol = param_data_type; |
3928 symbol_c *IN_type_symbol = param_data_type; |
3822 last_type_symbol = param_data_type; |
3929 last_type_symbol = param_data_type; |
3826 |
3933 |
3827 function_name = (symbol_c*)(new pragma_c("__move_")); |
3934 function_name = (symbol_c*)(new pragma_c("__move_")); |
3828 |
3935 |
3829 if (IN_type_symbol == NULL) |
3936 if (IN_type_symbol == NULL) |
3830 IN_type_symbol = last_type_symbol; |
3937 IN_type_symbol = last_type_symbol; |
3831 ADD_PARAM_LIST(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) |
3832 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; |
3833 function_type_prefix = return_type_symbol; |
3940 function_type_prefix = return_type_symbol; |
3834 function_type_suffix = IN_type_symbol; |
3941 function_type_suffix = IN_type_symbol; |
3835 break; |
3942 break; |
3836 |
3943 |
3849 case function_dword_to_bool : |
3956 case function_dword_to_bool : |
3850 { |
3957 { |
3851 symbol_c *last_type_symbol = NULL; |
3958 symbol_c *last_type_symbol = NULL; |
3852 |
3959 |
3853 { |
3960 { |
|
3961 identifier_c IN_param_name("IN"); |
3854 /* 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 */ |
3855 symbol_c *IN_param_value = &this->default_variable_name; |
3963 symbol_c *IN_param_value = &this->default_variable_name; |
3856 |
3964 |
3857 symbol_c *IN_type_symbol = param_data_type; |
3965 symbol_c *IN_type_symbol = param_data_type; |
3858 last_type_symbol = param_data_type; |
3966 last_type_symbol = param_data_type; |
3862 |
3970 |
3863 function_name = (symbol_c*)(new pragma_c("__move_")); |
3971 function_name = (symbol_c*)(new pragma_c("__move_")); |
3864 |
3972 |
3865 if (IN_type_symbol == NULL) |
3973 if (IN_type_symbol == NULL) |
3866 IN_type_symbol = last_type_symbol; |
3974 IN_type_symbol = last_type_symbol; |
3867 ADD_PARAM_LIST(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) |
3868 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; |
3869 function_type_prefix = return_type_symbol; |
3977 function_type_prefix = return_type_symbol; |
3870 function_type_suffix = IN_type_symbol; |
3978 function_type_suffix = IN_type_symbol; |
3871 break; |
3979 break; |
3872 |
3980 |
3885 case function_dword_to_time : |
3993 case function_dword_to_time : |
3886 { |
3994 { |
3887 symbol_c *last_type_symbol = NULL; |
3995 symbol_c *last_type_symbol = NULL; |
3888 |
3996 |
3889 { |
3997 { |
|
3998 identifier_c IN_param_name("IN"); |
3890 /* 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 */ |
3891 symbol_c *IN_param_value = &this->default_variable_name; |
4000 symbol_c *IN_param_value = &this->default_variable_name; |
3892 |
4001 |
3893 symbol_c *IN_type_symbol = param_data_type; |
4002 symbol_c *IN_type_symbol = param_data_type; |
3894 last_type_symbol = param_data_type; |
4003 last_type_symbol = param_data_type; |
3898 |
4007 |
3899 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
4008 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
3900 |
4009 |
3901 if (IN_type_symbol == NULL) |
4010 if (IN_type_symbol == NULL) |
3902 IN_type_symbol = last_type_symbol; |
4011 IN_type_symbol = last_type_symbol; |
3903 ADD_PARAM_LIST(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) |
3904 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; |
3905 function_type_prefix = return_type_symbol; |
4014 function_type_prefix = return_type_symbol; |
3906 break; |
4015 break; |
3907 |
4016 |
3908 } |
4017 } |
3920 case function_dword_to_int : |
4029 case function_dword_to_int : |
3921 { |
4030 { |
3922 symbol_c *last_type_symbol = NULL; |
4031 symbol_c *last_type_symbol = NULL; |
3923 |
4032 |
3924 { |
4033 { |
|
4034 identifier_c IN_param_name("IN"); |
3925 /* 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 */ |
3926 symbol_c *IN_param_value = &this->default_variable_name; |
4036 symbol_c *IN_param_value = &this->default_variable_name; |
3927 |
4037 |
3928 symbol_c *IN_type_symbol = param_data_type; |
4038 symbol_c *IN_type_symbol = param_data_type; |
3929 last_type_symbol = param_data_type; |
4039 last_type_symbol = param_data_type; |
3933 |
4043 |
3934 function_name = (symbol_c*)(new pragma_c("__move_")); |
4044 function_name = (symbol_c*)(new pragma_c("__move_")); |
3935 |
4045 |
3936 if (IN_type_symbol == NULL) |
4046 if (IN_type_symbol == NULL) |
3937 IN_type_symbol = last_type_symbol; |
4047 IN_type_symbol = last_type_symbol; |
3938 ADD_PARAM_LIST(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) |
3939 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; |
3940 function_type_prefix = return_type_symbol; |
4050 function_type_prefix = return_type_symbol; |
3941 function_type_suffix = IN_type_symbol; |
4051 function_type_suffix = IN_type_symbol; |
3942 break; |
4052 break; |
3943 |
4053 |
3956 case function_dt_to_real : |
4066 case function_dt_to_real : |
3957 { |
4067 { |
3958 symbol_c *last_type_symbol = NULL; |
4068 symbol_c *last_type_symbol = NULL; |
3959 |
4069 |
3960 { |
4070 { |
|
4071 identifier_c IN_param_name("IN"); |
3961 /* 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 */ |
3962 symbol_c *IN_param_value = &this->default_variable_name; |
4073 symbol_c *IN_param_value = &this->default_variable_name; |
3963 |
4074 |
3964 symbol_c *IN_type_symbol = param_data_type; |
4075 symbol_c *IN_type_symbol = param_data_type; |
3965 last_type_symbol = param_data_type; |
4076 last_type_symbol = param_data_type; |
3969 |
4080 |
3970 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4081 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
3971 |
4082 |
3972 if (IN_type_symbol == NULL) |
4083 if (IN_type_symbol == NULL) |
3973 IN_type_symbol = last_type_symbol; |
4084 IN_type_symbol = last_type_symbol; |
3974 ADD_PARAM_LIST(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) |
3975 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; |
3976 function_type_prefix = return_type_symbol; |
4087 function_type_prefix = return_type_symbol; |
3977 break; |
4088 break; |
3978 |
4089 |
3979 } |
4090 } |
3991 case function_dt_to_sint : |
4102 case function_dt_to_sint : |
3992 { |
4103 { |
3993 symbol_c *last_type_symbol = NULL; |
4104 symbol_c *last_type_symbol = NULL; |
3994 |
4105 |
3995 { |
4106 { |
|
4107 identifier_c IN_param_name("IN"); |
3996 /* 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 */ |
3997 symbol_c *IN_param_value = &this->default_variable_name; |
4109 symbol_c *IN_param_value = &this->default_variable_name; |
3998 |
4110 |
3999 symbol_c *IN_type_symbol = param_data_type; |
4111 symbol_c *IN_type_symbol = param_data_type; |
4000 last_type_symbol = param_data_type; |
4112 last_type_symbol = param_data_type; |
4004 |
4116 |
4005 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4117 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4006 |
4118 |
4007 if (IN_type_symbol == NULL) |
4119 if (IN_type_symbol == NULL) |
4008 IN_type_symbol = last_type_symbol; |
4120 IN_type_symbol = last_type_symbol; |
4009 ADD_PARAM_LIST(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) |
4010 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; |
4011 function_type_prefix = return_type_symbol; |
4123 function_type_prefix = return_type_symbol; |
4012 break; |
4124 break; |
4013 |
4125 |
4014 } |
4126 } |
4026 case function_dt_to_lint : |
4138 case function_dt_to_lint : |
4027 { |
4139 { |
4028 symbol_c *last_type_symbol = NULL; |
4140 symbol_c *last_type_symbol = NULL; |
4029 |
4141 |
4030 { |
4142 { |
|
4143 identifier_c IN_param_name("IN"); |
4031 /* 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 */ |
4032 symbol_c *IN_param_value = &this->default_variable_name; |
4145 symbol_c *IN_param_value = &this->default_variable_name; |
4033 |
4146 |
4034 symbol_c *IN_type_symbol = param_data_type; |
4147 symbol_c *IN_type_symbol = param_data_type; |
4035 last_type_symbol = param_data_type; |
4148 last_type_symbol = param_data_type; |
4039 |
4152 |
4040 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4153 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4041 |
4154 |
4042 if (IN_type_symbol == NULL) |
4155 if (IN_type_symbol == NULL) |
4043 IN_type_symbol = last_type_symbol; |
4156 IN_type_symbol = last_type_symbol; |
4044 ADD_PARAM_LIST(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) |
4045 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; |
4046 function_type_prefix = return_type_symbol; |
4159 function_type_prefix = return_type_symbol; |
4047 break; |
4160 break; |
4048 |
4161 |
4049 } |
4162 } |
4061 case function_dt_to_dint : |
4174 case function_dt_to_dint : |
4062 { |
4175 { |
4063 symbol_c *last_type_symbol = NULL; |
4176 symbol_c *last_type_symbol = NULL; |
4064 |
4177 |
4065 { |
4178 { |
|
4179 identifier_c IN_param_name("IN"); |
4066 /* 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 */ |
4067 symbol_c *IN_param_value = &this->default_variable_name; |
4181 symbol_c *IN_param_value = &this->default_variable_name; |
4068 |
4182 |
4069 symbol_c *IN_type_symbol = param_data_type; |
4183 symbol_c *IN_type_symbol = param_data_type; |
4070 last_type_symbol = param_data_type; |
4184 last_type_symbol = param_data_type; |
4074 |
4188 |
4075 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4189 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4076 |
4190 |
4077 if (IN_type_symbol == NULL) |
4191 if (IN_type_symbol == NULL) |
4078 IN_type_symbol = last_type_symbol; |
4192 IN_type_symbol = last_type_symbol; |
4079 ADD_PARAM_LIST(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) |
4080 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; |
4081 function_type_prefix = return_type_symbol; |
4195 function_type_prefix = return_type_symbol; |
4082 break; |
4196 break; |
4083 |
4197 |
4084 } |
4198 } |
4096 case function_dt_to_dword : |
4210 case function_dt_to_dword : |
4097 { |
4211 { |
4098 symbol_c *last_type_symbol = NULL; |
4212 symbol_c *last_type_symbol = NULL; |
4099 |
4213 |
4100 { |
4214 { |
|
4215 identifier_c IN_param_name("IN"); |
4101 /* 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 */ |
4102 symbol_c *IN_param_value = &this->default_variable_name; |
4217 symbol_c *IN_param_value = &this->default_variable_name; |
4103 |
4218 |
4104 symbol_c *IN_type_symbol = param_data_type; |
4219 symbol_c *IN_type_symbol = param_data_type; |
4105 last_type_symbol = param_data_type; |
4220 last_type_symbol = param_data_type; |
4109 |
4224 |
4110 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4225 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4111 |
4226 |
4112 if (IN_type_symbol == NULL) |
4227 if (IN_type_symbol == NULL) |
4113 IN_type_symbol = last_type_symbol; |
4228 IN_type_symbol = last_type_symbol; |
4114 ADD_PARAM_LIST(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) |
4115 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; |
4116 function_type_prefix = return_type_symbol; |
4231 function_type_prefix = return_type_symbol; |
4117 break; |
4232 break; |
4118 |
4233 |
4119 } |
4234 } |
4131 case function_dt_to_udint : |
4246 case function_dt_to_udint : |
4132 { |
4247 { |
4133 symbol_c *last_type_symbol = NULL; |
4248 symbol_c *last_type_symbol = NULL; |
4134 |
4249 |
4135 { |
4250 { |
|
4251 identifier_c IN_param_name("IN"); |
4136 /* 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 */ |
4137 symbol_c *IN_param_value = &this->default_variable_name; |
4253 symbol_c *IN_param_value = &this->default_variable_name; |
4138 |
4254 |
4139 symbol_c *IN_type_symbol = param_data_type; |
4255 symbol_c *IN_type_symbol = param_data_type; |
4140 last_type_symbol = param_data_type; |
4256 last_type_symbol = param_data_type; |
4144 |
4260 |
4145 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4261 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4146 |
4262 |
4147 if (IN_type_symbol == NULL) |
4263 if (IN_type_symbol == NULL) |
4148 IN_type_symbol = last_type_symbol; |
4264 IN_type_symbol = last_type_symbol; |
4149 ADD_PARAM_LIST(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) |
4150 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; |
4151 function_type_prefix = return_type_symbol; |
4267 function_type_prefix = return_type_symbol; |
4152 break; |
4268 break; |
4153 |
4269 |
4154 } |
4270 } |
4166 case function_dt_to_word : |
4282 case function_dt_to_word : |
4167 { |
4283 { |
4168 symbol_c *last_type_symbol = NULL; |
4284 symbol_c *last_type_symbol = NULL; |
4169 |
4285 |
4170 { |
4286 { |
|
4287 identifier_c IN_param_name("IN"); |
4171 /* 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 */ |
4172 symbol_c *IN_param_value = &this->default_variable_name; |
4289 symbol_c *IN_param_value = &this->default_variable_name; |
4173 |
4290 |
4174 symbol_c *IN_type_symbol = param_data_type; |
4291 symbol_c *IN_type_symbol = param_data_type; |
4175 last_type_symbol = param_data_type; |
4292 last_type_symbol = param_data_type; |
4179 |
4296 |
4180 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4297 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4181 |
4298 |
4182 if (IN_type_symbol == NULL) |
4299 if (IN_type_symbol == NULL) |
4183 IN_type_symbol = last_type_symbol; |
4300 IN_type_symbol = last_type_symbol; |
4184 ADD_PARAM_LIST(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) |
4185 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; |
4186 function_type_prefix = return_type_symbol; |
4303 function_type_prefix = return_type_symbol; |
4187 break; |
4304 break; |
4188 |
4305 |
4189 } |
4306 } |
4201 case function_dt_to_string : |
4318 case function_dt_to_string : |
4202 { |
4319 { |
4203 symbol_c *last_type_symbol = NULL; |
4320 symbol_c *last_type_symbol = NULL; |
4204 |
4321 |
4205 { |
4322 { |
|
4323 identifier_c IN_param_name("IN"); |
4206 /* 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 */ |
4207 symbol_c *IN_param_value = &this->default_variable_name; |
4325 symbol_c *IN_param_value = &this->default_variable_name; |
4208 |
4326 |
4209 symbol_c *IN_type_symbol = param_data_type; |
4327 symbol_c *IN_type_symbol = param_data_type; |
4210 last_type_symbol = param_data_type; |
4328 last_type_symbol = param_data_type; |
4214 |
4332 |
4215 function_name = (symbol_c*)(new pragma_c("__dt_to_string")); |
4333 function_name = (symbol_c*)(new pragma_c("__dt_to_string")); |
4216 |
4334 |
4217 if (IN_type_symbol == NULL) |
4335 if (IN_type_symbol == NULL) |
4218 IN_type_symbol = last_type_symbol; |
4336 IN_type_symbol = last_type_symbol; |
4219 ADD_PARAM_LIST(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) |
4220 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; |
4221 function_type_prefix = return_type_symbol; |
4339 function_type_prefix = return_type_symbol; |
4222 break; |
4340 break; |
4223 |
4341 |
4224 } |
4342 } |
4236 case function_dt_to_lword : |
4354 case function_dt_to_lword : |
4237 { |
4355 { |
4238 symbol_c *last_type_symbol = NULL; |
4356 symbol_c *last_type_symbol = NULL; |
4239 |
4357 |
4240 { |
4358 { |
|
4359 identifier_c IN_param_name("IN"); |
4241 /* 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 */ |
4242 symbol_c *IN_param_value = &this->default_variable_name; |
4361 symbol_c *IN_param_value = &this->default_variable_name; |
4243 |
4362 |
4244 symbol_c *IN_type_symbol = param_data_type; |
4363 symbol_c *IN_type_symbol = param_data_type; |
4245 last_type_symbol = param_data_type; |
4364 last_type_symbol = param_data_type; |
4249 |
4368 |
4250 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4369 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4251 |
4370 |
4252 if (IN_type_symbol == NULL) |
4371 if (IN_type_symbol == NULL) |
4253 IN_type_symbol = last_type_symbol; |
4372 IN_type_symbol = last_type_symbol; |
4254 ADD_PARAM_LIST(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) |
4255 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; |
4256 function_type_prefix = return_type_symbol; |
4375 function_type_prefix = return_type_symbol; |
4257 break; |
4376 break; |
4258 |
4377 |
4259 } |
4378 } |
4271 case function_dt_to_uint : |
4390 case function_dt_to_uint : |
4272 { |
4391 { |
4273 symbol_c *last_type_symbol = NULL; |
4392 symbol_c *last_type_symbol = NULL; |
4274 |
4393 |
4275 { |
4394 { |
|
4395 identifier_c IN_param_name("IN"); |
4276 /* 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 */ |
4277 symbol_c *IN_param_value = &this->default_variable_name; |
4397 symbol_c *IN_param_value = &this->default_variable_name; |
4278 |
4398 |
4279 symbol_c *IN_type_symbol = param_data_type; |
4399 symbol_c *IN_type_symbol = param_data_type; |
4280 last_type_symbol = param_data_type; |
4400 last_type_symbol = param_data_type; |
4284 |
4404 |
4285 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4405 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4286 |
4406 |
4287 if (IN_type_symbol == NULL) |
4407 if (IN_type_symbol == NULL) |
4288 IN_type_symbol = last_type_symbol; |
4408 IN_type_symbol = last_type_symbol; |
4289 ADD_PARAM_LIST(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) |
4290 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; |
4291 function_type_prefix = return_type_symbol; |
4411 function_type_prefix = return_type_symbol; |
4292 break; |
4412 break; |
4293 |
4413 |
4294 } |
4414 } |
4306 case function_dt_to_lreal : |
4426 case function_dt_to_lreal : |
4307 { |
4427 { |
4308 symbol_c *last_type_symbol = NULL; |
4428 symbol_c *last_type_symbol = NULL; |
4309 |
4429 |
4310 { |
4430 { |
|
4431 identifier_c IN_param_name("IN"); |
4311 /* 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 */ |
4312 symbol_c *IN_param_value = &this->default_variable_name; |
4433 symbol_c *IN_param_value = &this->default_variable_name; |
4313 |
4434 |
4314 symbol_c *IN_type_symbol = param_data_type; |
4435 symbol_c *IN_type_symbol = param_data_type; |
4315 last_type_symbol = param_data_type; |
4436 last_type_symbol = param_data_type; |
4319 |
4440 |
4320 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4441 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4321 |
4442 |
4322 if (IN_type_symbol == NULL) |
4443 if (IN_type_symbol == NULL) |
4323 IN_type_symbol = last_type_symbol; |
4444 IN_type_symbol = last_type_symbol; |
4324 ADD_PARAM_LIST(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) |
4325 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; |
4326 function_type_prefix = return_type_symbol; |
4447 function_type_prefix = return_type_symbol; |
4327 break; |
4448 break; |
4328 |
4449 |
4329 } |
4450 } |
4341 case function_dt_to_byte : |
4462 case function_dt_to_byte : |
4342 { |
4463 { |
4343 symbol_c *last_type_symbol = NULL; |
4464 symbol_c *last_type_symbol = NULL; |
4344 |
4465 |
4345 { |
4466 { |
|
4467 identifier_c IN_param_name("IN"); |
4346 /* 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 */ |
4347 symbol_c *IN_param_value = &this->default_variable_name; |
4469 symbol_c *IN_param_value = &this->default_variable_name; |
4348 |
4470 |
4349 symbol_c *IN_type_symbol = param_data_type; |
4471 symbol_c *IN_type_symbol = param_data_type; |
4350 last_type_symbol = param_data_type; |
4472 last_type_symbol = param_data_type; |
4354 |
4476 |
4355 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4477 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4356 |
4478 |
4357 if (IN_type_symbol == NULL) |
4479 if (IN_type_symbol == NULL) |
4358 IN_type_symbol = last_type_symbol; |
4480 IN_type_symbol = last_type_symbol; |
4359 ADD_PARAM_LIST(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) |
4360 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; |
4361 function_type_prefix = return_type_symbol; |
4483 function_type_prefix = return_type_symbol; |
4362 break; |
4484 break; |
4363 |
4485 |
4364 } |
4486 } |
4376 case function_dt_to_usint : |
4498 case function_dt_to_usint : |
4377 { |
4499 { |
4378 symbol_c *last_type_symbol = NULL; |
4500 symbol_c *last_type_symbol = NULL; |
4379 |
4501 |
4380 { |
4502 { |
|
4503 identifier_c IN_param_name("IN"); |
4381 /* 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 */ |
4382 symbol_c *IN_param_value = &this->default_variable_name; |
4505 symbol_c *IN_param_value = &this->default_variable_name; |
4383 |
4506 |
4384 symbol_c *IN_type_symbol = param_data_type; |
4507 symbol_c *IN_type_symbol = param_data_type; |
4385 last_type_symbol = param_data_type; |
4508 last_type_symbol = param_data_type; |
4389 |
4512 |
4390 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4513 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4391 |
4514 |
4392 if (IN_type_symbol == NULL) |
4515 if (IN_type_symbol == NULL) |
4393 IN_type_symbol = last_type_symbol; |
4516 IN_type_symbol = last_type_symbol; |
4394 ADD_PARAM_LIST(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) |
4395 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; |
4396 function_type_prefix = return_type_symbol; |
4519 function_type_prefix = return_type_symbol; |
4397 break; |
4520 break; |
4398 |
4521 |
4399 } |
4522 } |
4411 case function_dt_to_ulint : |
4534 case function_dt_to_ulint : |
4412 { |
4535 { |
4413 symbol_c *last_type_symbol = NULL; |
4536 symbol_c *last_type_symbol = NULL; |
4414 |
4537 |
4415 { |
4538 { |
|
4539 identifier_c IN_param_name("IN"); |
4416 /* 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 */ |
4417 symbol_c *IN_param_value = &this->default_variable_name; |
4541 symbol_c *IN_param_value = &this->default_variable_name; |
4418 |
4542 |
4419 symbol_c *IN_type_symbol = param_data_type; |
4543 symbol_c *IN_type_symbol = param_data_type; |
4420 last_type_symbol = param_data_type; |
4544 last_type_symbol = param_data_type; |
4424 |
4548 |
4425 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4549 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4426 |
4550 |
4427 if (IN_type_symbol == NULL) |
4551 if (IN_type_symbol == NULL) |
4428 IN_type_symbol = last_type_symbol; |
4552 IN_type_symbol = last_type_symbol; |
4429 ADD_PARAM_LIST(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) |
4430 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; |
4431 function_type_prefix = return_type_symbol; |
4555 function_type_prefix = return_type_symbol; |
4432 break; |
4556 break; |
4433 |
4557 |
4434 } |
4558 } |
4446 case function_dt_to_int : |
4570 case function_dt_to_int : |
4447 { |
4571 { |
4448 symbol_c *last_type_symbol = NULL; |
4572 symbol_c *last_type_symbol = NULL; |
4449 |
4573 |
4450 { |
4574 { |
|
4575 identifier_c IN_param_name("IN"); |
4451 /* 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 */ |
4452 symbol_c *IN_param_value = &this->default_variable_name; |
4577 symbol_c *IN_param_value = &this->default_variable_name; |
4453 |
4578 |
4454 symbol_c *IN_type_symbol = param_data_type; |
4579 symbol_c *IN_type_symbol = param_data_type; |
4455 last_type_symbol = param_data_type; |
4580 last_type_symbol = param_data_type; |
4459 |
4584 |
4460 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4585 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4461 |
4586 |
4462 if (IN_type_symbol == NULL) |
4587 if (IN_type_symbol == NULL) |
4463 IN_type_symbol = last_type_symbol; |
4588 IN_type_symbol = last_type_symbol; |
4464 ADD_PARAM_LIST(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) |
4465 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; |
4466 function_type_prefix = return_type_symbol; |
4591 function_type_prefix = return_type_symbol; |
4467 break; |
4592 break; |
4468 |
4593 |
4469 } |
4594 } |
4481 case function_tod_to_real : |
4606 case function_tod_to_real : |
4482 { |
4607 { |
4483 symbol_c *last_type_symbol = NULL; |
4608 symbol_c *last_type_symbol = NULL; |
4484 |
4609 |
4485 { |
4610 { |
|
4611 identifier_c IN_param_name("IN"); |
4486 /* 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 */ |
4487 symbol_c *IN_param_value = &this->default_variable_name; |
4613 symbol_c *IN_param_value = &this->default_variable_name; |
4488 |
4614 |
4489 symbol_c *IN_type_symbol = param_data_type; |
4615 symbol_c *IN_type_symbol = param_data_type; |
4490 last_type_symbol = param_data_type; |
4616 last_type_symbol = param_data_type; |
4494 |
4620 |
4495 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4621 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4496 |
4622 |
4497 if (IN_type_symbol == NULL) |
4623 if (IN_type_symbol == NULL) |
4498 IN_type_symbol = last_type_symbol; |
4624 IN_type_symbol = last_type_symbol; |
4499 ADD_PARAM_LIST(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) |
4500 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; |
4501 function_type_prefix = return_type_symbol; |
4627 function_type_prefix = return_type_symbol; |
4502 break; |
4628 break; |
4503 |
4629 |
4504 } |
4630 } |
4516 case function_tod_to_sint : |
4642 case function_tod_to_sint : |
4517 { |
4643 { |
4518 symbol_c *last_type_symbol = NULL; |
4644 symbol_c *last_type_symbol = NULL; |
4519 |
4645 |
4520 { |
4646 { |
|
4647 identifier_c IN_param_name("IN"); |
4521 /* 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 */ |
4522 symbol_c *IN_param_value = &this->default_variable_name; |
4649 symbol_c *IN_param_value = &this->default_variable_name; |
4523 |
4650 |
4524 symbol_c *IN_type_symbol = param_data_type; |
4651 symbol_c *IN_type_symbol = param_data_type; |
4525 last_type_symbol = param_data_type; |
4652 last_type_symbol = param_data_type; |
4529 |
4656 |
4530 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4657 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4531 |
4658 |
4532 if (IN_type_symbol == NULL) |
4659 if (IN_type_symbol == NULL) |
4533 IN_type_symbol = last_type_symbol; |
4660 IN_type_symbol = last_type_symbol; |
4534 ADD_PARAM_LIST(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) |
4535 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; |
4536 function_type_prefix = return_type_symbol; |
4663 function_type_prefix = return_type_symbol; |
4537 break; |
4664 break; |
4538 |
4665 |
4539 } |
4666 } |
4551 case function_tod_to_lint : |
4678 case function_tod_to_lint : |
4552 { |
4679 { |
4553 symbol_c *last_type_symbol = NULL; |
4680 symbol_c *last_type_symbol = NULL; |
4554 |
4681 |
4555 { |
4682 { |
|
4683 identifier_c IN_param_name("IN"); |
4556 /* 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 */ |
4557 symbol_c *IN_param_value = &this->default_variable_name; |
4685 symbol_c *IN_param_value = &this->default_variable_name; |
4558 |
4686 |
4559 symbol_c *IN_type_symbol = param_data_type; |
4687 symbol_c *IN_type_symbol = param_data_type; |
4560 last_type_symbol = param_data_type; |
4688 last_type_symbol = param_data_type; |
4564 |
4692 |
4565 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4693 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4566 |
4694 |
4567 if (IN_type_symbol == NULL) |
4695 if (IN_type_symbol == NULL) |
4568 IN_type_symbol = last_type_symbol; |
4696 IN_type_symbol = last_type_symbol; |
4569 ADD_PARAM_LIST(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) |
4570 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; |
4571 function_type_prefix = return_type_symbol; |
4699 function_type_prefix = return_type_symbol; |
4572 break; |
4700 break; |
4573 |
4701 |
4574 } |
4702 } |
4586 case function_tod_to_dint : |
4714 case function_tod_to_dint : |
4587 { |
4715 { |
4588 symbol_c *last_type_symbol = NULL; |
4716 symbol_c *last_type_symbol = NULL; |
4589 |
4717 |
4590 { |
4718 { |
|
4719 identifier_c IN_param_name("IN"); |
4591 /* 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 */ |
4592 symbol_c *IN_param_value = &this->default_variable_name; |
4721 symbol_c *IN_param_value = &this->default_variable_name; |
4593 |
4722 |
4594 symbol_c *IN_type_symbol = param_data_type; |
4723 symbol_c *IN_type_symbol = param_data_type; |
4595 last_type_symbol = param_data_type; |
4724 last_type_symbol = param_data_type; |
4599 |
4728 |
4600 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4729 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4601 |
4730 |
4602 if (IN_type_symbol == NULL) |
4731 if (IN_type_symbol == NULL) |
4603 IN_type_symbol = last_type_symbol; |
4732 IN_type_symbol = last_type_symbol; |
4604 ADD_PARAM_LIST(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) |
4605 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; |
4606 function_type_prefix = return_type_symbol; |
4735 function_type_prefix = return_type_symbol; |
4607 break; |
4736 break; |
4608 |
4737 |
4609 } |
4738 } |
4621 case function_tod_to_dword : |
4750 case function_tod_to_dword : |
4622 { |
4751 { |
4623 symbol_c *last_type_symbol = NULL; |
4752 symbol_c *last_type_symbol = NULL; |
4624 |
4753 |
4625 { |
4754 { |
|
4755 identifier_c IN_param_name("IN"); |
4626 /* 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 */ |
4627 symbol_c *IN_param_value = &this->default_variable_name; |
4757 symbol_c *IN_param_value = &this->default_variable_name; |
4628 |
4758 |
4629 symbol_c *IN_type_symbol = param_data_type; |
4759 symbol_c *IN_type_symbol = param_data_type; |
4630 last_type_symbol = param_data_type; |
4760 last_type_symbol = param_data_type; |
4634 |
4764 |
4635 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4765 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4636 |
4766 |
4637 if (IN_type_symbol == NULL) |
4767 if (IN_type_symbol == NULL) |
4638 IN_type_symbol = last_type_symbol; |
4768 IN_type_symbol = last_type_symbol; |
4639 ADD_PARAM_LIST(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) |
4640 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; |
4641 function_type_prefix = return_type_symbol; |
4771 function_type_prefix = return_type_symbol; |
4642 break; |
4772 break; |
4643 |
4773 |
4644 } |
4774 } |
4656 case function_tod_to_udint : |
4786 case function_tod_to_udint : |
4657 { |
4787 { |
4658 symbol_c *last_type_symbol = NULL; |
4788 symbol_c *last_type_symbol = NULL; |
4659 |
4789 |
4660 { |
4790 { |
|
4791 identifier_c IN_param_name("IN"); |
4661 /* 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 */ |
4662 symbol_c *IN_param_value = &this->default_variable_name; |
4793 symbol_c *IN_param_value = &this->default_variable_name; |
4663 |
4794 |
4664 symbol_c *IN_type_symbol = param_data_type; |
4795 symbol_c *IN_type_symbol = param_data_type; |
4665 last_type_symbol = param_data_type; |
4796 last_type_symbol = param_data_type; |
4669 |
4800 |
4670 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4801 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4671 |
4802 |
4672 if (IN_type_symbol == NULL) |
4803 if (IN_type_symbol == NULL) |
4673 IN_type_symbol = last_type_symbol; |
4804 IN_type_symbol = last_type_symbol; |
4674 ADD_PARAM_LIST(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) |
4675 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; |
4676 function_type_prefix = return_type_symbol; |
4807 function_type_prefix = return_type_symbol; |
4677 break; |
4808 break; |
4678 |
4809 |
4679 } |
4810 } |
4691 case function_tod_to_word : |
4822 case function_tod_to_word : |
4692 { |
4823 { |
4693 symbol_c *last_type_symbol = NULL; |
4824 symbol_c *last_type_symbol = NULL; |
4694 |
4825 |
4695 { |
4826 { |
|
4827 identifier_c IN_param_name("IN"); |
4696 /* 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 */ |
4697 symbol_c *IN_param_value = &this->default_variable_name; |
4829 symbol_c *IN_param_value = &this->default_variable_name; |
4698 |
4830 |
4699 symbol_c *IN_type_symbol = param_data_type; |
4831 symbol_c *IN_type_symbol = param_data_type; |
4700 last_type_symbol = param_data_type; |
4832 last_type_symbol = param_data_type; |
4704 |
4836 |
4705 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4837 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4706 |
4838 |
4707 if (IN_type_symbol == NULL) |
4839 if (IN_type_symbol == NULL) |
4708 IN_type_symbol = last_type_symbol; |
4840 IN_type_symbol = last_type_symbol; |
4709 ADD_PARAM_LIST(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) |
4710 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; |
4711 function_type_prefix = return_type_symbol; |
4843 function_type_prefix = return_type_symbol; |
4712 break; |
4844 break; |
4713 |
4845 |
4714 } |
4846 } |
4726 case function_tod_to_string : |
4858 case function_tod_to_string : |
4727 { |
4859 { |
4728 symbol_c *last_type_symbol = NULL; |
4860 symbol_c *last_type_symbol = NULL; |
4729 |
4861 |
4730 { |
4862 { |
|
4863 identifier_c IN_param_name("IN"); |
4731 /* 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 */ |
4732 symbol_c *IN_param_value = &this->default_variable_name; |
4865 symbol_c *IN_param_value = &this->default_variable_name; |
4733 |
4866 |
4734 symbol_c *IN_type_symbol = param_data_type; |
4867 symbol_c *IN_type_symbol = param_data_type; |
4735 last_type_symbol = param_data_type; |
4868 last_type_symbol = param_data_type; |
4739 |
4872 |
4740 function_name = (symbol_c*)(new pragma_c("__tod_to_string")); |
4873 function_name = (symbol_c*)(new pragma_c("__tod_to_string")); |
4741 |
4874 |
4742 if (IN_type_symbol == NULL) |
4875 if (IN_type_symbol == NULL) |
4743 IN_type_symbol = last_type_symbol; |
4876 IN_type_symbol = last_type_symbol; |
4744 ADD_PARAM_LIST(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) |
4745 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; |
4746 function_type_prefix = return_type_symbol; |
4879 function_type_prefix = return_type_symbol; |
4747 break; |
4880 break; |
4748 |
4881 |
4749 } |
4882 } |
4761 case function_tod_to_lword : |
4894 case function_tod_to_lword : |
4762 { |
4895 { |
4763 symbol_c *last_type_symbol = NULL; |
4896 symbol_c *last_type_symbol = NULL; |
4764 |
4897 |
4765 { |
4898 { |
|
4899 identifier_c IN_param_name("IN"); |
4766 /* 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 */ |
4767 symbol_c *IN_param_value = &this->default_variable_name; |
4901 symbol_c *IN_param_value = &this->default_variable_name; |
4768 |
4902 |
4769 symbol_c *IN_type_symbol = param_data_type; |
4903 symbol_c *IN_type_symbol = param_data_type; |
4770 last_type_symbol = param_data_type; |
4904 last_type_symbol = param_data_type; |
4774 |
4908 |
4775 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4909 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4776 |
4910 |
4777 if (IN_type_symbol == NULL) |
4911 if (IN_type_symbol == NULL) |
4778 IN_type_symbol = last_type_symbol; |
4912 IN_type_symbol = last_type_symbol; |
4779 ADD_PARAM_LIST(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) |
4780 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; |
4781 function_type_prefix = return_type_symbol; |
4915 function_type_prefix = return_type_symbol; |
4782 break; |
4916 break; |
4783 |
4917 |
4784 } |
4918 } |
4796 case function_tod_to_uint : |
4930 case function_tod_to_uint : |
4797 { |
4931 { |
4798 symbol_c *last_type_symbol = NULL; |
4932 symbol_c *last_type_symbol = NULL; |
4799 |
4933 |
4800 { |
4934 { |
|
4935 identifier_c IN_param_name("IN"); |
4801 /* 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 */ |
4802 symbol_c *IN_param_value = &this->default_variable_name; |
4937 symbol_c *IN_param_value = &this->default_variable_name; |
4803 |
4938 |
4804 symbol_c *IN_type_symbol = param_data_type; |
4939 symbol_c *IN_type_symbol = param_data_type; |
4805 last_type_symbol = param_data_type; |
4940 last_type_symbol = param_data_type; |
4809 |
4944 |
4810 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4945 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4811 |
4946 |
4812 if (IN_type_symbol == NULL) |
4947 if (IN_type_symbol == NULL) |
4813 IN_type_symbol = last_type_symbol; |
4948 IN_type_symbol = last_type_symbol; |
4814 ADD_PARAM_LIST(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) |
4815 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; |
4816 function_type_prefix = return_type_symbol; |
4951 function_type_prefix = return_type_symbol; |
4817 break; |
4952 break; |
4818 |
4953 |
4819 } |
4954 } |
4831 case function_tod_to_lreal : |
4966 case function_tod_to_lreal : |
4832 { |
4967 { |
4833 symbol_c *last_type_symbol = NULL; |
4968 symbol_c *last_type_symbol = NULL; |
4834 |
4969 |
4835 { |
4970 { |
|
4971 identifier_c IN_param_name("IN"); |
4836 /* 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 */ |
4837 symbol_c *IN_param_value = &this->default_variable_name; |
4973 symbol_c *IN_param_value = &this->default_variable_name; |
4838 |
4974 |
4839 symbol_c *IN_type_symbol = param_data_type; |
4975 symbol_c *IN_type_symbol = param_data_type; |
4840 last_type_symbol = param_data_type; |
4976 last_type_symbol = param_data_type; |
4844 |
4980 |
4845 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4981 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
4846 |
4982 |
4847 if (IN_type_symbol == NULL) |
4983 if (IN_type_symbol == NULL) |
4848 IN_type_symbol = last_type_symbol; |
4984 IN_type_symbol = last_type_symbol; |
4849 ADD_PARAM_LIST(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) |
4850 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; |
4851 function_type_prefix = return_type_symbol; |
4987 function_type_prefix = return_type_symbol; |
4852 break; |
4988 break; |
4853 |
4989 |
4854 } |
4990 } |
4866 case function_tod_to_byte : |
5002 case function_tod_to_byte : |
4867 { |
5003 { |
4868 symbol_c *last_type_symbol = NULL; |
5004 symbol_c *last_type_symbol = NULL; |
4869 |
5005 |
4870 { |
5006 { |
|
5007 identifier_c IN_param_name("IN"); |
4871 /* 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 */ |
4872 symbol_c *IN_param_value = &this->default_variable_name; |
5009 symbol_c *IN_param_value = &this->default_variable_name; |
4873 |
5010 |
4874 symbol_c *IN_type_symbol = param_data_type; |
5011 symbol_c *IN_type_symbol = param_data_type; |
4875 last_type_symbol = param_data_type; |
5012 last_type_symbol = param_data_type; |
4879 |
5016 |
4880 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5017 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4881 |
5018 |
4882 if (IN_type_symbol == NULL) |
5019 if (IN_type_symbol == NULL) |
4883 IN_type_symbol = last_type_symbol; |
5020 IN_type_symbol = last_type_symbol; |
4884 ADD_PARAM_LIST(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) |
4885 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; |
4886 function_type_prefix = return_type_symbol; |
5023 function_type_prefix = return_type_symbol; |
4887 break; |
5024 break; |
4888 |
5025 |
4889 } |
5026 } |
4901 case function_tod_to_usint : |
5038 case function_tod_to_usint : |
4902 { |
5039 { |
4903 symbol_c *last_type_symbol = NULL; |
5040 symbol_c *last_type_symbol = NULL; |
4904 |
5041 |
4905 { |
5042 { |
|
5043 identifier_c IN_param_name("IN"); |
4906 /* 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 */ |
4907 symbol_c *IN_param_value = &this->default_variable_name; |
5045 symbol_c *IN_param_value = &this->default_variable_name; |
4908 |
5046 |
4909 symbol_c *IN_type_symbol = param_data_type; |
5047 symbol_c *IN_type_symbol = param_data_type; |
4910 last_type_symbol = param_data_type; |
5048 last_type_symbol = param_data_type; |
4914 |
5052 |
4915 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5053 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4916 |
5054 |
4917 if (IN_type_symbol == NULL) |
5055 if (IN_type_symbol == NULL) |
4918 IN_type_symbol = last_type_symbol; |
5056 IN_type_symbol = last_type_symbol; |
4919 ADD_PARAM_LIST(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) |
4920 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; |
4921 function_type_prefix = return_type_symbol; |
5059 function_type_prefix = return_type_symbol; |
4922 break; |
5060 break; |
4923 |
5061 |
4924 } |
5062 } |
4936 case function_tod_to_ulint : |
5074 case function_tod_to_ulint : |
4937 { |
5075 { |
4938 symbol_c *last_type_symbol = NULL; |
5076 symbol_c *last_type_symbol = NULL; |
4939 |
5077 |
4940 { |
5078 { |
|
5079 identifier_c IN_param_name("IN"); |
4941 /* 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 */ |
4942 symbol_c *IN_param_value = &this->default_variable_name; |
5081 symbol_c *IN_param_value = &this->default_variable_name; |
4943 |
5082 |
4944 symbol_c *IN_type_symbol = param_data_type; |
5083 symbol_c *IN_type_symbol = param_data_type; |
4945 last_type_symbol = param_data_type; |
5084 last_type_symbol = param_data_type; |
4949 |
5088 |
4950 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5089 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4951 |
5090 |
4952 if (IN_type_symbol == NULL) |
5091 if (IN_type_symbol == NULL) |
4953 IN_type_symbol = last_type_symbol; |
5092 IN_type_symbol = last_type_symbol; |
4954 ADD_PARAM_LIST(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) |
4955 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; |
4956 function_type_prefix = return_type_symbol; |
5095 function_type_prefix = return_type_symbol; |
4957 break; |
5096 break; |
4958 |
5097 |
4959 } |
5098 } |
4971 case function_tod_to_int : |
5110 case function_tod_to_int : |
4972 { |
5111 { |
4973 symbol_c *last_type_symbol = NULL; |
5112 symbol_c *last_type_symbol = NULL; |
4974 |
5113 |
4975 { |
5114 { |
|
5115 identifier_c IN_param_name("IN"); |
4976 /* 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 */ |
4977 symbol_c *IN_param_value = &this->default_variable_name; |
5117 symbol_c *IN_param_value = &this->default_variable_name; |
4978 |
5118 |
4979 symbol_c *IN_type_symbol = param_data_type; |
5119 symbol_c *IN_type_symbol = param_data_type; |
4980 last_type_symbol = param_data_type; |
5120 last_type_symbol = param_data_type; |
4984 |
5124 |
4985 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
5125 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
4986 |
5126 |
4987 if (IN_type_symbol == NULL) |
5127 if (IN_type_symbol == NULL) |
4988 IN_type_symbol = last_type_symbol; |
5128 IN_type_symbol = last_type_symbol; |
4989 ADD_PARAM_LIST(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) |
4990 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; |
4991 function_type_prefix = return_type_symbol; |
5131 function_type_prefix = return_type_symbol; |
4992 break; |
5132 break; |
4993 |
5133 |
4994 } |
5134 } |
5006 case function_udint_to_real : |
5146 case function_udint_to_real : |
5007 { |
5147 { |
5008 symbol_c *last_type_symbol = NULL; |
5148 symbol_c *last_type_symbol = NULL; |
5009 |
5149 |
5010 { |
5150 { |
|
5151 identifier_c IN_param_name("IN"); |
5011 /* 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 */ |
5012 symbol_c *IN_param_value = &this->default_variable_name; |
5153 symbol_c *IN_param_value = &this->default_variable_name; |
5013 |
5154 |
5014 symbol_c *IN_type_symbol = param_data_type; |
5155 symbol_c *IN_type_symbol = param_data_type; |
5015 last_type_symbol = param_data_type; |
5156 last_type_symbol = param_data_type; |
5019 |
5160 |
5020 function_name = (symbol_c*)(new pragma_c("__move_")); |
5161 function_name = (symbol_c*)(new pragma_c("__move_")); |
5021 |
5162 |
5022 if (IN_type_symbol == NULL) |
5163 if (IN_type_symbol == NULL) |
5023 IN_type_symbol = last_type_symbol; |
5164 IN_type_symbol = last_type_symbol; |
5024 ADD_PARAM_LIST(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) |
5025 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; |
5026 function_type_prefix = return_type_symbol; |
5167 function_type_prefix = return_type_symbol; |
5027 function_type_suffix = IN_type_symbol; |
5168 function_type_suffix = IN_type_symbol; |
5028 break; |
5169 break; |
5029 |
5170 |
5042 case function_udint_to_sint : |
5183 case function_udint_to_sint : |
5043 { |
5184 { |
5044 symbol_c *last_type_symbol = NULL; |
5185 symbol_c *last_type_symbol = NULL; |
5045 |
5186 |
5046 { |
5187 { |
|
5188 identifier_c IN_param_name("IN"); |
5047 /* 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 */ |
5048 symbol_c *IN_param_value = &this->default_variable_name; |
5190 symbol_c *IN_param_value = &this->default_variable_name; |
5049 |
5191 |
5050 symbol_c *IN_type_symbol = param_data_type; |
5192 symbol_c *IN_type_symbol = param_data_type; |
5051 last_type_symbol = param_data_type; |
5193 last_type_symbol = param_data_type; |
5055 |
5197 |
5056 function_name = (symbol_c*)(new pragma_c("__move_")); |
5198 function_name = (symbol_c*)(new pragma_c("__move_")); |
5057 |
5199 |
5058 if (IN_type_symbol == NULL) |
5200 if (IN_type_symbol == NULL) |
5059 IN_type_symbol = last_type_symbol; |
5201 IN_type_symbol = last_type_symbol; |
5060 ADD_PARAM_LIST(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) |
5061 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; |
5062 function_type_prefix = return_type_symbol; |
5204 function_type_prefix = return_type_symbol; |
5063 function_type_suffix = IN_type_symbol; |
5205 function_type_suffix = IN_type_symbol; |
5064 break; |
5206 break; |
5065 |
5207 |
5078 case function_udint_to_lint : |
5220 case function_udint_to_lint : |
5079 { |
5221 { |
5080 symbol_c *last_type_symbol = NULL; |
5222 symbol_c *last_type_symbol = NULL; |
5081 |
5223 |
5082 { |
5224 { |
|
5225 identifier_c IN_param_name("IN"); |
5083 /* 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 */ |
5084 symbol_c *IN_param_value = &this->default_variable_name; |
5227 symbol_c *IN_param_value = &this->default_variable_name; |
5085 |
5228 |
5086 symbol_c *IN_type_symbol = param_data_type; |
5229 symbol_c *IN_type_symbol = param_data_type; |
5087 last_type_symbol = param_data_type; |
5230 last_type_symbol = param_data_type; |
5091 |
5234 |
5092 function_name = (symbol_c*)(new pragma_c("__move_")); |
5235 function_name = (symbol_c*)(new pragma_c("__move_")); |
5093 |
5236 |
5094 if (IN_type_symbol == NULL) |
5237 if (IN_type_symbol == NULL) |
5095 IN_type_symbol = last_type_symbol; |
5238 IN_type_symbol = last_type_symbol; |
5096 ADD_PARAM_LIST(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) |
5097 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; |
5098 function_type_prefix = return_type_symbol; |
5241 function_type_prefix = return_type_symbol; |
5099 function_type_suffix = IN_type_symbol; |
5242 function_type_suffix = IN_type_symbol; |
5100 break; |
5243 break; |
5101 |
5244 |
5114 case function_udint_to_dint : |
5257 case function_udint_to_dint : |
5115 { |
5258 { |
5116 symbol_c *last_type_symbol = NULL; |
5259 symbol_c *last_type_symbol = NULL; |
5117 |
5260 |
5118 { |
5261 { |
|
5262 identifier_c IN_param_name("IN"); |
5119 /* 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 */ |
5120 symbol_c *IN_param_value = &this->default_variable_name; |
5264 symbol_c *IN_param_value = &this->default_variable_name; |
5121 |
5265 |
5122 symbol_c *IN_type_symbol = param_data_type; |
5266 symbol_c *IN_type_symbol = param_data_type; |
5123 last_type_symbol = param_data_type; |
5267 last_type_symbol = param_data_type; |
5127 |
5271 |
5128 function_name = (symbol_c*)(new pragma_c("__move_")); |
5272 function_name = (symbol_c*)(new pragma_c("__move_")); |
5129 |
5273 |
5130 if (IN_type_symbol == NULL) |
5274 if (IN_type_symbol == NULL) |
5131 IN_type_symbol = last_type_symbol; |
5275 IN_type_symbol = last_type_symbol; |
5132 ADD_PARAM_LIST(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) |
5133 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; |
5134 function_type_prefix = return_type_symbol; |
5278 function_type_prefix = return_type_symbol; |
5135 function_type_suffix = IN_type_symbol; |
5279 function_type_suffix = IN_type_symbol; |
5136 break; |
5280 break; |
5137 |
5281 |
5150 case function_udint_to_date : |
5294 case function_udint_to_date : |
5151 { |
5295 { |
5152 symbol_c *last_type_symbol = NULL; |
5296 symbol_c *last_type_symbol = NULL; |
5153 |
5297 |
5154 { |
5298 { |
|
5299 identifier_c IN_param_name("IN"); |
5155 /* 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 */ |
5156 symbol_c *IN_param_value = &this->default_variable_name; |
5301 symbol_c *IN_param_value = &this->default_variable_name; |
5157 |
5302 |
5158 symbol_c *IN_type_symbol = param_data_type; |
5303 symbol_c *IN_type_symbol = param_data_type; |
5159 last_type_symbol = param_data_type; |
5304 last_type_symbol = param_data_type; |
5163 |
5308 |
5164 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5309 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5165 |
5310 |
5166 if (IN_type_symbol == NULL) |
5311 if (IN_type_symbol == NULL) |
5167 IN_type_symbol = last_type_symbol; |
5312 IN_type_symbol = last_type_symbol; |
5168 ADD_PARAM_LIST(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) |
5169 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; |
5170 function_type_prefix = return_type_symbol; |
5315 function_type_prefix = return_type_symbol; |
5171 break; |
5316 break; |
5172 |
5317 |
5173 } |
5318 } |
5185 case function_udint_to_dword : |
5330 case function_udint_to_dword : |
5186 { |
5331 { |
5187 symbol_c *last_type_symbol = NULL; |
5332 symbol_c *last_type_symbol = NULL; |
5188 |
5333 |
5189 { |
5334 { |
|
5335 identifier_c IN_param_name("IN"); |
5190 /* 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 */ |
5191 symbol_c *IN_param_value = &this->default_variable_name; |
5337 symbol_c *IN_param_value = &this->default_variable_name; |
5192 |
5338 |
5193 symbol_c *IN_type_symbol = param_data_type; |
5339 symbol_c *IN_type_symbol = param_data_type; |
5194 last_type_symbol = param_data_type; |
5340 last_type_symbol = param_data_type; |
5198 |
5344 |
5199 function_name = (symbol_c*)(new pragma_c("__move_")); |
5345 function_name = (symbol_c*)(new pragma_c("__move_")); |
5200 |
5346 |
5201 if (IN_type_symbol == NULL) |
5347 if (IN_type_symbol == NULL) |
5202 IN_type_symbol = last_type_symbol; |
5348 IN_type_symbol = last_type_symbol; |
5203 ADD_PARAM_LIST(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) |
5204 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; |
5205 function_type_prefix = return_type_symbol; |
5351 function_type_prefix = return_type_symbol; |
5206 function_type_suffix = IN_type_symbol; |
5352 function_type_suffix = IN_type_symbol; |
5207 break; |
5353 break; |
5208 |
5354 |
5221 case function_udint_to_dt : |
5367 case function_udint_to_dt : |
5222 { |
5368 { |
5223 symbol_c *last_type_symbol = NULL; |
5369 symbol_c *last_type_symbol = NULL; |
5224 |
5370 |
5225 { |
5371 { |
|
5372 identifier_c IN_param_name("IN"); |
5226 /* 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 */ |
5227 symbol_c *IN_param_value = &this->default_variable_name; |
5374 symbol_c *IN_param_value = &this->default_variable_name; |
5228 |
5375 |
5229 symbol_c *IN_type_symbol = param_data_type; |
5376 symbol_c *IN_type_symbol = param_data_type; |
5230 last_type_symbol = param_data_type; |
5377 last_type_symbol = param_data_type; |
5234 |
5381 |
5235 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5382 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5236 |
5383 |
5237 if (IN_type_symbol == NULL) |
5384 if (IN_type_symbol == NULL) |
5238 IN_type_symbol = last_type_symbol; |
5385 IN_type_symbol = last_type_symbol; |
5239 ADD_PARAM_LIST(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) |
5240 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; |
5241 function_type_prefix = return_type_symbol; |
5388 function_type_prefix = return_type_symbol; |
5242 break; |
5389 break; |
5243 |
5390 |
5244 } |
5391 } |
5256 case function_udint_to_tod : |
5403 case function_udint_to_tod : |
5257 { |
5404 { |
5258 symbol_c *last_type_symbol = NULL; |
5405 symbol_c *last_type_symbol = NULL; |
5259 |
5406 |
5260 { |
5407 { |
|
5408 identifier_c IN_param_name("IN"); |
5261 /* 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 */ |
5262 symbol_c *IN_param_value = &this->default_variable_name; |
5410 symbol_c *IN_param_value = &this->default_variable_name; |
5263 |
5411 |
5264 symbol_c *IN_type_symbol = param_data_type; |
5412 symbol_c *IN_type_symbol = param_data_type; |
5265 last_type_symbol = param_data_type; |
5413 last_type_symbol = param_data_type; |
5269 |
5417 |
5270 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5418 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5271 |
5419 |
5272 if (IN_type_symbol == NULL) |
5420 if (IN_type_symbol == NULL) |
5273 IN_type_symbol = last_type_symbol; |
5421 IN_type_symbol = last_type_symbol; |
5274 ADD_PARAM_LIST(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) |
5275 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; |
5276 function_type_prefix = return_type_symbol; |
5424 function_type_prefix = return_type_symbol; |
5277 break; |
5425 break; |
5278 |
5426 |
5279 } |
5427 } |
5291 case function_udint_to_word : |
5439 case function_udint_to_word : |
5292 { |
5440 { |
5293 symbol_c *last_type_symbol = NULL; |
5441 symbol_c *last_type_symbol = NULL; |
5294 |
5442 |
5295 { |
5443 { |
|
5444 identifier_c IN_param_name("IN"); |
5296 /* 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 */ |
5297 symbol_c *IN_param_value = &this->default_variable_name; |
5446 symbol_c *IN_param_value = &this->default_variable_name; |
5298 |
5447 |
5299 symbol_c *IN_type_symbol = param_data_type; |
5448 symbol_c *IN_type_symbol = param_data_type; |
5300 last_type_symbol = param_data_type; |
5449 last_type_symbol = param_data_type; |
5304 |
5453 |
5305 function_name = (symbol_c*)(new pragma_c("__move_")); |
5454 function_name = (symbol_c*)(new pragma_c("__move_")); |
5306 |
5455 |
5307 if (IN_type_symbol == NULL) |
5456 if (IN_type_symbol == NULL) |
5308 IN_type_symbol = last_type_symbol; |
5457 IN_type_symbol = last_type_symbol; |
5309 ADD_PARAM_LIST(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) |
5310 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; |
5311 function_type_prefix = return_type_symbol; |
5460 function_type_prefix = return_type_symbol; |
5312 function_type_suffix = IN_type_symbol; |
5461 function_type_suffix = IN_type_symbol; |
5313 break; |
5462 break; |
5314 |
5463 |
5327 case function_udint_to_string : |
5476 case function_udint_to_string : |
5328 { |
5477 { |
5329 symbol_c *last_type_symbol = NULL; |
5478 symbol_c *last_type_symbol = NULL; |
5330 |
5479 |
5331 { |
5480 { |
|
5481 identifier_c IN_param_name("IN"); |
5332 /* 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 */ |
5333 symbol_c *IN_param_value = &this->default_variable_name; |
5483 symbol_c *IN_param_value = &this->default_variable_name; |
5334 |
5484 |
5335 symbol_c *IN_type_symbol = param_data_type; |
5485 symbol_c *IN_type_symbol = param_data_type; |
5336 last_type_symbol = param_data_type; |
5486 last_type_symbol = param_data_type; |
5340 |
5490 |
5341 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
5491 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
5342 |
5492 |
5343 if (IN_type_symbol == NULL) |
5493 if (IN_type_symbol == NULL) |
5344 IN_type_symbol = last_type_symbol; |
5494 IN_type_symbol = last_type_symbol; |
5345 ADD_PARAM_LIST(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) |
5346 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; |
5347 function_type_prefix = return_type_symbol; |
5497 function_type_prefix = return_type_symbol; |
5348 break; |
5498 break; |
5349 |
5499 |
5350 } |
5500 } |
5362 case function_udint_to_lword : |
5512 case function_udint_to_lword : |
5363 { |
5513 { |
5364 symbol_c *last_type_symbol = NULL; |
5514 symbol_c *last_type_symbol = NULL; |
5365 |
5515 |
5366 { |
5516 { |
|
5517 identifier_c IN_param_name("IN"); |
5367 /* 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 */ |
5368 symbol_c *IN_param_value = &this->default_variable_name; |
5519 symbol_c *IN_param_value = &this->default_variable_name; |
5369 |
5520 |
5370 symbol_c *IN_type_symbol = param_data_type; |
5521 symbol_c *IN_type_symbol = param_data_type; |
5371 last_type_symbol = param_data_type; |
5522 last_type_symbol = param_data_type; |
5375 |
5526 |
5376 function_name = (symbol_c*)(new pragma_c("__move_")); |
5527 function_name = (symbol_c*)(new pragma_c("__move_")); |
5377 |
5528 |
5378 if (IN_type_symbol == NULL) |
5529 if (IN_type_symbol == NULL) |
5379 IN_type_symbol = last_type_symbol; |
5530 IN_type_symbol = last_type_symbol; |
5380 ADD_PARAM_LIST(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) |
5381 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; |
5382 function_type_prefix = return_type_symbol; |
5533 function_type_prefix = return_type_symbol; |
5383 function_type_suffix = IN_type_symbol; |
5534 function_type_suffix = IN_type_symbol; |
5384 break; |
5535 break; |
5385 |
5536 |
5398 case function_udint_to_uint : |
5549 case function_udint_to_uint : |
5399 { |
5550 { |
5400 symbol_c *last_type_symbol = NULL; |
5551 symbol_c *last_type_symbol = NULL; |
5401 |
5552 |
5402 { |
5553 { |
|
5554 identifier_c IN_param_name("IN"); |
5403 /* 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 */ |
5404 symbol_c *IN_param_value = &this->default_variable_name; |
5556 symbol_c *IN_param_value = &this->default_variable_name; |
5405 |
5557 |
5406 symbol_c *IN_type_symbol = param_data_type; |
5558 symbol_c *IN_type_symbol = param_data_type; |
5407 last_type_symbol = param_data_type; |
5559 last_type_symbol = param_data_type; |
5411 |
5563 |
5412 function_name = (symbol_c*)(new pragma_c("__move_")); |
5564 function_name = (symbol_c*)(new pragma_c("__move_")); |
5413 |
5565 |
5414 if (IN_type_symbol == NULL) |
5566 if (IN_type_symbol == NULL) |
5415 IN_type_symbol = last_type_symbol; |
5567 IN_type_symbol = last_type_symbol; |
5416 ADD_PARAM_LIST(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) |
5417 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; |
5418 function_type_prefix = return_type_symbol; |
5570 function_type_prefix = return_type_symbol; |
5419 function_type_suffix = IN_type_symbol; |
5571 function_type_suffix = IN_type_symbol; |
5420 break; |
5572 break; |
5421 |
5573 |
5434 case function_udint_to_lreal : |
5586 case function_udint_to_lreal : |
5435 { |
5587 { |
5436 symbol_c *last_type_symbol = NULL; |
5588 symbol_c *last_type_symbol = NULL; |
5437 |
5589 |
5438 { |
5590 { |
|
5591 identifier_c IN_param_name("IN"); |
5439 /* 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 */ |
5440 symbol_c *IN_param_value = &this->default_variable_name; |
5593 symbol_c *IN_param_value = &this->default_variable_name; |
5441 |
5594 |
5442 symbol_c *IN_type_symbol = param_data_type; |
5595 symbol_c *IN_type_symbol = param_data_type; |
5443 last_type_symbol = param_data_type; |
5596 last_type_symbol = param_data_type; |
5447 |
5600 |
5448 function_name = (symbol_c*)(new pragma_c("__move_")); |
5601 function_name = (symbol_c*)(new pragma_c("__move_")); |
5449 |
5602 |
5450 if (IN_type_symbol == NULL) |
5603 if (IN_type_symbol == NULL) |
5451 IN_type_symbol = last_type_symbol; |
5604 IN_type_symbol = last_type_symbol; |
5452 ADD_PARAM_LIST(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) |
5453 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; |
5454 function_type_prefix = return_type_symbol; |
5607 function_type_prefix = return_type_symbol; |
5455 function_type_suffix = IN_type_symbol; |
5608 function_type_suffix = IN_type_symbol; |
5456 break; |
5609 break; |
5457 |
5610 |
5470 case function_udint_to_byte : |
5623 case function_udint_to_byte : |
5471 { |
5624 { |
5472 symbol_c *last_type_symbol = NULL; |
5625 symbol_c *last_type_symbol = NULL; |
5473 |
5626 |
5474 { |
5627 { |
|
5628 identifier_c IN_param_name("IN"); |
5475 /* 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 */ |
5476 symbol_c *IN_param_value = &this->default_variable_name; |
5630 symbol_c *IN_param_value = &this->default_variable_name; |
5477 |
5631 |
5478 symbol_c *IN_type_symbol = param_data_type; |
5632 symbol_c *IN_type_symbol = param_data_type; |
5479 last_type_symbol = param_data_type; |
5633 last_type_symbol = param_data_type; |
5483 |
5637 |
5484 function_name = (symbol_c*)(new pragma_c("__move_")); |
5638 function_name = (symbol_c*)(new pragma_c("__move_")); |
5485 |
5639 |
5486 if (IN_type_symbol == NULL) |
5640 if (IN_type_symbol == NULL) |
5487 IN_type_symbol = last_type_symbol; |
5641 IN_type_symbol = last_type_symbol; |
5488 ADD_PARAM_LIST(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) |
5489 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; |
5490 function_type_prefix = return_type_symbol; |
5644 function_type_prefix = return_type_symbol; |
5491 function_type_suffix = IN_type_symbol; |
5645 function_type_suffix = IN_type_symbol; |
5492 break; |
5646 break; |
5493 |
5647 |
5506 case function_udint_to_usint : |
5660 case function_udint_to_usint : |
5507 { |
5661 { |
5508 symbol_c *last_type_symbol = NULL; |
5662 symbol_c *last_type_symbol = NULL; |
5509 |
5663 |
5510 { |
5664 { |
|
5665 identifier_c IN_param_name("IN"); |
5511 /* 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 */ |
5512 symbol_c *IN_param_value = &this->default_variable_name; |
5667 symbol_c *IN_param_value = &this->default_variable_name; |
5513 |
5668 |
5514 symbol_c *IN_type_symbol = param_data_type; |
5669 symbol_c *IN_type_symbol = param_data_type; |
5515 last_type_symbol = param_data_type; |
5670 last_type_symbol = param_data_type; |
5519 |
5674 |
5520 function_name = (symbol_c*)(new pragma_c("__move_")); |
5675 function_name = (symbol_c*)(new pragma_c("__move_")); |
5521 |
5676 |
5522 if (IN_type_symbol == NULL) |
5677 if (IN_type_symbol == NULL) |
5523 IN_type_symbol = last_type_symbol; |
5678 IN_type_symbol = last_type_symbol; |
5524 ADD_PARAM_LIST(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) |
5525 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; |
5526 function_type_prefix = return_type_symbol; |
5681 function_type_prefix = return_type_symbol; |
5527 function_type_suffix = IN_type_symbol; |
5682 function_type_suffix = IN_type_symbol; |
5528 break; |
5683 break; |
5529 |
5684 |
5542 case function_udint_to_ulint : |
5697 case function_udint_to_ulint : |
5543 { |
5698 { |
5544 symbol_c *last_type_symbol = NULL; |
5699 symbol_c *last_type_symbol = NULL; |
5545 |
5700 |
5546 { |
5701 { |
|
5702 identifier_c IN_param_name("IN"); |
5547 /* 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 */ |
5548 symbol_c *IN_param_value = &this->default_variable_name; |
5704 symbol_c *IN_param_value = &this->default_variable_name; |
5549 |
5705 |
5550 symbol_c *IN_type_symbol = param_data_type; |
5706 symbol_c *IN_type_symbol = param_data_type; |
5551 last_type_symbol = param_data_type; |
5707 last_type_symbol = param_data_type; |
5555 |
5711 |
5556 function_name = (symbol_c*)(new pragma_c("__move_")); |
5712 function_name = (symbol_c*)(new pragma_c("__move_")); |
5557 |
5713 |
5558 if (IN_type_symbol == NULL) |
5714 if (IN_type_symbol == NULL) |
5559 IN_type_symbol = last_type_symbol; |
5715 IN_type_symbol = last_type_symbol; |
5560 ADD_PARAM_LIST(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) |
5561 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; |
5562 function_type_prefix = return_type_symbol; |
5718 function_type_prefix = return_type_symbol; |
5563 function_type_suffix = IN_type_symbol; |
5719 function_type_suffix = IN_type_symbol; |
5564 break; |
5720 break; |
5565 |
5721 |
5578 case function_udint_to_bool : |
5734 case function_udint_to_bool : |
5579 { |
5735 { |
5580 symbol_c *last_type_symbol = NULL; |
5736 symbol_c *last_type_symbol = NULL; |
5581 |
5737 |
5582 { |
5738 { |
|
5739 identifier_c IN_param_name("IN"); |
5583 /* 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 */ |
5584 symbol_c *IN_param_value = &this->default_variable_name; |
5741 symbol_c *IN_param_value = &this->default_variable_name; |
5585 |
5742 |
5586 symbol_c *IN_type_symbol = param_data_type; |
5743 symbol_c *IN_type_symbol = param_data_type; |
5587 last_type_symbol = param_data_type; |
5744 last_type_symbol = param_data_type; |
5591 |
5748 |
5592 function_name = (symbol_c*)(new pragma_c("__move_")); |
5749 function_name = (symbol_c*)(new pragma_c("__move_")); |
5593 |
5750 |
5594 if (IN_type_symbol == NULL) |
5751 if (IN_type_symbol == NULL) |
5595 IN_type_symbol = last_type_symbol; |
5752 IN_type_symbol = last_type_symbol; |
5596 ADD_PARAM_LIST(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) |
5597 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; |
5598 function_type_prefix = return_type_symbol; |
5755 function_type_prefix = return_type_symbol; |
5599 function_type_suffix = IN_type_symbol; |
5756 function_type_suffix = IN_type_symbol; |
5600 break; |
5757 break; |
5601 |
5758 |
5614 case function_udint_to_time : |
5771 case function_udint_to_time : |
5615 { |
5772 { |
5616 symbol_c *last_type_symbol = NULL; |
5773 symbol_c *last_type_symbol = NULL; |
5617 |
5774 |
5618 { |
5775 { |
|
5776 identifier_c IN_param_name("IN"); |
5619 /* 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 */ |
5620 symbol_c *IN_param_value = &this->default_variable_name; |
5778 symbol_c *IN_param_value = &this->default_variable_name; |
5621 |
5779 |
5622 symbol_c *IN_type_symbol = param_data_type; |
5780 symbol_c *IN_type_symbol = param_data_type; |
5623 last_type_symbol = param_data_type; |
5781 last_type_symbol = param_data_type; |
5627 |
5785 |
5628 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5786 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5629 |
5787 |
5630 if (IN_type_symbol == NULL) |
5788 if (IN_type_symbol == NULL) |
5631 IN_type_symbol = last_type_symbol; |
5789 IN_type_symbol = last_type_symbol; |
5632 ADD_PARAM_LIST(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) |
5633 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; |
5634 function_type_prefix = return_type_symbol; |
5792 function_type_prefix = return_type_symbol; |
5635 break; |
5793 break; |
5636 |
5794 |
5637 } |
5795 } |
5649 case function_udint_to_int : |
5807 case function_udint_to_int : |
5650 { |
5808 { |
5651 symbol_c *last_type_symbol = NULL; |
5809 symbol_c *last_type_symbol = NULL; |
5652 |
5810 |
5653 { |
5811 { |
|
5812 identifier_c IN_param_name("IN"); |
5654 /* 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 */ |
5655 symbol_c *IN_param_value = &this->default_variable_name; |
5814 symbol_c *IN_param_value = &this->default_variable_name; |
5656 |
5815 |
5657 symbol_c *IN_type_symbol = param_data_type; |
5816 symbol_c *IN_type_symbol = param_data_type; |
5658 last_type_symbol = param_data_type; |
5817 last_type_symbol = param_data_type; |
5662 |
5821 |
5663 function_name = (symbol_c*)(new pragma_c("__move_")); |
5822 function_name = (symbol_c*)(new pragma_c("__move_")); |
5664 |
5823 |
5665 if (IN_type_symbol == NULL) |
5824 if (IN_type_symbol == NULL) |
5666 IN_type_symbol = last_type_symbol; |
5825 IN_type_symbol = last_type_symbol; |
5667 ADD_PARAM_LIST(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) |
5668 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; |
5669 function_type_prefix = return_type_symbol; |
5828 function_type_prefix = return_type_symbol; |
5670 function_type_suffix = IN_type_symbol; |
5829 function_type_suffix = IN_type_symbol; |
5671 break; |
5830 break; |
5672 |
5831 |
5685 case function_word_to_real : |
5844 case function_word_to_real : |
5686 { |
5845 { |
5687 symbol_c *last_type_symbol = NULL; |
5846 symbol_c *last_type_symbol = NULL; |
5688 |
5847 |
5689 { |
5848 { |
|
5849 identifier_c IN_param_name("IN"); |
5690 /* 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 */ |
5691 symbol_c *IN_param_value = &this->default_variable_name; |
5851 symbol_c *IN_param_value = &this->default_variable_name; |
5692 |
5852 |
5693 symbol_c *IN_type_symbol = param_data_type; |
5853 symbol_c *IN_type_symbol = param_data_type; |
5694 last_type_symbol = param_data_type; |
5854 last_type_symbol = param_data_type; |
5698 |
5858 |
5699 function_name = (symbol_c*)(new pragma_c("__move_")); |
5859 function_name = (symbol_c*)(new pragma_c("__move_")); |
5700 |
5860 |
5701 if (IN_type_symbol == NULL) |
5861 if (IN_type_symbol == NULL) |
5702 IN_type_symbol = last_type_symbol; |
5862 IN_type_symbol = last_type_symbol; |
5703 ADD_PARAM_LIST(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) |
5704 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; |
5705 function_type_prefix = return_type_symbol; |
5865 function_type_prefix = return_type_symbol; |
5706 function_type_suffix = IN_type_symbol; |
5866 function_type_suffix = IN_type_symbol; |
5707 break; |
5867 break; |
5708 |
5868 |
5721 case function_word_to_sint : |
5881 case function_word_to_sint : |
5722 { |
5882 { |
5723 symbol_c *last_type_symbol = NULL; |
5883 symbol_c *last_type_symbol = NULL; |
5724 |
5884 |
5725 { |
5885 { |
|
5886 identifier_c IN_param_name("IN"); |
5726 /* 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 */ |
5727 symbol_c *IN_param_value = &this->default_variable_name; |
5888 symbol_c *IN_param_value = &this->default_variable_name; |
5728 |
5889 |
5729 symbol_c *IN_type_symbol = param_data_type; |
5890 symbol_c *IN_type_symbol = param_data_type; |
5730 last_type_symbol = param_data_type; |
5891 last_type_symbol = param_data_type; |
5734 |
5895 |
5735 function_name = (symbol_c*)(new pragma_c("__move_")); |
5896 function_name = (symbol_c*)(new pragma_c("__move_")); |
5736 |
5897 |
5737 if (IN_type_symbol == NULL) |
5898 if (IN_type_symbol == NULL) |
5738 IN_type_symbol = last_type_symbol; |
5899 IN_type_symbol = last_type_symbol; |
5739 ADD_PARAM_LIST(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) |
5740 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; |
5741 function_type_prefix = return_type_symbol; |
5902 function_type_prefix = return_type_symbol; |
5742 function_type_suffix = IN_type_symbol; |
5903 function_type_suffix = IN_type_symbol; |
5743 break; |
5904 break; |
5744 |
5905 |
5757 case function_word_to_lint : |
5918 case function_word_to_lint : |
5758 { |
5919 { |
5759 symbol_c *last_type_symbol = NULL; |
5920 symbol_c *last_type_symbol = NULL; |
5760 |
5921 |
5761 { |
5922 { |
|
5923 identifier_c IN_param_name("IN"); |
5762 /* 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 */ |
5763 symbol_c *IN_param_value = &this->default_variable_name; |
5925 symbol_c *IN_param_value = &this->default_variable_name; |
5764 |
5926 |
5765 symbol_c *IN_type_symbol = param_data_type; |
5927 symbol_c *IN_type_symbol = param_data_type; |
5766 last_type_symbol = param_data_type; |
5928 last_type_symbol = param_data_type; |
5770 |
5932 |
5771 function_name = (symbol_c*)(new pragma_c("__move_")); |
5933 function_name = (symbol_c*)(new pragma_c("__move_")); |
5772 |
5934 |
5773 if (IN_type_symbol == NULL) |
5935 if (IN_type_symbol == NULL) |
5774 IN_type_symbol = last_type_symbol; |
5936 IN_type_symbol = last_type_symbol; |
5775 ADD_PARAM_LIST(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) |
5776 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; |
5777 function_type_prefix = return_type_symbol; |
5939 function_type_prefix = return_type_symbol; |
5778 function_type_suffix = IN_type_symbol; |
5940 function_type_suffix = IN_type_symbol; |
5779 break; |
5941 break; |
5780 |
5942 |
5793 case function_word_to_dint : |
5955 case function_word_to_dint : |
5794 { |
5956 { |
5795 symbol_c *last_type_symbol = NULL; |
5957 symbol_c *last_type_symbol = NULL; |
5796 |
5958 |
5797 { |
5959 { |
|
5960 identifier_c IN_param_name("IN"); |
5798 /* 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 */ |
5799 symbol_c *IN_param_value = &this->default_variable_name; |
5962 symbol_c *IN_param_value = &this->default_variable_name; |
5800 |
5963 |
5801 symbol_c *IN_type_symbol = param_data_type; |
5964 symbol_c *IN_type_symbol = param_data_type; |
5802 last_type_symbol = param_data_type; |
5965 last_type_symbol = param_data_type; |
5806 |
5969 |
5807 function_name = (symbol_c*)(new pragma_c("__move_")); |
5970 function_name = (symbol_c*)(new pragma_c("__move_")); |
5808 |
5971 |
5809 if (IN_type_symbol == NULL) |
5972 if (IN_type_symbol == NULL) |
5810 IN_type_symbol = last_type_symbol; |
5973 IN_type_symbol = last_type_symbol; |
5811 ADD_PARAM_LIST(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) |
5812 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; |
5813 function_type_prefix = return_type_symbol; |
5976 function_type_prefix = return_type_symbol; |
5814 function_type_suffix = IN_type_symbol; |
5977 function_type_suffix = IN_type_symbol; |
5815 break; |
5978 break; |
5816 |
5979 |
5829 case function_word_to_date : |
5992 case function_word_to_date : |
5830 { |
5993 { |
5831 symbol_c *last_type_symbol = NULL; |
5994 symbol_c *last_type_symbol = NULL; |
5832 |
5995 |
5833 { |
5996 { |
|
5997 identifier_c IN_param_name("IN"); |
5834 /* 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 */ |
5835 symbol_c *IN_param_value = &this->default_variable_name; |
5999 symbol_c *IN_param_value = &this->default_variable_name; |
5836 |
6000 |
5837 symbol_c *IN_type_symbol = param_data_type; |
6001 symbol_c *IN_type_symbol = param_data_type; |
5838 last_type_symbol = param_data_type; |
6002 last_type_symbol = param_data_type; |
5842 |
6006 |
5843 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6007 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5844 |
6008 |
5845 if (IN_type_symbol == NULL) |
6009 if (IN_type_symbol == NULL) |
5846 IN_type_symbol = last_type_symbol; |
6010 IN_type_symbol = last_type_symbol; |
5847 ADD_PARAM_LIST(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) |
5848 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; |
5849 function_type_prefix = return_type_symbol; |
6013 function_type_prefix = return_type_symbol; |
5850 break; |
6014 break; |
5851 |
6015 |
5852 } |
6016 } |
5864 case function_word_to_dword : |
6028 case function_word_to_dword : |
5865 { |
6029 { |
5866 symbol_c *last_type_symbol = NULL; |
6030 symbol_c *last_type_symbol = NULL; |
5867 |
6031 |
5868 { |
6032 { |
|
6033 identifier_c IN_param_name("IN"); |
5869 /* 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 */ |
5870 symbol_c *IN_param_value = &this->default_variable_name; |
6035 symbol_c *IN_param_value = &this->default_variable_name; |
5871 |
6036 |
5872 symbol_c *IN_type_symbol = param_data_type; |
6037 symbol_c *IN_type_symbol = param_data_type; |
5873 last_type_symbol = param_data_type; |
6038 last_type_symbol = param_data_type; |
5877 |
6042 |
5878 function_name = (symbol_c*)(new pragma_c("__move_")); |
6043 function_name = (symbol_c*)(new pragma_c("__move_")); |
5879 |
6044 |
5880 if (IN_type_symbol == NULL) |
6045 if (IN_type_symbol == NULL) |
5881 IN_type_symbol = last_type_symbol; |
6046 IN_type_symbol = last_type_symbol; |
5882 ADD_PARAM_LIST(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) |
5883 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; |
5884 function_type_prefix = return_type_symbol; |
6049 function_type_prefix = return_type_symbol; |
5885 function_type_suffix = IN_type_symbol; |
6050 function_type_suffix = IN_type_symbol; |
5886 break; |
6051 break; |
5887 |
6052 |
5900 case function_word_to_dt : |
6065 case function_word_to_dt : |
5901 { |
6066 { |
5902 symbol_c *last_type_symbol = NULL; |
6067 symbol_c *last_type_symbol = NULL; |
5903 |
6068 |
5904 { |
6069 { |
|
6070 identifier_c IN_param_name("IN"); |
5905 /* 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 */ |
5906 symbol_c *IN_param_value = &this->default_variable_name; |
6072 symbol_c *IN_param_value = &this->default_variable_name; |
5907 |
6073 |
5908 symbol_c *IN_type_symbol = param_data_type; |
6074 symbol_c *IN_type_symbol = param_data_type; |
5909 last_type_symbol = param_data_type; |
6075 last_type_symbol = param_data_type; |
5913 |
6079 |
5914 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6080 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5915 |
6081 |
5916 if (IN_type_symbol == NULL) |
6082 if (IN_type_symbol == NULL) |
5917 IN_type_symbol = last_type_symbol; |
6083 IN_type_symbol = last_type_symbol; |
5918 ADD_PARAM_LIST(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) |
5919 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; |
5920 function_type_prefix = return_type_symbol; |
6086 function_type_prefix = return_type_symbol; |
5921 break; |
6087 break; |
5922 |
6088 |
5923 } |
6089 } |
5935 case function_word_to_tod : |
6101 case function_word_to_tod : |
5936 { |
6102 { |
5937 symbol_c *last_type_symbol = NULL; |
6103 symbol_c *last_type_symbol = NULL; |
5938 |
6104 |
5939 { |
6105 { |
|
6106 identifier_c IN_param_name("IN"); |
5940 /* 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 */ |
5941 symbol_c *IN_param_value = &this->default_variable_name; |
6108 symbol_c *IN_param_value = &this->default_variable_name; |
5942 |
6109 |
5943 symbol_c *IN_type_symbol = param_data_type; |
6110 symbol_c *IN_type_symbol = param_data_type; |
5944 last_type_symbol = param_data_type; |
6111 last_type_symbol = param_data_type; |
5948 |
6115 |
5949 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6116 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
5950 |
6117 |
5951 if (IN_type_symbol == NULL) |
6118 if (IN_type_symbol == NULL) |
5952 IN_type_symbol = last_type_symbol; |
6119 IN_type_symbol = last_type_symbol; |
5953 ADD_PARAM_LIST(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) |
5954 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; |
5955 function_type_prefix = return_type_symbol; |
6122 function_type_prefix = return_type_symbol; |
5956 break; |
6123 break; |
5957 |
6124 |
5958 } |
6125 } |
5970 case function_word_to_udint : |
6137 case function_word_to_udint : |
5971 { |
6138 { |
5972 symbol_c *last_type_symbol = NULL; |
6139 symbol_c *last_type_symbol = NULL; |
5973 |
6140 |
5974 { |
6141 { |
|
6142 identifier_c IN_param_name("IN"); |
5975 /* 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 */ |
5976 symbol_c *IN_param_value = &this->default_variable_name; |
6144 symbol_c *IN_param_value = &this->default_variable_name; |
5977 |
6145 |
5978 symbol_c *IN_type_symbol = param_data_type; |
6146 symbol_c *IN_type_symbol = param_data_type; |
5979 last_type_symbol = param_data_type; |
6147 last_type_symbol = param_data_type; |
5983 |
6151 |
5984 function_name = (symbol_c*)(new pragma_c("__move_")); |
6152 function_name = (symbol_c*)(new pragma_c("__move_")); |
5985 |
6153 |
5986 if (IN_type_symbol == NULL) |
6154 if (IN_type_symbol == NULL) |
5987 IN_type_symbol = last_type_symbol; |
6155 IN_type_symbol = last_type_symbol; |
5988 ADD_PARAM_LIST(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) |
5989 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; |
5990 function_type_prefix = return_type_symbol; |
6158 function_type_prefix = return_type_symbol; |
5991 function_type_suffix = IN_type_symbol; |
6159 function_type_suffix = IN_type_symbol; |
5992 break; |
6160 break; |
5993 |
6161 |
6006 case function_word_to_string : |
6174 case function_word_to_string : |
6007 { |
6175 { |
6008 symbol_c *last_type_symbol = NULL; |
6176 symbol_c *last_type_symbol = NULL; |
6009 |
6177 |
6010 { |
6178 { |
|
6179 identifier_c IN_param_name("IN"); |
6011 /* 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 */ |
6012 symbol_c *IN_param_value = &this->default_variable_name; |
6181 symbol_c *IN_param_value = &this->default_variable_name; |
6013 |
6182 |
6014 symbol_c *IN_type_symbol = param_data_type; |
6183 symbol_c *IN_type_symbol = param_data_type; |
6015 last_type_symbol = param_data_type; |
6184 last_type_symbol = param_data_type; |
6019 |
6188 |
6020 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
6189 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
6021 |
6190 |
6022 if (IN_type_symbol == NULL) |
6191 if (IN_type_symbol == NULL) |
6023 IN_type_symbol = last_type_symbol; |
6192 IN_type_symbol = last_type_symbol; |
6024 ADD_PARAM_LIST(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) |
6025 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; |
6026 function_type_prefix = return_type_symbol; |
6195 function_type_prefix = return_type_symbol; |
6027 break; |
6196 break; |
6028 |
6197 |
6029 } |
6198 } |
6041 case function_word_to_lword : |
6210 case function_word_to_lword : |
6042 { |
6211 { |
6043 symbol_c *last_type_symbol = NULL; |
6212 symbol_c *last_type_symbol = NULL; |
6044 |
6213 |
6045 { |
6214 { |
|
6215 identifier_c IN_param_name("IN"); |
6046 /* 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 */ |
6047 symbol_c *IN_param_value = &this->default_variable_name; |
6217 symbol_c *IN_param_value = &this->default_variable_name; |
6048 |
6218 |
6049 symbol_c *IN_type_symbol = param_data_type; |
6219 symbol_c *IN_type_symbol = param_data_type; |
6050 last_type_symbol = param_data_type; |
6220 last_type_symbol = param_data_type; |
6054 |
6224 |
6055 function_name = (symbol_c*)(new pragma_c("__move_")); |
6225 function_name = (symbol_c*)(new pragma_c("__move_")); |
6056 |
6226 |
6057 if (IN_type_symbol == NULL) |
6227 if (IN_type_symbol == NULL) |
6058 IN_type_symbol = last_type_symbol; |
6228 IN_type_symbol = last_type_symbol; |
6059 ADD_PARAM_LIST(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) |
6060 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; |
6061 function_type_prefix = return_type_symbol; |
6231 function_type_prefix = return_type_symbol; |
6062 function_type_suffix = IN_type_symbol; |
6232 function_type_suffix = IN_type_symbol; |
6063 break; |
6233 break; |
6064 |
6234 |
6077 case function_word_to_uint : |
6247 case function_word_to_uint : |
6078 { |
6248 { |
6079 symbol_c *last_type_symbol = NULL; |
6249 symbol_c *last_type_symbol = NULL; |
6080 |
6250 |
6081 { |
6251 { |
|
6252 identifier_c IN_param_name("IN"); |
6082 /* 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 */ |
6083 symbol_c *IN_param_value = &this->default_variable_name; |
6254 symbol_c *IN_param_value = &this->default_variable_name; |
6084 |
6255 |
6085 symbol_c *IN_type_symbol = param_data_type; |
6256 symbol_c *IN_type_symbol = param_data_type; |
6086 last_type_symbol = param_data_type; |
6257 last_type_symbol = param_data_type; |
6090 |
6261 |
6091 function_name = (symbol_c*)(new pragma_c("__move_")); |
6262 function_name = (symbol_c*)(new pragma_c("__move_")); |
6092 |
6263 |
6093 if (IN_type_symbol == NULL) |
6264 if (IN_type_symbol == NULL) |
6094 IN_type_symbol = last_type_symbol; |
6265 IN_type_symbol = last_type_symbol; |
6095 ADD_PARAM_LIST(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) |
6096 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; |
6097 function_type_prefix = return_type_symbol; |
6268 function_type_prefix = return_type_symbol; |
6098 function_type_suffix = IN_type_symbol; |
6269 function_type_suffix = IN_type_symbol; |
6099 break; |
6270 break; |
6100 |
6271 |
6113 case function_word_to_lreal : |
6284 case function_word_to_lreal : |
6114 { |
6285 { |
6115 symbol_c *last_type_symbol = NULL; |
6286 symbol_c *last_type_symbol = NULL; |
6116 |
6287 |
6117 { |
6288 { |
|
6289 identifier_c IN_param_name("IN"); |
6118 /* 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 */ |
6119 symbol_c *IN_param_value = &this->default_variable_name; |
6291 symbol_c *IN_param_value = &this->default_variable_name; |
6120 |
6292 |
6121 symbol_c *IN_type_symbol = param_data_type; |
6293 symbol_c *IN_type_symbol = param_data_type; |
6122 last_type_symbol = param_data_type; |
6294 last_type_symbol = param_data_type; |
6126 |
6298 |
6127 function_name = (symbol_c*)(new pragma_c("__move_")); |
6299 function_name = (symbol_c*)(new pragma_c("__move_")); |
6128 |
6300 |
6129 if (IN_type_symbol == NULL) |
6301 if (IN_type_symbol == NULL) |
6130 IN_type_symbol = last_type_symbol; |
6302 IN_type_symbol = last_type_symbol; |
6131 ADD_PARAM_LIST(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) |
6132 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; |
6133 function_type_prefix = return_type_symbol; |
6305 function_type_prefix = return_type_symbol; |
6134 function_type_suffix = IN_type_symbol; |
6306 function_type_suffix = IN_type_symbol; |
6135 break; |
6307 break; |
6136 |
6308 |
6149 case function_word_to_byte : |
6321 case function_word_to_byte : |
6150 { |
6322 { |
6151 symbol_c *last_type_symbol = NULL; |
6323 symbol_c *last_type_symbol = NULL; |
6152 |
6324 |
6153 { |
6325 { |
|
6326 identifier_c IN_param_name("IN"); |
6154 /* 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 */ |
6155 symbol_c *IN_param_value = &this->default_variable_name; |
6328 symbol_c *IN_param_value = &this->default_variable_name; |
6156 |
6329 |
6157 symbol_c *IN_type_symbol = param_data_type; |
6330 symbol_c *IN_type_symbol = param_data_type; |
6158 last_type_symbol = param_data_type; |
6331 last_type_symbol = param_data_type; |
6162 |
6335 |
6163 function_name = (symbol_c*)(new pragma_c("__move_")); |
6336 function_name = (symbol_c*)(new pragma_c("__move_")); |
6164 |
6337 |
6165 if (IN_type_symbol == NULL) |
6338 if (IN_type_symbol == NULL) |
6166 IN_type_symbol = last_type_symbol; |
6339 IN_type_symbol = last_type_symbol; |
6167 ADD_PARAM_LIST(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) |
6168 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; |
6169 function_type_prefix = return_type_symbol; |
6342 function_type_prefix = return_type_symbol; |
6170 function_type_suffix = IN_type_symbol; |
6343 function_type_suffix = IN_type_symbol; |
6171 break; |
6344 break; |
6172 |
6345 |
6185 case function_word_to_usint : |
6358 case function_word_to_usint : |
6186 { |
6359 { |
6187 symbol_c *last_type_symbol = NULL; |
6360 symbol_c *last_type_symbol = NULL; |
6188 |
6361 |
6189 { |
6362 { |
|
6363 identifier_c IN_param_name("IN"); |
6190 /* 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 */ |
6191 symbol_c *IN_param_value = &this->default_variable_name; |
6365 symbol_c *IN_param_value = &this->default_variable_name; |
6192 |
6366 |
6193 symbol_c *IN_type_symbol = param_data_type; |
6367 symbol_c *IN_type_symbol = param_data_type; |
6194 last_type_symbol = param_data_type; |
6368 last_type_symbol = param_data_type; |
6198 |
6372 |
6199 function_name = (symbol_c*)(new pragma_c("__move_")); |
6373 function_name = (symbol_c*)(new pragma_c("__move_")); |
6200 |
6374 |
6201 if (IN_type_symbol == NULL) |
6375 if (IN_type_symbol == NULL) |
6202 IN_type_symbol = last_type_symbol; |
6376 IN_type_symbol = last_type_symbol; |
6203 ADD_PARAM_LIST(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) |
6204 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; |
6205 function_type_prefix = return_type_symbol; |
6379 function_type_prefix = return_type_symbol; |
6206 function_type_suffix = IN_type_symbol; |
6380 function_type_suffix = IN_type_symbol; |
6207 break; |
6381 break; |
6208 |
6382 |
6221 case function_word_to_ulint : |
6395 case function_word_to_ulint : |
6222 { |
6396 { |
6223 symbol_c *last_type_symbol = NULL; |
6397 symbol_c *last_type_symbol = NULL; |
6224 |
6398 |
6225 { |
6399 { |
|
6400 identifier_c IN_param_name("IN"); |
6226 /* 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 */ |
6227 symbol_c *IN_param_value = &this->default_variable_name; |
6402 symbol_c *IN_param_value = &this->default_variable_name; |
6228 |
6403 |
6229 symbol_c *IN_type_symbol = param_data_type; |
6404 symbol_c *IN_type_symbol = param_data_type; |
6230 last_type_symbol = param_data_type; |
6405 last_type_symbol = param_data_type; |
6234 |
6409 |
6235 function_name = (symbol_c*)(new pragma_c("__move_")); |
6410 function_name = (symbol_c*)(new pragma_c("__move_")); |
6236 |
6411 |
6237 if (IN_type_symbol == NULL) |
6412 if (IN_type_symbol == NULL) |
6238 IN_type_symbol = last_type_symbol; |
6413 IN_type_symbol = last_type_symbol; |
6239 ADD_PARAM_LIST(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) |
6240 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; |
6241 function_type_prefix = return_type_symbol; |
6416 function_type_prefix = return_type_symbol; |
6242 function_type_suffix = IN_type_symbol; |
6417 function_type_suffix = IN_type_symbol; |
6243 break; |
6418 break; |
6244 |
6419 |
6257 case function_word_to_bool : |
6432 case function_word_to_bool : |
6258 { |
6433 { |
6259 symbol_c *last_type_symbol = NULL; |
6434 symbol_c *last_type_symbol = NULL; |
6260 |
6435 |
6261 { |
6436 { |
|
6437 identifier_c IN_param_name("IN"); |
6262 /* 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 */ |
6263 symbol_c *IN_param_value = &this->default_variable_name; |
6439 symbol_c *IN_param_value = &this->default_variable_name; |
6264 |
6440 |
6265 symbol_c *IN_type_symbol = param_data_type; |
6441 symbol_c *IN_type_symbol = param_data_type; |
6266 last_type_symbol = param_data_type; |
6442 last_type_symbol = param_data_type; |
6270 |
6446 |
6271 function_name = (symbol_c*)(new pragma_c("__move_")); |
6447 function_name = (symbol_c*)(new pragma_c("__move_")); |
6272 |
6448 |
6273 if (IN_type_symbol == NULL) |
6449 if (IN_type_symbol == NULL) |
6274 IN_type_symbol = last_type_symbol; |
6450 IN_type_symbol = last_type_symbol; |
6275 ADD_PARAM_LIST(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) |
6276 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; |
6277 function_type_prefix = return_type_symbol; |
6453 function_type_prefix = return_type_symbol; |
6278 function_type_suffix = IN_type_symbol; |
6454 function_type_suffix = IN_type_symbol; |
6279 break; |
6455 break; |
6280 |
6456 |
6293 case function_word_to_time : |
6469 case function_word_to_time : |
6294 { |
6470 { |
6295 symbol_c *last_type_symbol = NULL; |
6471 symbol_c *last_type_symbol = NULL; |
6296 |
6472 |
6297 { |
6473 { |
|
6474 identifier_c IN_param_name("IN"); |
6298 /* 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 */ |
6299 symbol_c *IN_param_value = &this->default_variable_name; |
6476 symbol_c *IN_param_value = &this->default_variable_name; |
6300 |
6477 |
6301 symbol_c *IN_type_symbol = param_data_type; |
6478 symbol_c *IN_type_symbol = param_data_type; |
6302 last_type_symbol = param_data_type; |
6479 last_type_symbol = param_data_type; |
6306 |
6483 |
6307 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6484 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
6308 |
6485 |
6309 if (IN_type_symbol == NULL) |
6486 if (IN_type_symbol == NULL) |
6310 IN_type_symbol = last_type_symbol; |
6487 IN_type_symbol = last_type_symbol; |
6311 ADD_PARAM_LIST(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) |
6312 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; |
6313 function_type_prefix = return_type_symbol; |
6490 function_type_prefix = return_type_symbol; |
6314 break; |
6491 break; |
6315 |
6492 |
6316 } |
6493 } |
6328 case function_word_to_int : |
6505 case function_word_to_int : |
6329 { |
6506 { |
6330 symbol_c *last_type_symbol = NULL; |
6507 symbol_c *last_type_symbol = NULL; |
6331 |
6508 |
6332 { |
6509 { |
|
6510 identifier_c IN_param_name("IN"); |
6333 /* 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 */ |
6334 symbol_c *IN_param_value = &this->default_variable_name; |
6512 symbol_c *IN_param_value = &this->default_variable_name; |
6335 |
6513 |
6336 symbol_c *IN_type_symbol = param_data_type; |
6514 symbol_c *IN_type_symbol = param_data_type; |
6337 last_type_symbol = param_data_type; |
6515 last_type_symbol = param_data_type; |
6341 |
6519 |
6342 function_name = (symbol_c*)(new pragma_c("__move_")); |
6520 function_name = (symbol_c*)(new pragma_c("__move_")); |
6343 |
6521 |
6344 if (IN_type_symbol == NULL) |
6522 if (IN_type_symbol == NULL) |
6345 IN_type_symbol = last_type_symbol; |
6523 IN_type_symbol = last_type_symbol; |
6346 ADD_PARAM_LIST(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) |
6347 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; |
6348 function_type_prefix = return_type_symbol; |
6526 function_type_prefix = return_type_symbol; |
6349 function_type_suffix = IN_type_symbol; |
6527 function_type_suffix = IN_type_symbol; |
6350 break; |
6528 break; |
6351 |
6529 |
6364 case function_string_to_real : |
6542 case function_string_to_real : |
6365 { |
6543 { |
6366 symbol_c *last_type_symbol = NULL; |
6544 symbol_c *last_type_symbol = NULL; |
6367 |
6545 |
6368 { |
6546 { |
|
6547 identifier_c IN_param_name("IN"); |
6369 /* 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 */ |
6370 symbol_c *IN_param_value = &this->default_variable_name; |
6549 symbol_c *IN_param_value = &this->default_variable_name; |
6371 |
6550 |
6372 symbol_c *IN_type_symbol = param_data_type; |
6551 symbol_c *IN_type_symbol = param_data_type; |
6373 last_type_symbol = param_data_type; |
6552 last_type_symbol = param_data_type; |
6377 |
6556 |
6378 function_name = (symbol_c*)(new pragma_c("__string_to_real")); |
6557 function_name = (symbol_c*)(new pragma_c("__string_to_real")); |
6379 |
6558 |
6380 if (IN_type_symbol == NULL) |
6559 if (IN_type_symbol == NULL) |
6381 IN_type_symbol = last_type_symbol; |
6560 IN_type_symbol = last_type_symbol; |
6382 ADD_PARAM_LIST(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) |
6383 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; |
6384 function_type_prefix = return_type_symbol; |
6563 function_type_prefix = return_type_symbol; |
6385 break; |
6564 break; |
6386 |
6565 |
6387 } |
6566 } |
6399 case function_string_to_sint : |
6578 case function_string_to_sint : |
6400 { |
6579 { |
6401 symbol_c *last_type_symbol = NULL; |
6580 symbol_c *last_type_symbol = NULL; |
6402 |
6581 |
6403 { |
6582 { |
|
6583 identifier_c IN_param_name("IN"); |
6404 /* 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 */ |
6405 symbol_c *IN_param_value = &this->default_variable_name; |
6585 symbol_c *IN_param_value = &this->default_variable_name; |
6406 |
6586 |
6407 symbol_c *IN_type_symbol = param_data_type; |
6587 symbol_c *IN_type_symbol = param_data_type; |
6408 last_type_symbol = param_data_type; |
6588 last_type_symbol = param_data_type; |
6412 |
6592 |
6413 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6593 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6414 |
6594 |
6415 if (IN_type_symbol == NULL) |
6595 if (IN_type_symbol == NULL) |
6416 IN_type_symbol = last_type_symbol; |
6596 IN_type_symbol = last_type_symbol; |
6417 ADD_PARAM_LIST(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) |
6418 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; |
6419 function_type_prefix = return_type_symbol; |
6599 function_type_prefix = return_type_symbol; |
6420 break; |
6600 break; |
6421 |
6601 |
6422 } |
6602 } |
6434 case function_string_to_lint : |
6614 case function_string_to_lint : |
6435 { |
6615 { |
6436 symbol_c *last_type_symbol = NULL; |
6616 symbol_c *last_type_symbol = NULL; |
6437 |
6617 |
6438 { |
6618 { |
|
6619 identifier_c IN_param_name("IN"); |
6439 /* 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 */ |
6440 symbol_c *IN_param_value = &this->default_variable_name; |
6621 symbol_c *IN_param_value = &this->default_variable_name; |
6441 |
6622 |
6442 symbol_c *IN_type_symbol = param_data_type; |
6623 symbol_c *IN_type_symbol = param_data_type; |
6443 last_type_symbol = param_data_type; |
6624 last_type_symbol = param_data_type; |
6447 |
6628 |
6448 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6629 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6449 |
6630 |
6450 if (IN_type_symbol == NULL) |
6631 if (IN_type_symbol == NULL) |
6451 IN_type_symbol = last_type_symbol; |
6632 IN_type_symbol = last_type_symbol; |
6452 ADD_PARAM_LIST(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) |
6453 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; |
6454 function_type_prefix = return_type_symbol; |
6635 function_type_prefix = return_type_symbol; |
6455 break; |
6636 break; |
6456 |
6637 |
6457 } |
6638 } |
6469 case function_string_to_dint : |
6650 case function_string_to_dint : |
6470 { |
6651 { |
6471 symbol_c *last_type_symbol = NULL; |
6652 symbol_c *last_type_symbol = NULL; |
6472 |
6653 |
6473 { |
6654 { |
|
6655 identifier_c IN_param_name("IN"); |
6474 /* 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 */ |
6475 symbol_c *IN_param_value = &this->default_variable_name; |
6657 symbol_c *IN_param_value = &this->default_variable_name; |
6476 |
6658 |
6477 symbol_c *IN_type_symbol = param_data_type; |
6659 symbol_c *IN_type_symbol = param_data_type; |
6478 last_type_symbol = param_data_type; |
6660 last_type_symbol = param_data_type; |
6482 |
6664 |
6483 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6665 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
6484 |
6666 |
6485 if (IN_type_symbol == NULL) |
6667 if (IN_type_symbol == NULL) |
6486 IN_type_symbol = last_type_symbol; |
6668 IN_type_symbol = last_type_symbol; |
6487 ADD_PARAM_LIST(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) |
6488 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; |
6489 function_type_prefix = return_type_symbol; |
6671 function_type_prefix = return_type_symbol; |
6490 break; |
6672 break; |
6491 |
6673 |
6492 } |
6674 } |
6504 case function_string_to_date : |
6686 case function_string_to_date : |
6505 { |
6687 { |
6506 symbol_c *last_type_symbol = NULL; |
6688 symbol_c *last_type_symbol = NULL; |
6507 |
6689 |
6508 { |
6690 { |
|
6691 identifier_c IN_param_name("IN"); |
6509 /* 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 */ |
6510 symbol_c *IN_param_value = &this->default_variable_name; |
6693 symbol_c *IN_param_value = &this->default_variable_name; |
6511 |
6694 |
6512 symbol_c *IN_type_symbol = param_data_type; |
6695 symbol_c *IN_type_symbol = param_data_type; |
6513 last_type_symbol = param_data_type; |
6696 last_type_symbol = param_data_type; |
6517 |
6700 |
6518 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6701 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6519 |
6702 |
6520 if (IN_type_symbol == NULL) |
6703 if (IN_type_symbol == NULL) |
6521 IN_type_symbol = last_type_symbol; |
6704 IN_type_symbol = last_type_symbol; |
6522 ADD_PARAM_LIST(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) |
6523 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; |
6524 function_type_prefix = return_type_symbol; |
6707 function_type_prefix = return_type_symbol; |
6525 break; |
6708 break; |
6526 |
6709 |
6527 } |
6710 } |
6539 case function_string_to_dword : |
6722 case function_string_to_dword : |
6540 { |
6723 { |
6541 symbol_c *last_type_symbol = NULL; |
6724 symbol_c *last_type_symbol = NULL; |
6542 |
6725 |
6543 { |
6726 { |
|
6727 identifier_c IN_param_name("IN"); |
6544 /* 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 */ |
6545 symbol_c *IN_param_value = &this->default_variable_name; |
6729 symbol_c *IN_param_value = &this->default_variable_name; |
6546 |
6730 |
6547 symbol_c *IN_type_symbol = param_data_type; |
6731 symbol_c *IN_type_symbol = param_data_type; |
6548 last_type_symbol = param_data_type; |
6732 last_type_symbol = param_data_type; |
6552 |
6736 |
6553 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6737 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6554 |
6738 |
6555 if (IN_type_symbol == NULL) |
6739 if (IN_type_symbol == NULL) |
6556 IN_type_symbol = last_type_symbol; |
6740 IN_type_symbol = last_type_symbol; |
6557 ADD_PARAM_LIST(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) |
6558 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; |
6559 function_type_prefix = return_type_symbol; |
6743 function_type_prefix = return_type_symbol; |
6560 break; |
6744 break; |
6561 |
6745 |
6562 } |
6746 } |
6574 case function_string_to_dt : |
6758 case function_string_to_dt : |
6575 { |
6759 { |
6576 symbol_c *last_type_symbol = NULL; |
6760 symbol_c *last_type_symbol = NULL; |
6577 |
6761 |
6578 { |
6762 { |
|
6763 identifier_c IN_param_name("IN"); |
6579 /* 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 */ |
6580 symbol_c *IN_param_value = &this->default_variable_name; |
6765 symbol_c *IN_param_value = &this->default_variable_name; |
6581 |
6766 |
6582 symbol_c *IN_type_symbol = param_data_type; |
6767 symbol_c *IN_type_symbol = param_data_type; |
6583 last_type_symbol = param_data_type; |
6768 last_type_symbol = param_data_type; |
6587 |
6772 |
6588 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6773 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6589 |
6774 |
6590 if (IN_type_symbol == NULL) |
6775 if (IN_type_symbol == NULL) |
6591 IN_type_symbol = last_type_symbol; |
6776 IN_type_symbol = last_type_symbol; |
6592 ADD_PARAM_LIST(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) |
6593 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; |
6594 function_type_prefix = return_type_symbol; |
6779 function_type_prefix = return_type_symbol; |
6595 break; |
6780 break; |
6596 |
6781 |
6597 } |
6782 } |
6609 case function_string_to_tod : |
6794 case function_string_to_tod : |
6610 { |
6795 { |
6611 symbol_c *last_type_symbol = NULL; |
6796 symbol_c *last_type_symbol = NULL; |
6612 |
6797 |
6613 { |
6798 { |
|
6799 identifier_c IN_param_name("IN"); |
6614 /* 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 */ |
6615 symbol_c *IN_param_value = &this->default_variable_name; |
6801 symbol_c *IN_param_value = &this->default_variable_name; |
6616 |
6802 |
6617 symbol_c *IN_type_symbol = param_data_type; |
6803 symbol_c *IN_type_symbol = param_data_type; |
6618 last_type_symbol = param_data_type; |
6804 last_type_symbol = param_data_type; |
6622 |
6808 |
6623 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6809 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6624 |
6810 |
6625 if (IN_type_symbol == NULL) |
6811 if (IN_type_symbol == NULL) |
6626 IN_type_symbol = last_type_symbol; |
6812 IN_type_symbol = last_type_symbol; |
6627 ADD_PARAM_LIST(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) |
6628 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; |
6629 function_type_prefix = return_type_symbol; |
6815 function_type_prefix = return_type_symbol; |
6630 break; |
6816 break; |
6631 |
6817 |
6632 } |
6818 } |
6644 case function_string_to_udint : |
6830 case function_string_to_udint : |
6645 { |
6831 { |
6646 symbol_c *last_type_symbol = NULL; |
6832 symbol_c *last_type_symbol = NULL; |
6647 |
6833 |
6648 { |
6834 { |
|
6835 identifier_c IN_param_name("IN"); |
6649 /* 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 */ |
6650 symbol_c *IN_param_value = &this->default_variable_name; |
6837 symbol_c *IN_param_value = &this->default_variable_name; |
6651 |
6838 |
6652 symbol_c *IN_type_symbol = param_data_type; |
6839 symbol_c *IN_type_symbol = param_data_type; |
6653 last_type_symbol = param_data_type; |
6840 last_type_symbol = param_data_type; |
6657 |
6844 |
6658 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6845 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6659 |
6846 |
6660 if (IN_type_symbol == NULL) |
6847 if (IN_type_symbol == NULL) |
6661 IN_type_symbol = last_type_symbol; |
6848 IN_type_symbol = last_type_symbol; |
6662 ADD_PARAM_LIST(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) |
6663 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; |
6664 function_type_prefix = return_type_symbol; |
6851 function_type_prefix = return_type_symbol; |
6665 break; |
6852 break; |
6666 |
6853 |
6667 } |
6854 } |
6679 case function_string_to_word : |
6866 case function_string_to_word : |
6680 { |
6867 { |
6681 symbol_c *last_type_symbol = NULL; |
6868 symbol_c *last_type_symbol = NULL; |
6682 |
6869 |
6683 { |
6870 { |
|
6871 identifier_c IN_param_name("IN"); |
6684 /* 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 */ |
6685 symbol_c *IN_param_value = &this->default_variable_name; |
6873 symbol_c *IN_param_value = &this->default_variable_name; |
6686 |
6874 |
6687 symbol_c *IN_type_symbol = param_data_type; |
6875 symbol_c *IN_type_symbol = param_data_type; |
6688 last_type_symbol = param_data_type; |
6876 last_type_symbol = param_data_type; |
6692 |
6880 |
6693 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6881 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6694 |
6882 |
6695 if (IN_type_symbol == NULL) |
6883 if (IN_type_symbol == NULL) |
6696 IN_type_symbol = last_type_symbol; |
6884 IN_type_symbol = last_type_symbol; |
6697 ADD_PARAM_LIST(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) |
6698 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; |
6699 function_type_prefix = return_type_symbol; |
6887 function_type_prefix = return_type_symbol; |
6700 break; |
6888 break; |
6701 |
6889 |
6702 } |
6890 } |
6714 case function_string_to_lword : |
6902 case function_string_to_lword : |
6715 { |
6903 { |
6716 symbol_c *last_type_symbol = NULL; |
6904 symbol_c *last_type_symbol = NULL; |
6717 |
6905 |
6718 { |
6906 { |
|
6907 identifier_c IN_param_name("IN"); |
6719 /* 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 */ |
6720 symbol_c *IN_param_value = &this->default_variable_name; |
6909 symbol_c *IN_param_value = &this->default_variable_name; |
6721 |
6910 |
6722 symbol_c *IN_type_symbol = param_data_type; |
6911 symbol_c *IN_type_symbol = param_data_type; |
6723 last_type_symbol = param_data_type; |
6912 last_type_symbol = param_data_type; |
6727 |
6916 |
6728 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6917 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6729 |
6918 |
6730 if (IN_type_symbol == NULL) |
6919 if (IN_type_symbol == NULL) |
6731 IN_type_symbol = last_type_symbol; |
6920 IN_type_symbol = last_type_symbol; |
6732 ADD_PARAM_LIST(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) |
6733 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; |
6734 function_type_prefix = return_type_symbol; |
6923 function_type_prefix = return_type_symbol; |
6735 break; |
6924 break; |
6736 |
6925 |
6737 } |
6926 } |
6749 case function_string_to_uint : |
6938 case function_string_to_uint : |
6750 { |
6939 { |
6751 symbol_c *last_type_symbol = NULL; |
6940 symbol_c *last_type_symbol = NULL; |
6752 |
6941 |
6753 { |
6942 { |
|
6943 identifier_c IN_param_name("IN"); |
6754 /* 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 */ |
6755 symbol_c *IN_param_value = &this->default_variable_name; |
6945 symbol_c *IN_param_value = &this->default_variable_name; |
6756 |
6946 |
6757 symbol_c *IN_type_symbol = param_data_type; |
6947 symbol_c *IN_type_symbol = param_data_type; |
6758 last_type_symbol = param_data_type; |
6948 last_type_symbol = param_data_type; |
6762 |
6952 |
6763 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6953 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6764 |
6954 |
6765 if (IN_type_symbol == NULL) |
6955 if (IN_type_symbol == NULL) |
6766 IN_type_symbol = last_type_symbol; |
6956 IN_type_symbol = last_type_symbol; |
6767 ADD_PARAM_LIST(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) |
6768 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; |
6769 function_type_prefix = return_type_symbol; |
6959 function_type_prefix = return_type_symbol; |
6770 break; |
6960 break; |
6771 |
6961 |
6772 } |
6962 } |
6784 case function_string_to_lreal : |
6974 case function_string_to_lreal : |
6785 { |
6975 { |
6786 symbol_c *last_type_symbol = NULL; |
6976 symbol_c *last_type_symbol = NULL; |
6787 |
6977 |
6788 { |
6978 { |
|
6979 identifier_c IN_param_name("IN"); |
6789 /* 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 */ |
6790 symbol_c *IN_param_value = &this->default_variable_name; |
6981 symbol_c *IN_param_value = &this->default_variable_name; |
6791 |
6982 |
6792 symbol_c *IN_type_symbol = param_data_type; |
6983 symbol_c *IN_type_symbol = param_data_type; |
6793 last_type_symbol = param_data_type; |
6984 last_type_symbol = param_data_type; |
6797 |
6988 |
6798 function_name = (symbol_c*)(new pragma_c("__string_to_real")); |
6989 function_name = (symbol_c*)(new pragma_c("__string_to_real")); |
6799 |
6990 |
6800 if (IN_type_symbol == NULL) |
6991 if (IN_type_symbol == NULL) |
6801 IN_type_symbol = last_type_symbol; |
6992 IN_type_symbol = last_type_symbol; |
6802 ADD_PARAM_LIST(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) |
6803 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; |
6804 function_type_prefix = return_type_symbol; |
6995 function_type_prefix = return_type_symbol; |
6805 break; |
6996 break; |
6806 |
6997 |
6807 } |
6998 } |
6819 case function_string_to_byte : |
7010 case function_string_to_byte : |
6820 { |
7011 { |
6821 symbol_c *last_type_symbol = NULL; |
7012 symbol_c *last_type_symbol = NULL; |
6822 |
7013 |
6823 { |
7014 { |
|
7015 identifier_c IN_param_name("IN"); |
6824 /* 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 */ |
6825 symbol_c *IN_param_value = &this->default_variable_name; |
7017 symbol_c *IN_param_value = &this->default_variable_name; |
6826 |
7018 |
6827 symbol_c *IN_type_symbol = param_data_type; |
7019 symbol_c *IN_type_symbol = param_data_type; |
6828 last_type_symbol = param_data_type; |
7020 last_type_symbol = param_data_type; |
6832 |
7024 |
6833 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
7025 function_name = (symbol_c*)(new pragma_c("__string_to_bit")); |
6834 |
7026 |
6835 if (IN_type_symbol == NULL) |
7027 if (IN_type_symbol == NULL) |
6836 IN_type_symbol = last_type_symbol; |
7028 IN_type_symbol = last_type_symbol; |
6837 ADD_PARAM_LIST(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) |
6838 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; |
6839 function_type_prefix = return_type_symbol; |
7031 function_type_prefix = return_type_symbol; |
6840 break; |
7032 break; |
6841 |
7033 |
6842 } |
7034 } |
6854 case function_string_to_usint : |
7046 case function_string_to_usint : |
6855 { |
7047 { |
6856 symbol_c *last_type_symbol = NULL; |
7048 symbol_c *last_type_symbol = NULL; |
6857 |
7049 |
6858 { |
7050 { |
|
7051 identifier_c IN_param_name("IN"); |
6859 /* 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 */ |
6860 symbol_c *IN_param_value = &this->default_variable_name; |
7053 symbol_c *IN_param_value = &this->default_variable_name; |
6861 |
7054 |
6862 symbol_c *IN_type_symbol = param_data_type; |
7055 symbol_c *IN_type_symbol = param_data_type; |
6863 last_type_symbol = param_data_type; |
7056 last_type_symbol = param_data_type; |
6867 |
7060 |
6868 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
7061 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6869 |
7062 |
6870 if (IN_type_symbol == NULL) |
7063 if (IN_type_symbol == NULL) |
6871 IN_type_symbol = last_type_symbol; |
7064 IN_type_symbol = last_type_symbol; |
6872 ADD_PARAM_LIST(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) |
6873 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; |
6874 function_type_prefix = return_type_symbol; |
7067 function_type_prefix = return_type_symbol; |
6875 break; |
7068 break; |
6876 |
7069 |
6877 } |
7070 } |
6889 case function_string_to_ulint : |
7082 case function_string_to_ulint : |
6890 { |
7083 { |
6891 symbol_c *last_type_symbol = NULL; |
7084 symbol_c *last_type_symbol = NULL; |
6892 |
7085 |
6893 { |
7086 { |
|
7087 identifier_c IN_param_name("IN"); |
6894 /* 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 */ |
6895 symbol_c *IN_param_value = &this->default_variable_name; |
7089 symbol_c *IN_param_value = &this->default_variable_name; |
6896 |
7090 |
6897 symbol_c *IN_type_symbol = param_data_type; |
7091 symbol_c *IN_type_symbol = param_data_type; |
6898 last_type_symbol = param_data_type; |
7092 last_type_symbol = param_data_type; |
6902 |
7096 |
6903 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
7097 function_name = (symbol_c*)(new pragma_c("__string_to_uint")); |
6904 |
7098 |
6905 if (IN_type_symbol == NULL) |
7099 if (IN_type_symbol == NULL) |
6906 IN_type_symbol = last_type_symbol; |
7100 IN_type_symbol = last_type_symbol; |
6907 ADD_PARAM_LIST(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) |
6908 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; |
6909 function_type_prefix = return_type_symbol; |
7103 function_type_prefix = return_type_symbol; |
6910 break; |
7104 break; |
6911 |
7105 |
6912 } |
7106 } |
6924 case function_string_to_bool : |
7118 case function_string_to_bool : |
6925 { |
7119 { |
6926 symbol_c *last_type_symbol = NULL; |
7120 symbol_c *last_type_symbol = NULL; |
6927 |
7121 |
6928 { |
7122 { |
|
7123 identifier_c IN_param_name("IN"); |
6929 /* 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 */ |
6930 symbol_c *IN_param_value = &this->default_variable_name; |
7125 symbol_c *IN_param_value = &this->default_variable_name; |
6931 |
7126 |
6932 symbol_c *IN_type_symbol = param_data_type; |
7127 symbol_c *IN_type_symbol = param_data_type; |
6933 last_type_symbol = param_data_type; |
7128 last_type_symbol = param_data_type; |
6937 |
7132 |
6938 function_name = (symbol_c*)(new pragma_c("__string_to_bool")); |
7133 function_name = (symbol_c*)(new pragma_c("__string_to_bool")); |
6939 |
7134 |
6940 if (IN_type_symbol == NULL) |
7135 if (IN_type_symbol == NULL) |
6941 IN_type_symbol = last_type_symbol; |
7136 IN_type_symbol = last_type_symbol; |
6942 ADD_PARAM_LIST(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) |
6943 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; |
6944 function_type_prefix = return_type_symbol; |
7139 function_type_prefix = return_type_symbol; |
6945 break; |
7140 break; |
6946 |
7141 |
6947 } |
7142 } |
6959 case function_string_to_time : |
7154 case function_string_to_time : |
6960 { |
7155 { |
6961 symbol_c *last_type_symbol = NULL; |
7156 symbol_c *last_type_symbol = NULL; |
6962 |
7157 |
6963 { |
7158 { |
|
7159 identifier_c IN_param_name("IN"); |
6964 /* 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 */ |
6965 symbol_c *IN_param_value = &this->default_variable_name; |
7161 symbol_c *IN_param_value = &this->default_variable_name; |
6966 |
7162 |
6967 symbol_c *IN_type_symbol = param_data_type; |
7163 symbol_c *IN_type_symbol = param_data_type; |
6968 last_type_symbol = param_data_type; |
7164 last_type_symbol = param_data_type; |
6972 |
7168 |
6973 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
7169 function_name = (symbol_c*)(new pragma_c("__string_to_time")); |
6974 |
7170 |
6975 if (IN_type_symbol == NULL) |
7171 if (IN_type_symbol == NULL) |
6976 IN_type_symbol = last_type_symbol; |
7172 IN_type_symbol = last_type_symbol; |
6977 ADD_PARAM_LIST(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) |
6978 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; |
6979 function_type_prefix = return_type_symbol; |
7175 function_type_prefix = return_type_symbol; |
6980 break; |
7176 break; |
6981 |
7177 |
6982 } |
7178 } |
6994 case function_string_to_int : |
7190 case function_string_to_int : |
6995 { |
7191 { |
6996 symbol_c *last_type_symbol = NULL; |
7192 symbol_c *last_type_symbol = NULL; |
6997 |
7193 |
6998 { |
7194 { |
|
7195 identifier_c IN_param_name("IN"); |
6999 /* 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 */ |
7000 symbol_c *IN_param_value = &this->default_variable_name; |
7197 symbol_c *IN_param_value = &this->default_variable_name; |
7001 |
7198 |
7002 symbol_c *IN_type_symbol = param_data_type; |
7199 symbol_c *IN_type_symbol = param_data_type; |
7003 last_type_symbol = param_data_type; |
7200 last_type_symbol = param_data_type; |
7007 |
7204 |
7008 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
7205 function_name = (symbol_c*)(new pragma_c("__string_to_sint")); |
7009 |
7206 |
7010 if (IN_type_symbol == NULL) |
7207 if (IN_type_symbol == NULL) |
7011 IN_type_symbol = last_type_symbol; |
7208 IN_type_symbol = last_type_symbol; |
7012 ADD_PARAM_LIST(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) |
7013 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; |
7014 function_type_prefix = return_type_symbol; |
7211 function_type_prefix = return_type_symbol; |
7015 break; |
7212 break; |
7016 |
7213 |
7017 } |
7214 } |
7029 case function_lword_to_real : |
7226 case function_lword_to_real : |
7030 { |
7227 { |
7031 symbol_c *last_type_symbol = NULL; |
7228 symbol_c *last_type_symbol = NULL; |
7032 |
7229 |
7033 { |
7230 { |
|
7231 identifier_c IN_param_name("IN"); |
7034 /* 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 */ |
7035 symbol_c *IN_param_value = &this->default_variable_name; |
7233 symbol_c *IN_param_value = &this->default_variable_name; |
7036 |
7234 |
7037 symbol_c *IN_type_symbol = param_data_type; |
7235 symbol_c *IN_type_symbol = param_data_type; |
7038 last_type_symbol = param_data_type; |
7236 last_type_symbol = param_data_type; |
7042 |
7240 |
7043 function_name = (symbol_c*)(new pragma_c("__move_")); |
7241 function_name = (symbol_c*)(new pragma_c("__move_")); |
7044 |
7242 |
7045 if (IN_type_symbol == NULL) |
7243 if (IN_type_symbol == NULL) |
7046 IN_type_symbol = last_type_symbol; |
7244 IN_type_symbol = last_type_symbol; |
7047 ADD_PARAM_LIST(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) |
7048 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; |
7049 function_type_prefix = return_type_symbol; |
7247 function_type_prefix = return_type_symbol; |
7050 function_type_suffix = IN_type_symbol; |
7248 function_type_suffix = IN_type_symbol; |
7051 break; |
7249 break; |
7052 |
7250 |
7065 case function_lword_to_sint : |
7263 case function_lword_to_sint : |
7066 { |
7264 { |
7067 symbol_c *last_type_symbol = NULL; |
7265 symbol_c *last_type_symbol = NULL; |
7068 |
7266 |
7069 { |
7267 { |
|
7268 identifier_c IN_param_name("IN"); |
7070 /* 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 */ |
7071 symbol_c *IN_param_value = &this->default_variable_name; |
7270 symbol_c *IN_param_value = &this->default_variable_name; |
7072 |
7271 |
7073 symbol_c *IN_type_symbol = param_data_type; |
7272 symbol_c *IN_type_symbol = param_data_type; |
7074 last_type_symbol = param_data_type; |
7273 last_type_symbol = param_data_type; |
7078 |
7277 |
7079 function_name = (symbol_c*)(new pragma_c("__move_")); |
7278 function_name = (symbol_c*)(new pragma_c("__move_")); |
7080 |
7279 |
7081 if (IN_type_symbol == NULL) |
7280 if (IN_type_symbol == NULL) |
7082 IN_type_symbol = last_type_symbol; |
7281 IN_type_symbol = last_type_symbol; |
7083 ADD_PARAM_LIST(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) |
7084 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; |
7085 function_type_prefix = return_type_symbol; |
7284 function_type_prefix = return_type_symbol; |
7086 function_type_suffix = IN_type_symbol; |
7285 function_type_suffix = IN_type_symbol; |
7087 break; |
7286 break; |
7088 |
7287 |
7101 case function_lword_to_lint : |
7300 case function_lword_to_lint : |
7102 { |
7301 { |
7103 symbol_c *last_type_symbol = NULL; |
7302 symbol_c *last_type_symbol = NULL; |
7104 |
7303 |
7105 { |
7304 { |
|
7305 identifier_c IN_param_name("IN"); |
7106 /* 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 */ |
7107 symbol_c *IN_param_value = &this->default_variable_name; |
7307 symbol_c *IN_param_value = &this->default_variable_name; |
7108 |
7308 |
7109 symbol_c *IN_type_symbol = param_data_type; |
7309 symbol_c *IN_type_symbol = param_data_type; |
7110 last_type_symbol = param_data_type; |
7310 last_type_symbol = param_data_type; |
7114 |
7314 |
7115 function_name = (symbol_c*)(new pragma_c("__move_")); |
7315 function_name = (symbol_c*)(new pragma_c("__move_")); |
7116 |
7316 |
7117 if (IN_type_symbol == NULL) |
7317 if (IN_type_symbol == NULL) |
7118 IN_type_symbol = last_type_symbol; |
7318 IN_type_symbol = last_type_symbol; |
7119 ADD_PARAM_LIST(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) |
7120 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; |
7121 function_type_prefix = return_type_symbol; |
7321 function_type_prefix = return_type_symbol; |
7122 function_type_suffix = IN_type_symbol; |
7322 function_type_suffix = IN_type_symbol; |
7123 break; |
7323 break; |
7124 |
7324 |
7137 case function_lword_to_dint : |
7337 case function_lword_to_dint : |
7138 { |
7338 { |
7139 symbol_c *last_type_symbol = NULL; |
7339 symbol_c *last_type_symbol = NULL; |
7140 |
7340 |
7141 { |
7341 { |
|
7342 identifier_c IN_param_name("IN"); |
7142 /* 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 */ |
7143 symbol_c *IN_param_value = &this->default_variable_name; |
7344 symbol_c *IN_param_value = &this->default_variable_name; |
7144 |
7345 |
7145 symbol_c *IN_type_symbol = param_data_type; |
7346 symbol_c *IN_type_symbol = param_data_type; |
7146 last_type_symbol = param_data_type; |
7347 last_type_symbol = param_data_type; |
7150 |
7351 |
7151 function_name = (symbol_c*)(new pragma_c("__move_")); |
7352 function_name = (symbol_c*)(new pragma_c("__move_")); |
7152 |
7353 |
7153 if (IN_type_symbol == NULL) |
7354 if (IN_type_symbol == NULL) |
7154 IN_type_symbol = last_type_symbol; |
7355 IN_type_symbol = last_type_symbol; |
7155 ADD_PARAM_LIST(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) |
7156 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; |
7157 function_type_prefix = return_type_symbol; |
7358 function_type_prefix = return_type_symbol; |
7158 function_type_suffix = IN_type_symbol; |
7359 function_type_suffix = IN_type_symbol; |
7159 break; |
7360 break; |
7160 |
7361 |
7173 case function_lword_to_date : |
7374 case function_lword_to_date : |
7174 { |
7375 { |
7175 symbol_c *last_type_symbol = NULL; |
7376 symbol_c *last_type_symbol = NULL; |
7176 |
7377 |
7177 { |
7378 { |
|
7379 identifier_c IN_param_name("IN"); |
7178 /* 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 */ |
7179 symbol_c *IN_param_value = &this->default_variable_name; |
7381 symbol_c *IN_param_value = &this->default_variable_name; |
7180 |
7382 |
7181 symbol_c *IN_type_symbol = param_data_type; |
7383 symbol_c *IN_type_symbol = param_data_type; |
7182 last_type_symbol = param_data_type; |
7384 last_type_symbol = param_data_type; |
7186 |
7388 |
7187 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7389 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7188 |
7390 |
7189 if (IN_type_symbol == NULL) |
7391 if (IN_type_symbol == NULL) |
7190 IN_type_symbol = last_type_symbol; |
7392 IN_type_symbol = last_type_symbol; |
7191 ADD_PARAM_LIST(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) |
7192 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; |
7193 function_type_prefix = return_type_symbol; |
7395 function_type_prefix = return_type_symbol; |
7194 break; |
7396 break; |
7195 |
7397 |
7196 } |
7398 } |
7208 case function_lword_to_dword : |
7410 case function_lword_to_dword : |
7209 { |
7411 { |
7210 symbol_c *last_type_symbol = NULL; |
7412 symbol_c *last_type_symbol = NULL; |
7211 |
7413 |
7212 { |
7414 { |
|
7415 identifier_c IN_param_name("IN"); |
7213 /* 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 */ |
7214 symbol_c *IN_param_value = &this->default_variable_name; |
7417 symbol_c *IN_param_value = &this->default_variable_name; |
7215 |
7418 |
7216 symbol_c *IN_type_symbol = param_data_type; |
7419 symbol_c *IN_type_symbol = param_data_type; |
7217 last_type_symbol = param_data_type; |
7420 last_type_symbol = param_data_type; |
7221 |
7424 |
7222 function_name = (symbol_c*)(new pragma_c("__move_")); |
7425 function_name = (symbol_c*)(new pragma_c("__move_")); |
7223 |
7426 |
7224 if (IN_type_symbol == NULL) |
7427 if (IN_type_symbol == NULL) |
7225 IN_type_symbol = last_type_symbol; |
7428 IN_type_symbol = last_type_symbol; |
7226 ADD_PARAM_LIST(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) |
7227 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; |
7228 function_type_prefix = return_type_symbol; |
7431 function_type_prefix = return_type_symbol; |
7229 function_type_suffix = IN_type_symbol; |
7432 function_type_suffix = IN_type_symbol; |
7230 break; |
7433 break; |
7231 |
7434 |
7244 case function_lword_to_dt : |
7447 case function_lword_to_dt : |
7245 { |
7448 { |
7246 symbol_c *last_type_symbol = NULL; |
7449 symbol_c *last_type_symbol = NULL; |
7247 |
7450 |
7248 { |
7451 { |
|
7452 identifier_c IN_param_name("IN"); |
7249 /* 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 */ |
7250 symbol_c *IN_param_value = &this->default_variable_name; |
7454 symbol_c *IN_param_value = &this->default_variable_name; |
7251 |
7455 |
7252 symbol_c *IN_type_symbol = param_data_type; |
7456 symbol_c *IN_type_symbol = param_data_type; |
7253 last_type_symbol = param_data_type; |
7457 last_type_symbol = param_data_type; |
7257 |
7461 |
7258 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7462 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7259 |
7463 |
7260 if (IN_type_symbol == NULL) |
7464 if (IN_type_symbol == NULL) |
7261 IN_type_symbol = last_type_symbol; |
7465 IN_type_symbol = last_type_symbol; |
7262 ADD_PARAM_LIST(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) |
7263 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; |
7264 function_type_prefix = return_type_symbol; |
7468 function_type_prefix = return_type_symbol; |
7265 break; |
7469 break; |
7266 |
7470 |
7267 } |
7471 } |
7279 case function_lword_to_tod : |
7483 case function_lword_to_tod : |
7280 { |
7484 { |
7281 symbol_c *last_type_symbol = NULL; |
7485 symbol_c *last_type_symbol = NULL; |
7282 |
7486 |
7283 { |
7487 { |
|
7488 identifier_c IN_param_name("IN"); |
7284 /* 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 */ |
7285 symbol_c *IN_param_value = &this->default_variable_name; |
7490 symbol_c *IN_param_value = &this->default_variable_name; |
7286 |
7491 |
7287 symbol_c *IN_type_symbol = param_data_type; |
7492 symbol_c *IN_type_symbol = param_data_type; |
7288 last_type_symbol = param_data_type; |
7493 last_type_symbol = param_data_type; |
7292 |
7497 |
7293 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7498 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7294 |
7499 |
7295 if (IN_type_symbol == NULL) |
7500 if (IN_type_symbol == NULL) |
7296 IN_type_symbol = last_type_symbol; |
7501 IN_type_symbol = last_type_symbol; |
7297 ADD_PARAM_LIST(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) |
7298 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; |
7299 function_type_prefix = return_type_symbol; |
7504 function_type_prefix = return_type_symbol; |
7300 break; |
7505 break; |
7301 |
7506 |
7302 } |
7507 } |
7314 case function_lword_to_udint : |
7519 case function_lword_to_udint : |
7315 { |
7520 { |
7316 symbol_c *last_type_symbol = NULL; |
7521 symbol_c *last_type_symbol = NULL; |
7317 |
7522 |
7318 { |
7523 { |
|
7524 identifier_c IN_param_name("IN"); |
7319 /* 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 */ |
7320 symbol_c *IN_param_value = &this->default_variable_name; |
7526 symbol_c *IN_param_value = &this->default_variable_name; |
7321 |
7527 |
7322 symbol_c *IN_type_symbol = param_data_type; |
7528 symbol_c *IN_type_symbol = param_data_type; |
7323 last_type_symbol = param_data_type; |
7529 last_type_symbol = param_data_type; |
7327 |
7533 |
7328 function_name = (symbol_c*)(new pragma_c("__move_")); |
7534 function_name = (symbol_c*)(new pragma_c("__move_")); |
7329 |
7535 |
7330 if (IN_type_symbol == NULL) |
7536 if (IN_type_symbol == NULL) |
7331 IN_type_symbol = last_type_symbol; |
7537 IN_type_symbol = last_type_symbol; |
7332 ADD_PARAM_LIST(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) |
7333 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; |
7334 function_type_prefix = return_type_symbol; |
7540 function_type_prefix = return_type_symbol; |
7335 function_type_suffix = IN_type_symbol; |
7541 function_type_suffix = IN_type_symbol; |
7336 break; |
7542 break; |
7337 |
7543 |
7350 case function_lword_to_word : |
7556 case function_lword_to_word : |
7351 { |
7557 { |
7352 symbol_c *last_type_symbol = NULL; |
7558 symbol_c *last_type_symbol = NULL; |
7353 |
7559 |
7354 { |
7560 { |
|
7561 identifier_c IN_param_name("IN"); |
7355 /* 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 */ |
7356 symbol_c *IN_param_value = &this->default_variable_name; |
7563 symbol_c *IN_param_value = &this->default_variable_name; |
7357 |
7564 |
7358 symbol_c *IN_type_symbol = param_data_type; |
7565 symbol_c *IN_type_symbol = param_data_type; |
7359 last_type_symbol = param_data_type; |
7566 last_type_symbol = param_data_type; |
7363 |
7570 |
7364 function_name = (symbol_c*)(new pragma_c("__move_")); |
7571 function_name = (symbol_c*)(new pragma_c("__move_")); |
7365 |
7572 |
7366 if (IN_type_symbol == NULL) |
7573 if (IN_type_symbol == NULL) |
7367 IN_type_symbol = last_type_symbol; |
7574 IN_type_symbol = last_type_symbol; |
7368 ADD_PARAM_LIST(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) |
7369 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; |
7370 function_type_prefix = return_type_symbol; |
7577 function_type_prefix = return_type_symbol; |
7371 function_type_suffix = IN_type_symbol; |
7578 function_type_suffix = IN_type_symbol; |
7372 break; |
7579 break; |
7373 |
7580 |
7386 case function_lword_to_string : |
7593 case function_lword_to_string : |
7387 { |
7594 { |
7388 symbol_c *last_type_symbol = NULL; |
7595 symbol_c *last_type_symbol = NULL; |
7389 |
7596 |
7390 { |
7597 { |
|
7598 identifier_c IN_param_name("IN"); |
7391 /* 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 */ |
7392 symbol_c *IN_param_value = &this->default_variable_name; |
7600 symbol_c *IN_param_value = &this->default_variable_name; |
7393 |
7601 |
7394 symbol_c *IN_type_symbol = param_data_type; |
7602 symbol_c *IN_type_symbol = param_data_type; |
7395 last_type_symbol = param_data_type; |
7603 last_type_symbol = param_data_type; |
7399 |
7607 |
7400 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
7608 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
7401 |
7609 |
7402 if (IN_type_symbol == NULL) |
7610 if (IN_type_symbol == NULL) |
7403 IN_type_symbol = last_type_symbol; |
7611 IN_type_symbol = last_type_symbol; |
7404 ADD_PARAM_LIST(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) |
7405 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; |
7406 function_type_prefix = return_type_symbol; |
7614 function_type_prefix = return_type_symbol; |
7407 break; |
7615 break; |
7408 |
7616 |
7409 } |
7617 } |
7421 case function_lword_to_uint : |
7629 case function_lword_to_uint : |
7422 { |
7630 { |
7423 symbol_c *last_type_symbol = NULL; |
7631 symbol_c *last_type_symbol = NULL; |
7424 |
7632 |
7425 { |
7633 { |
|
7634 identifier_c IN_param_name("IN"); |
7426 /* 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 */ |
7427 symbol_c *IN_param_value = &this->default_variable_name; |
7636 symbol_c *IN_param_value = &this->default_variable_name; |
7428 |
7637 |
7429 symbol_c *IN_type_symbol = param_data_type; |
7638 symbol_c *IN_type_symbol = param_data_type; |
7430 last_type_symbol = param_data_type; |
7639 last_type_symbol = param_data_type; |
7434 |
7643 |
7435 function_name = (symbol_c*)(new pragma_c("__move_")); |
7644 function_name = (symbol_c*)(new pragma_c("__move_")); |
7436 |
7645 |
7437 if (IN_type_symbol == NULL) |
7646 if (IN_type_symbol == NULL) |
7438 IN_type_symbol = last_type_symbol; |
7647 IN_type_symbol = last_type_symbol; |
7439 ADD_PARAM_LIST(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) |
7440 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; |
7441 function_type_prefix = return_type_symbol; |
7650 function_type_prefix = return_type_symbol; |
7442 function_type_suffix = IN_type_symbol; |
7651 function_type_suffix = IN_type_symbol; |
7443 break; |
7652 break; |
7444 |
7653 |
7457 case function_lword_to_lreal : |
7666 case function_lword_to_lreal : |
7458 { |
7667 { |
7459 symbol_c *last_type_symbol = NULL; |
7668 symbol_c *last_type_symbol = NULL; |
7460 |
7669 |
7461 { |
7670 { |
|
7671 identifier_c IN_param_name("IN"); |
7462 /* 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 */ |
7463 symbol_c *IN_param_value = &this->default_variable_name; |
7673 symbol_c *IN_param_value = &this->default_variable_name; |
7464 |
7674 |
7465 symbol_c *IN_type_symbol = param_data_type; |
7675 symbol_c *IN_type_symbol = param_data_type; |
7466 last_type_symbol = param_data_type; |
7676 last_type_symbol = param_data_type; |
7470 |
7680 |
7471 function_name = (symbol_c*)(new pragma_c("__move_")); |
7681 function_name = (symbol_c*)(new pragma_c("__move_")); |
7472 |
7682 |
7473 if (IN_type_symbol == NULL) |
7683 if (IN_type_symbol == NULL) |
7474 IN_type_symbol = last_type_symbol; |
7684 IN_type_symbol = last_type_symbol; |
7475 ADD_PARAM_LIST(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) |
7476 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; |
7477 function_type_prefix = return_type_symbol; |
7687 function_type_prefix = return_type_symbol; |
7478 function_type_suffix = IN_type_symbol; |
7688 function_type_suffix = IN_type_symbol; |
7479 break; |
7689 break; |
7480 |
7690 |
7493 case function_lword_to_byte : |
7703 case function_lword_to_byte : |
7494 { |
7704 { |
7495 symbol_c *last_type_symbol = NULL; |
7705 symbol_c *last_type_symbol = NULL; |
7496 |
7706 |
7497 { |
7707 { |
|
7708 identifier_c IN_param_name("IN"); |
7498 /* 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 */ |
7499 symbol_c *IN_param_value = &this->default_variable_name; |
7710 symbol_c *IN_param_value = &this->default_variable_name; |
7500 |
7711 |
7501 symbol_c *IN_type_symbol = param_data_type; |
7712 symbol_c *IN_type_symbol = param_data_type; |
7502 last_type_symbol = param_data_type; |
7713 last_type_symbol = param_data_type; |
7506 |
7717 |
7507 function_name = (symbol_c*)(new pragma_c("__move_")); |
7718 function_name = (symbol_c*)(new pragma_c("__move_")); |
7508 |
7719 |
7509 if (IN_type_symbol == NULL) |
7720 if (IN_type_symbol == NULL) |
7510 IN_type_symbol = last_type_symbol; |
7721 IN_type_symbol = last_type_symbol; |
7511 ADD_PARAM_LIST(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) |
7512 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; |
7513 function_type_prefix = return_type_symbol; |
7724 function_type_prefix = return_type_symbol; |
7514 function_type_suffix = IN_type_symbol; |
7725 function_type_suffix = IN_type_symbol; |
7515 break; |
7726 break; |
7516 |
7727 |
7529 case function_lword_to_usint : |
7740 case function_lword_to_usint : |
7530 { |
7741 { |
7531 symbol_c *last_type_symbol = NULL; |
7742 symbol_c *last_type_symbol = NULL; |
7532 |
7743 |
7533 { |
7744 { |
|
7745 identifier_c IN_param_name("IN"); |
7534 /* 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 */ |
7535 symbol_c *IN_param_value = &this->default_variable_name; |
7747 symbol_c *IN_param_value = &this->default_variable_name; |
7536 |
7748 |
7537 symbol_c *IN_type_symbol = param_data_type; |
7749 symbol_c *IN_type_symbol = param_data_type; |
7538 last_type_symbol = param_data_type; |
7750 last_type_symbol = param_data_type; |
7542 |
7754 |
7543 function_name = (symbol_c*)(new pragma_c("__move_")); |
7755 function_name = (symbol_c*)(new pragma_c("__move_")); |
7544 |
7756 |
7545 if (IN_type_symbol == NULL) |
7757 if (IN_type_symbol == NULL) |
7546 IN_type_symbol = last_type_symbol; |
7758 IN_type_symbol = last_type_symbol; |
7547 ADD_PARAM_LIST(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) |
7548 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; |
7549 function_type_prefix = return_type_symbol; |
7761 function_type_prefix = return_type_symbol; |
7550 function_type_suffix = IN_type_symbol; |
7762 function_type_suffix = IN_type_symbol; |
7551 break; |
7763 break; |
7552 |
7764 |
7565 case function_lword_to_ulint : |
7777 case function_lword_to_ulint : |
7566 { |
7778 { |
7567 symbol_c *last_type_symbol = NULL; |
7779 symbol_c *last_type_symbol = NULL; |
7568 |
7780 |
7569 { |
7781 { |
|
7782 identifier_c IN_param_name("IN"); |
7570 /* 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 */ |
7571 symbol_c *IN_param_value = &this->default_variable_name; |
7784 symbol_c *IN_param_value = &this->default_variable_name; |
7572 |
7785 |
7573 symbol_c *IN_type_symbol = param_data_type; |
7786 symbol_c *IN_type_symbol = param_data_type; |
7574 last_type_symbol = param_data_type; |
7787 last_type_symbol = param_data_type; |
7578 |
7791 |
7579 function_name = (symbol_c*)(new pragma_c("__move_")); |
7792 function_name = (symbol_c*)(new pragma_c("__move_")); |
7580 |
7793 |
7581 if (IN_type_symbol == NULL) |
7794 if (IN_type_symbol == NULL) |
7582 IN_type_symbol = last_type_symbol; |
7795 IN_type_symbol = last_type_symbol; |
7583 ADD_PARAM_LIST(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) |
7584 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; |
7585 function_type_prefix = return_type_symbol; |
7798 function_type_prefix = return_type_symbol; |
7586 function_type_suffix = IN_type_symbol; |
7799 function_type_suffix = IN_type_symbol; |
7587 break; |
7800 break; |
7588 |
7801 |
7601 case function_lword_to_bool : |
7814 case function_lword_to_bool : |
7602 { |
7815 { |
7603 symbol_c *last_type_symbol = NULL; |
7816 symbol_c *last_type_symbol = NULL; |
7604 |
7817 |
7605 { |
7818 { |
|
7819 identifier_c IN_param_name("IN"); |
7606 /* 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 */ |
7607 symbol_c *IN_param_value = &this->default_variable_name; |
7821 symbol_c *IN_param_value = &this->default_variable_name; |
7608 |
7822 |
7609 symbol_c *IN_type_symbol = param_data_type; |
7823 symbol_c *IN_type_symbol = param_data_type; |
7610 last_type_symbol = param_data_type; |
7824 last_type_symbol = param_data_type; |
7614 |
7828 |
7615 function_name = (symbol_c*)(new pragma_c("__move_")); |
7829 function_name = (symbol_c*)(new pragma_c("__move_")); |
7616 |
7830 |
7617 if (IN_type_symbol == NULL) |
7831 if (IN_type_symbol == NULL) |
7618 IN_type_symbol = last_type_symbol; |
7832 IN_type_symbol = last_type_symbol; |
7619 ADD_PARAM_LIST(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) |
7620 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; |
7621 function_type_prefix = return_type_symbol; |
7835 function_type_prefix = return_type_symbol; |
7622 function_type_suffix = IN_type_symbol; |
7836 function_type_suffix = IN_type_symbol; |
7623 break; |
7837 break; |
7624 |
7838 |
7637 case function_lword_to_time : |
7851 case function_lword_to_time : |
7638 { |
7852 { |
7639 symbol_c *last_type_symbol = NULL; |
7853 symbol_c *last_type_symbol = NULL; |
7640 |
7854 |
7641 { |
7855 { |
|
7856 identifier_c IN_param_name("IN"); |
7642 /* 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 */ |
7643 symbol_c *IN_param_value = &this->default_variable_name; |
7858 symbol_c *IN_param_value = &this->default_variable_name; |
7644 |
7859 |
7645 symbol_c *IN_type_symbol = param_data_type; |
7860 symbol_c *IN_type_symbol = param_data_type; |
7646 last_type_symbol = param_data_type; |
7861 last_type_symbol = param_data_type; |
7650 |
7865 |
7651 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7866 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7652 |
7867 |
7653 if (IN_type_symbol == NULL) |
7868 if (IN_type_symbol == NULL) |
7654 IN_type_symbol = last_type_symbol; |
7869 IN_type_symbol = last_type_symbol; |
7655 ADD_PARAM_LIST(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) |
7656 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; |
7657 function_type_prefix = return_type_symbol; |
7872 function_type_prefix = return_type_symbol; |
7658 break; |
7873 break; |
7659 |
7874 |
7660 } |
7875 } |
7672 case function_lword_to_int : |
7887 case function_lword_to_int : |
7673 { |
7888 { |
7674 symbol_c *last_type_symbol = NULL; |
7889 symbol_c *last_type_symbol = NULL; |
7675 |
7890 |
7676 { |
7891 { |
|
7892 identifier_c IN_param_name("IN"); |
7677 /* 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 */ |
7678 symbol_c *IN_param_value = &this->default_variable_name; |
7894 symbol_c *IN_param_value = &this->default_variable_name; |
7679 |
7895 |
7680 symbol_c *IN_type_symbol = param_data_type; |
7896 symbol_c *IN_type_symbol = param_data_type; |
7681 last_type_symbol = param_data_type; |
7897 last_type_symbol = param_data_type; |
7685 |
7901 |
7686 function_name = (symbol_c*)(new pragma_c("__move_")); |
7902 function_name = (symbol_c*)(new pragma_c("__move_")); |
7687 |
7903 |
7688 if (IN_type_symbol == NULL) |
7904 if (IN_type_symbol == NULL) |
7689 IN_type_symbol = last_type_symbol; |
7905 IN_type_symbol = last_type_symbol; |
7690 ADD_PARAM_LIST(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) |
7691 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; |
7692 function_type_prefix = return_type_symbol; |
7908 function_type_prefix = return_type_symbol; |
7693 function_type_suffix = IN_type_symbol; |
7909 function_type_suffix = IN_type_symbol; |
7694 break; |
7910 break; |
7695 |
7911 |
7708 case function_uint_to_real : |
7924 case function_uint_to_real : |
7709 { |
7925 { |
7710 symbol_c *last_type_symbol = NULL; |
7926 symbol_c *last_type_symbol = NULL; |
7711 |
7927 |
7712 { |
7928 { |
|
7929 identifier_c IN_param_name("IN"); |
7713 /* 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 */ |
7714 symbol_c *IN_param_value = &this->default_variable_name; |
7931 symbol_c *IN_param_value = &this->default_variable_name; |
7715 |
7932 |
7716 symbol_c *IN_type_symbol = param_data_type; |
7933 symbol_c *IN_type_symbol = param_data_type; |
7717 last_type_symbol = param_data_type; |
7934 last_type_symbol = param_data_type; |
7721 |
7938 |
7722 function_name = (symbol_c*)(new pragma_c("__move_")); |
7939 function_name = (symbol_c*)(new pragma_c("__move_")); |
7723 |
7940 |
7724 if (IN_type_symbol == NULL) |
7941 if (IN_type_symbol == NULL) |
7725 IN_type_symbol = last_type_symbol; |
7942 IN_type_symbol = last_type_symbol; |
7726 ADD_PARAM_LIST(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) |
7727 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; |
7728 function_type_prefix = return_type_symbol; |
7945 function_type_prefix = return_type_symbol; |
7729 function_type_suffix = IN_type_symbol; |
7946 function_type_suffix = IN_type_symbol; |
7730 break; |
7947 break; |
7731 |
7948 |
7744 case function_uint_to_sint : |
7961 case function_uint_to_sint : |
7745 { |
7962 { |
7746 symbol_c *last_type_symbol = NULL; |
7963 symbol_c *last_type_symbol = NULL; |
7747 |
7964 |
7748 { |
7965 { |
|
7966 identifier_c IN_param_name("IN"); |
7749 /* 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 */ |
7750 symbol_c *IN_param_value = &this->default_variable_name; |
7968 symbol_c *IN_param_value = &this->default_variable_name; |
7751 |
7969 |
7752 symbol_c *IN_type_symbol = param_data_type; |
7970 symbol_c *IN_type_symbol = param_data_type; |
7753 last_type_symbol = param_data_type; |
7971 last_type_symbol = param_data_type; |
7757 |
7975 |
7758 function_name = (symbol_c*)(new pragma_c("__move_")); |
7976 function_name = (symbol_c*)(new pragma_c("__move_")); |
7759 |
7977 |
7760 if (IN_type_symbol == NULL) |
7978 if (IN_type_symbol == NULL) |
7761 IN_type_symbol = last_type_symbol; |
7979 IN_type_symbol = last_type_symbol; |
7762 ADD_PARAM_LIST(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) |
7763 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; |
7764 function_type_prefix = return_type_symbol; |
7982 function_type_prefix = return_type_symbol; |
7765 function_type_suffix = IN_type_symbol; |
7983 function_type_suffix = IN_type_symbol; |
7766 break; |
7984 break; |
7767 |
7985 |
7780 case function_uint_to_lint : |
7998 case function_uint_to_lint : |
7781 { |
7999 { |
7782 symbol_c *last_type_symbol = NULL; |
8000 symbol_c *last_type_symbol = NULL; |
7783 |
8001 |
7784 { |
8002 { |
|
8003 identifier_c IN_param_name("IN"); |
7785 /* 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 */ |
7786 symbol_c *IN_param_value = &this->default_variable_name; |
8005 symbol_c *IN_param_value = &this->default_variable_name; |
7787 |
8006 |
7788 symbol_c *IN_type_symbol = param_data_type; |
8007 symbol_c *IN_type_symbol = param_data_type; |
7789 last_type_symbol = param_data_type; |
8008 last_type_symbol = param_data_type; |
7793 |
8012 |
7794 function_name = (symbol_c*)(new pragma_c("__move_")); |
8013 function_name = (symbol_c*)(new pragma_c("__move_")); |
7795 |
8014 |
7796 if (IN_type_symbol == NULL) |
8015 if (IN_type_symbol == NULL) |
7797 IN_type_symbol = last_type_symbol; |
8016 IN_type_symbol = last_type_symbol; |
7798 ADD_PARAM_LIST(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) |
7799 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; |
7800 function_type_prefix = return_type_symbol; |
8019 function_type_prefix = return_type_symbol; |
7801 function_type_suffix = IN_type_symbol; |
8020 function_type_suffix = IN_type_symbol; |
7802 break; |
8021 break; |
7803 |
8022 |
7816 case function_uint_to_dint : |
8035 case function_uint_to_dint : |
7817 { |
8036 { |
7818 symbol_c *last_type_symbol = NULL; |
8037 symbol_c *last_type_symbol = NULL; |
7819 |
8038 |
7820 { |
8039 { |
|
8040 identifier_c IN_param_name("IN"); |
7821 /* 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 */ |
7822 symbol_c *IN_param_value = &this->default_variable_name; |
8042 symbol_c *IN_param_value = &this->default_variable_name; |
7823 |
8043 |
7824 symbol_c *IN_type_symbol = param_data_type; |
8044 symbol_c *IN_type_symbol = param_data_type; |
7825 last_type_symbol = param_data_type; |
8045 last_type_symbol = param_data_type; |
7829 |
8049 |
7830 function_name = (symbol_c*)(new pragma_c("__move_")); |
8050 function_name = (symbol_c*)(new pragma_c("__move_")); |
7831 |
8051 |
7832 if (IN_type_symbol == NULL) |
8052 if (IN_type_symbol == NULL) |
7833 IN_type_symbol = last_type_symbol; |
8053 IN_type_symbol = last_type_symbol; |
7834 ADD_PARAM_LIST(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) |
7835 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; |
7836 function_type_prefix = return_type_symbol; |
8056 function_type_prefix = return_type_symbol; |
7837 function_type_suffix = IN_type_symbol; |
8057 function_type_suffix = IN_type_symbol; |
7838 break; |
8058 break; |
7839 |
8059 |
7852 case function_uint_to_date : |
8072 case function_uint_to_date : |
7853 { |
8073 { |
7854 symbol_c *last_type_symbol = NULL; |
8074 symbol_c *last_type_symbol = NULL; |
7855 |
8075 |
7856 { |
8076 { |
|
8077 identifier_c IN_param_name("IN"); |
7857 /* 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 */ |
7858 symbol_c *IN_param_value = &this->default_variable_name; |
8079 symbol_c *IN_param_value = &this->default_variable_name; |
7859 |
8080 |
7860 symbol_c *IN_type_symbol = param_data_type; |
8081 symbol_c *IN_type_symbol = param_data_type; |
7861 last_type_symbol = param_data_type; |
8082 last_type_symbol = param_data_type; |
7865 |
8086 |
7866 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8087 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7867 |
8088 |
7868 if (IN_type_symbol == NULL) |
8089 if (IN_type_symbol == NULL) |
7869 IN_type_symbol = last_type_symbol; |
8090 IN_type_symbol = last_type_symbol; |
7870 ADD_PARAM_LIST(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) |
7871 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; |
7872 function_type_prefix = return_type_symbol; |
8093 function_type_prefix = return_type_symbol; |
7873 break; |
8094 break; |
7874 |
8095 |
7875 } |
8096 } |
7887 case function_uint_to_dword : |
8108 case function_uint_to_dword : |
7888 { |
8109 { |
7889 symbol_c *last_type_symbol = NULL; |
8110 symbol_c *last_type_symbol = NULL; |
7890 |
8111 |
7891 { |
8112 { |
|
8113 identifier_c IN_param_name("IN"); |
7892 /* 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 */ |
7893 symbol_c *IN_param_value = &this->default_variable_name; |
8115 symbol_c *IN_param_value = &this->default_variable_name; |
7894 |
8116 |
7895 symbol_c *IN_type_symbol = param_data_type; |
8117 symbol_c *IN_type_symbol = param_data_type; |
7896 last_type_symbol = param_data_type; |
8118 last_type_symbol = param_data_type; |
7900 |
8122 |
7901 function_name = (symbol_c*)(new pragma_c("__move_")); |
8123 function_name = (symbol_c*)(new pragma_c("__move_")); |
7902 |
8124 |
7903 if (IN_type_symbol == NULL) |
8125 if (IN_type_symbol == NULL) |
7904 IN_type_symbol = last_type_symbol; |
8126 IN_type_symbol = last_type_symbol; |
7905 ADD_PARAM_LIST(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) |
7906 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; |
7907 function_type_prefix = return_type_symbol; |
8129 function_type_prefix = return_type_symbol; |
7908 function_type_suffix = IN_type_symbol; |
8130 function_type_suffix = IN_type_symbol; |
7909 break; |
8131 break; |
7910 |
8132 |
7923 case function_uint_to_dt : |
8145 case function_uint_to_dt : |
7924 { |
8146 { |
7925 symbol_c *last_type_symbol = NULL; |
8147 symbol_c *last_type_symbol = NULL; |
7926 |
8148 |
7927 { |
8149 { |
|
8150 identifier_c IN_param_name("IN"); |
7928 /* 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 */ |
7929 symbol_c *IN_param_value = &this->default_variable_name; |
8152 symbol_c *IN_param_value = &this->default_variable_name; |
7930 |
8153 |
7931 symbol_c *IN_type_symbol = param_data_type; |
8154 symbol_c *IN_type_symbol = param_data_type; |
7932 last_type_symbol = param_data_type; |
8155 last_type_symbol = param_data_type; |
7936 |
8159 |
7937 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8160 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7938 |
8161 |
7939 if (IN_type_symbol == NULL) |
8162 if (IN_type_symbol == NULL) |
7940 IN_type_symbol = last_type_symbol; |
8163 IN_type_symbol = last_type_symbol; |
7941 ADD_PARAM_LIST(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) |
7942 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; |
7943 function_type_prefix = return_type_symbol; |
8166 function_type_prefix = return_type_symbol; |
7944 break; |
8167 break; |
7945 |
8168 |
7946 } |
8169 } |
7958 case function_uint_to_tod : |
8181 case function_uint_to_tod : |
7959 { |
8182 { |
7960 symbol_c *last_type_symbol = NULL; |
8183 symbol_c *last_type_symbol = NULL; |
7961 |
8184 |
7962 { |
8185 { |
|
8186 identifier_c IN_param_name("IN"); |
7963 /* 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 */ |
7964 symbol_c *IN_param_value = &this->default_variable_name; |
8188 symbol_c *IN_param_value = &this->default_variable_name; |
7965 |
8189 |
7966 symbol_c *IN_type_symbol = param_data_type; |
8190 symbol_c *IN_type_symbol = param_data_type; |
7967 last_type_symbol = param_data_type; |
8191 last_type_symbol = param_data_type; |
7971 |
8195 |
7972 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8196 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
7973 |
8197 |
7974 if (IN_type_symbol == NULL) |
8198 if (IN_type_symbol == NULL) |
7975 IN_type_symbol = last_type_symbol; |
8199 IN_type_symbol = last_type_symbol; |
7976 ADD_PARAM_LIST(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) |
7977 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; |
7978 function_type_prefix = return_type_symbol; |
8202 function_type_prefix = return_type_symbol; |
7979 break; |
8203 break; |
7980 |
8204 |
7981 } |
8205 } |
7993 case function_uint_to_udint : |
8217 case function_uint_to_udint : |
7994 { |
8218 { |
7995 symbol_c *last_type_symbol = NULL; |
8219 symbol_c *last_type_symbol = NULL; |
7996 |
8220 |
7997 { |
8221 { |
|
8222 identifier_c IN_param_name("IN"); |
7998 /* 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 */ |
7999 symbol_c *IN_param_value = &this->default_variable_name; |
8224 symbol_c *IN_param_value = &this->default_variable_name; |
8000 |
8225 |
8001 symbol_c *IN_type_symbol = param_data_type; |
8226 symbol_c *IN_type_symbol = param_data_type; |
8002 last_type_symbol = param_data_type; |
8227 last_type_symbol = param_data_type; |
8006 |
8231 |
8007 function_name = (symbol_c*)(new pragma_c("__move_")); |
8232 function_name = (symbol_c*)(new pragma_c("__move_")); |
8008 |
8233 |
8009 if (IN_type_symbol == NULL) |
8234 if (IN_type_symbol == NULL) |
8010 IN_type_symbol = last_type_symbol; |
8235 IN_type_symbol = last_type_symbol; |
8011 ADD_PARAM_LIST(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) |
8012 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; |
8013 function_type_prefix = return_type_symbol; |
8238 function_type_prefix = return_type_symbol; |
8014 function_type_suffix = IN_type_symbol; |
8239 function_type_suffix = IN_type_symbol; |
8015 break; |
8240 break; |
8016 |
8241 |
8029 case function_uint_to_word : |
8254 case function_uint_to_word : |
8030 { |
8255 { |
8031 symbol_c *last_type_symbol = NULL; |
8256 symbol_c *last_type_symbol = NULL; |
8032 |
8257 |
8033 { |
8258 { |
|
8259 identifier_c IN_param_name("IN"); |
8034 /* 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 */ |
8035 symbol_c *IN_param_value = &this->default_variable_name; |
8261 symbol_c *IN_param_value = &this->default_variable_name; |
8036 |
8262 |
8037 symbol_c *IN_type_symbol = param_data_type; |
8263 symbol_c *IN_type_symbol = param_data_type; |
8038 last_type_symbol = param_data_type; |
8264 last_type_symbol = param_data_type; |
8042 |
8268 |
8043 function_name = (symbol_c*)(new pragma_c("__move_")); |
8269 function_name = (symbol_c*)(new pragma_c("__move_")); |
8044 |
8270 |
8045 if (IN_type_symbol == NULL) |
8271 if (IN_type_symbol == NULL) |
8046 IN_type_symbol = last_type_symbol; |
8272 IN_type_symbol = last_type_symbol; |
8047 ADD_PARAM_LIST(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) |
8048 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; |
8049 function_type_prefix = return_type_symbol; |
8275 function_type_prefix = return_type_symbol; |
8050 function_type_suffix = IN_type_symbol; |
8276 function_type_suffix = IN_type_symbol; |
8051 break; |
8277 break; |
8052 |
8278 |
8065 case function_uint_to_string : |
8291 case function_uint_to_string : |
8066 { |
8292 { |
8067 symbol_c *last_type_symbol = NULL; |
8293 symbol_c *last_type_symbol = NULL; |
8068 |
8294 |
8069 { |
8295 { |
|
8296 identifier_c IN_param_name("IN"); |
8070 /* 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 */ |
8071 symbol_c *IN_param_value = &this->default_variable_name; |
8298 symbol_c *IN_param_value = &this->default_variable_name; |
8072 |
8299 |
8073 symbol_c *IN_type_symbol = param_data_type; |
8300 symbol_c *IN_type_symbol = param_data_type; |
8074 last_type_symbol = param_data_type; |
8301 last_type_symbol = param_data_type; |
8078 |
8305 |
8079 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
8306 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
8080 |
8307 |
8081 if (IN_type_symbol == NULL) |
8308 if (IN_type_symbol == NULL) |
8082 IN_type_symbol = last_type_symbol; |
8309 IN_type_symbol = last_type_symbol; |
8083 ADD_PARAM_LIST(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) |
8084 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; |
8085 function_type_prefix = return_type_symbol; |
8312 function_type_prefix = return_type_symbol; |
8086 break; |
8313 break; |
8087 |
8314 |
8088 } |
8315 } |
8100 case function_uint_to_lword : |
8327 case function_uint_to_lword : |
8101 { |
8328 { |
8102 symbol_c *last_type_symbol = NULL; |
8329 symbol_c *last_type_symbol = NULL; |
8103 |
8330 |
8104 { |
8331 { |
|
8332 identifier_c IN_param_name("IN"); |
8105 /* 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 */ |
8106 symbol_c *IN_param_value = &this->default_variable_name; |
8334 symbol_c *IN_param_value = &this->default_variable_name; |
8107 |
8335 |
8108 symbol_c *IN_type_symbol = param_data_type; |
8336 symbol_c *IN_type_symbol = param_data_type; |
8109 last_type_symbol = param_data_type; |
8337 last_type_symbol = param_data_type; |
8113 |
8341 |
8114 function_name = (symbol_c*)(new pragma_c("__move_")); |
8342 function_name = (symbol_c*)(new pragma_c("__move_")); |
8115 |
8343 |
8116 if (IN_type_symbol == NULL) |
8344 if (IN_type_symbol == NULL) |
8117 IN_type_symbol = last_type_symbol; |
8345 IN_type_symbol = last_type_symbol; |
8118 ADD_PARAM_LIST(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) |
8119 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; |
8120 function_type_prefix = return_type_symbol; |
8348 function_type_prefix = return_type_symbol; |
8121 function_type_suffix = IN_type_symbol; |
8349 function_type_suffix = IN_type_symbol; |
8122 break; |
8350 break; |
8123 |
8351 |
8136 case function_uint_to_lreal : |
8364 case function_uint_to_lreal : |
8137 { |
8365 { |
8138 symbol_c *last_type_symbol = NULL; |
8366 symbol_c *last_type_symbol = NULL; |
8139 |
8367 |
8140 { |
8368 { |
|
8369 identifier_c IN_param_name("IN"); |
8141 /* 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 */ |
8142 symbol_c *IN_param_value = &this->default_variable_name; |
8371 symbol_c *IN_param_value = &this->default_variable_name; |
8143 |
8372 |
8144 symbol_c *IN_type_symbol = param_data_type; |
8373 symbol_c *IN_type_symbol = param_data_type; |
8145 last_type_symbol = param_data_type; |
8374 last_type_symbol = param_data_type; |
8149 |
8378 |
8150 function_name = (symbol_c*)(new pragma_c("__move_")); |
8379 function_name = (symbol_c*)(new pragma_c("__move_")); |
8151 |
8380 |
8152 if (IN_type_symbol == NULL) |
8381 if (IN_type_symbol == NULL) |
8153 IN_type_symbol = last_type_symbol; |
8382 IN_type_symbol = last_type_symbol; |
8154 ADD_PARAM_LIST(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) |
8155 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; |
8156 function_type_prefix = return_type_symbol; |
8385 function_type_prefix = return_type_symbol; |
8157 function_type_suffix = IN_type_symbol; |
8386 function_type_suffix = IN_type_symbol; |
8158 break; |
8387 break; |
8159 |
8388 |
8172 case function_uint_to_byte : |
8401 case function_uint_to_byte : |
8173 { |
8402 { |
8174 symbol_c *last_type_symbol = NULL; |
8403 symbol_c *last_type_symbol = NULL; |
8175 |
8404 |
8176 { |
8405 { |
|
8406 identifier_c IN_param_name("IN"); |
8177 /* 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 */ |
8178 symbol_c *IN_param_value = &this->default_variable_name; |
8408 symbol_c *IN_param_value = &this->default_variable_name; |
8179 |
8409 |
8180 symbol_c *IN_type_symbol = param_data_type; |
8410 symbol_c *IN_type_symbol = param_data_type; |
8181 last_type_symbol = param_data_type; |
8411 last_type_symbol = param_data_type; |
8185 |
8415 |
8186 function_name = (symbol_c*)(new pragma_c("__move_")); |
8416 function_name = (symbol_c*)(new pragma_c("__move_")); |
8187 |
8417 |
8188 if (IN_type_symbol == NULL) |
8418 if (IN_type_symbol == NULL) |
8189 IN_type_symbol = last_type_symbol; |
8419 IN_type_symbol = last_type_symbol; |
8190 ADD_PARAM_LIST(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) |
8191 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; |
8192 function_type_prefix = return_type_symbol; |
8422 function_type_prefix = return_type_symbol; |
8193 function_type_suffix = IN_type_symbol; |
8423 function_type_suffix = IN_type_symbol; |
8194 break; |
8424 break; |
8195 |
8425 |
8208 case function_uint_to_usint : |
8438 case function_uint_to_usint : |
8209 { |
8439 { |
8210 symbol_c *last_type_symbol = NULL; |
8440 symbol_c *last_type_symbol = NULL; |
8211 |
8441 |
8212 { |
8442 { |
|
8443 identifier_c IN_param_name("IN"); |
8213 /* 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 */ |
8214 symbol_c *IN_param_value = &this->default_variable_name; |
8445 symbol_c *IN_param_value = &this->default_variable_name; |
8215 |
8446 |
8216 symbol_c *IN_type_symbol = param_data_type; |
8447 symbol_c *IN_type_symbol = param_data_type; |
8217 last_type_symbol = param_data_type; |
8448 last_type_symbol = param_data_type; |
8221 |
8452 |
8222 function_name = (symbol_c*)(new pragma_c("__move_")); |
8453 function_name = (symbol_c*)(new pragma_c("__move_")); |
8223 |
8454 |
8224 if (IN_type_symbol == NULL) |
8455 if (IN_type_symbol == NULL) |
8225 IN_type_symbol = last_type_symbol; |
8456 IN_type_symbol = last_type_symbol; |
8226 ADD_PARAM_LIST(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) |
8227 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; |
8228 function_type_prefix = return_type_symbol; |
8459 function_type_prefix = return_type_symbol; |
8229 function_type_suffix = IN_type_symbol; |
8460 function_type_suffix = IN_type_symbol; |
8230 break; |
8461 break; |
8231 |
8462 |
8244 case function_uint_to_ulint : |
8475 case function_uint_to_ulint : |
8245 { |
8476 { |
8246 symbol_c *last_type_symbol = NULL; |
8477 symbol_c *last_type_symbol = NULL; |
8247 |
8478 |
8248 { |
8479 { |
|
8480 identifier_c IN_param_name("IN"); |
8249 /* 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 */ |
8250 symbol_c *IN_param_value = &this->default_variable_name; |
8482 symbol_c *IN_param_value = &this->default_variable_name; |
8251 |
8483 |
8252 symbol_c *IN_type_symbol = param_data_type; |
8484 symbol_c *IN_type_symbol = param_data_type; |
8253 last_type_symbol = param_data_type; |
8485 last_type_symbol = param_data_type; |
8257 |
8489 |
8258 function_name = (symbol_c*)(new pragma_c("__move_")); |
8490 function_name = (symbol_c*)(new pragma_c("__move_")); |
8259 |
8491 |
8260 if (IN_type_symbol == NULL) |
8492 if (IN_type_symbol == NULL) |
8261 IN_type_symbol = last_type_symbol; |
8493 IN_type_symbol = last_type_symbol; |
8262 ADD_PARAM_LIST(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) |
8263 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; |
8264 function_type_prefix = return_type_symbol; |
8496 function_type_prefix = return_type_symbol; |
8265 function_type_suffix = IN_type_symbol; |
8497 function_type_suffix = IN_type_symbol; |
8266 break; |
8498 break; |
8267 |
8499 |
8280 case function_uint_to_bool : |
8512 case function_uint_to_bool : |
8281 { |
8513 { |
8282 symbol_c *last_type_symbol = NULL; |
8514 symbol_c *last_type_symbol = NULL; |
8283 |
8515 |
8284 { |
8516 { |
|
8517 identifier_c IN_param_name("IN"); |
8285 /* 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 */ |
8286 symbol_c *IN_param_value = &this->default_variable_name; |
8519 symbol_c *IN_param_value = &this->default_variable_name; |
8287 |
8520 |
8288 symbol_c *IN_type_symbol = param_data_type; |
8521 symbol_c *IN_type_symbol = param_data_type; |
8289 last_type_symbol = param_data_type; |
8522 last_type_symbol = param_data_type; |
8293 |
8526 |
8294 function_name = (symbol_c*)(new pragma_c("__move_")); |
8527 function_name = (symbol_c*)(new pragma_c("__move_")); |
8295 |
8528 |
8296 if (IN_type_symbol == NULL) |
8529 if (IN_type_symbol == NULL) |
8297 IN_type_symbol = last_type_symbol; |
8530 IN_type_symbol = last_type_symbol; |
8298 ADD_PARAM_LIST(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) |
8299 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; |
8300 function_type_prefix = return_type_symbol; |
8533 function_type_prefix = return_type_symbol; |
8301 function_type_suffix = IN_type_symbol; |
8534 function_type_suffix = IN_type_symbol; |
8302 break; |
8535 break; |
8303 |
8536 |
8316 case function_uint_to_time : |
8549 case function_uint_to_time : |
8317 { |
8550 { |
8318 symbol_c *last_type_symbol = NULL; |
8551 symbol_c *last_type_symbol = NULL; |
8319 |
8552 |
8320 { |
8553 { |
|
8554 identifier_c IN_param_name("IN"); |
8321 /* 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 */ |
8322 symbol_c *IN_param_value = &this->default_variable_name; |
8556 symbol_c *IN_param_value = &this->default_variable_name; |
8323 |
8557 |
8324 symbol_c *IN_type_symbol = param_data_type; |
8558 symbol_c *IN_type_symbol = param_data_type; |
8325 last_type_symbol = param_data_type; |
8559 last_type_symbol = param_data_type; |
8329 |
8563 |
8330 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8564 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
8331 |
8565 |
8332 if (IN_type_symbol == NULL) |
8566 if (IN_type_symbol == NULL) |
8333 IN_type_symbol = last_type_symbol; |
8567 IN_type_symbol = last_type_symbol; |
8334 ADD_PARAM_LIST(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) |
8335 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; |
8336 function_type_prefix = return_type_symbol; |
8570 function_type_prefix = return_type_symbol; |
8337 break; |
8571 break; |
8338 |
8572 |
8339 } |
8573 } |
8351 case function_uint_to_int : |
8585 case function_uint_to_int : |
8352 { |
8586 { |
8353 symbol_c *last_type_symbol = NULL; |
8587 symbol_c *last_type_symbol = NULL; |
8354 |
8588 |
8355 { |
8589 { |
|
8590 identifier_c IN_param_name("IN"); |
8356 /* 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 */ |
8357 symbol_c *IN_param_value = &this->default_variable_name; |
8592 symbol_c *IN_param_value = &this->default_variable_name; |
8358 |
8593 |
8359 symbol_c *IN_type_symbol = param_data_type; |
8594 symbol_c *IN_type_symbol = param_data_type; |
8360 last_type_symbol = param_data_type; |
8595 last_type_symbol = param_data_type; |
8364 |
8599 |
8365 function_name = (symbol_c*)(new pragma_c("__move_")); |
8600 function_name = (symbol_c*)(new pragma_c("__move_")); |
8366 |
8601 |
8367 if (IN_type_symbol == NULL) |
8602 if (IN_type_symbol == NULL) |
8368 IN_type_symbol = last_type_symbol; |
8603 IN_type_symbol = last_type_symbol; |
8369 ADD_PARAM_LIST(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) |
8370 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; |
8371 function_type_prefix = return_type_symbol; |
8606 function_type_prefix = return_type_symbol; |
8372 function_type_suffix = IN_type_symbol; |
8607 function_type_suffix = IN_type_symbol; |
8373 break; |
8608 break; |
8374 |
8609 |
8387 case function_lreal_to_real : |
8622 case function_lreal_to_real : |
8388 { |
8623 { |
8389 symbol_c *last_type_symbol = NULL; |
8624 symbol_c *last_type_symbol = NULL; |
8390 |
8625 |
8391 { |
8626 { |
|
8627 identifier_c IN_param_name("IN"); |
8392 /* 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 */ |
8393 symbol_c *IN_param_value = &this->default_variable_name; |
8629 symbol_c *IN_param_value = &this->default_variable_name; |
8394 |
8630 |
8395 symbol_c *IN_type_symbol = param_data_type; |
8631 symbol_c *IN_type_symbol = param_data_type; |
8396 last_type_symbol = param_data_type; |
8632 last_type_symbol = param_data_type; |
8400 |
8636 |
8401 function_name = (symbol_c*)(new pragma_c("__move_")); |
8637 function_name = (symbol_c*)(new pragma_c("__move_")); |
8402 |
8638 |
8403 if (IN_type_symbol == NULL) |
8639 if (IN_type_symbol == NULL) |
8404 IN_type_symbol = last_type_symbol; |
8640 IN_type_symbol = last_type_symbol; |
8405 ADD_PARAM_LIST(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) |
8406 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; |
8407 function_type_prefix = return_type_symbol; |
8643 function_type_prefix = return_type_symbol; |
8408 function_type_suffix = IN_type_symbol; |
8644 function_type_suffix = IN_type_symbol; |
8409 break; |
8645 break; |
8410 |
8646 |
8423 case function_lreal_to_sint : |
8659 case function_lreal_to_sint : |
8424 { |
8660 { |
8425 symbol_c *last_type_symbol = NULL; |
8661 symbol_c *last_type_symbol = NULL; |
8426 |
8662 |
8427 { |
8663 { |
|
8664 identifier_c IN_param_name("IN"); |
8428 /* 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 */ |
8429 symbol_c *IN_param_value = &this->default_variable_name; |
8666 symbol_c *IN_param_value = &this->default_variable_name; |
8430 |
8667 |
8431 symbol_c *IN_type_symbol = param_data_type; |
8668 symbol_c *IN_type_symbol = param_data_type; |
8432 last_type_symbol = param_data_type; |
8669 last_type_symbol = param_data_type; |
8436 |
8673 |
8437 function_name = (symbol_c*)(new pragma_c("__move_")); |
8674 function_name = (symbol_c*)(new pragma_c("__move_")); |
8438 |
8675 |
8439 if (IN_type_symbol == NULL) |
8676 if (IN_type_symbol == NULL) |
8440 IN_type_symbol = last_type_symbol; |
8677 IN_type_symbol = last_type_symbol; |
8441 ADD_PARAM_LIST(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) |
8442 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; |
8443 function_type_prefix = return_type_symbol; |
8680 function_type_prefix = return_type_symbol; |
8444 function_type_suffix = IN_type_symbol; |
8681 function_type_suffix = IN_type_symbol; |
8445 break; |
8682 break; |
8446 |
8683 |
8459 case function_lreal_to_lint : |
8696 case function_lreal_to_lint : |
8460 { |
8697 { |
8461 symbol_c *last_type_symbol = NULL; |
8698 symbol_c *last_type_symbol = NULL; |
8462 |
8699 |
8463 { |
8700 { |
|
8701 identifier_c IN_param_name("IN"); |
8464 /* 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 */ |
8465 symbol_c *IN_param_value = &this->default_variable_name; |
8703 symbol_c *IN_param_value = &this->default_variable_name; |
8466 |
8704 |
8467 symbol_c *IN_type_symbol = param_data_type; |
8705 symbol_c *IN_type_symbol = param_data_type; |
8468 last_type_symbol = param_data_type; |
8706 last_type_symbol = param_data_type; |
8472 |
8710 |
8473 function_name = (symbol_c*)(new pragma_c("__move_")); |
8711 function_name = (symbol_c*)(new pragma_c("__move_")); |
8474 |
8712 |
8475 if (IN_type_symbol == NULL) |
8713 if (IN_type_symbol == NULL) |
8476 IN_type_symbol = last_type_symbol; |
8714 IN_type_symbol = last_type_symbol; |
8477 ADD_PARAM_LIST(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) |
8478 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; |
8479 function_type_prefix = return_type_symbol; |
8717 function_type_prefix = return_type_symbol; |
8480 function_type_suffix = IN_type_symbol; |
8718 function_type_suffix = IN_type_symbol; |
8481 break; |
8719 break; |
8482 |
8720 |
8495 case function_lreal_to_dint : |
8733 case function_lreal_to_dint : |
8496 { |
8734 { |
8497 symbol_c *last_type_symbol = NULL; |
8735 symbol_c *last_type_symbol = NULL; |
8498 |
8736 |
8499 { |
8737 { |
|
8738 identifier_c IN_param_name("IN"); |
8500 /* 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 */ |
8501 symbol_c *IN_param_value = &this->default_variable_name; |
8740 symbol_c *IN_param_value = &this->default_variable_name; |
8502 |
8741 |
8503 symbol_c *IN_type_symbol = param_data_type; |
8742 symbol_c *IN_type_symbol = param_data_type; |
8504 last_type_symbol = param_data_type; |
8743 last_type_symbol = param_data_type; |
8508 |
8747 |
8509 function_name = (symbol_c*)(new pragma_c("__move_")); |
8748 function_name = (symbol_c*)(new pragma_c("__move_")); |
8510 |
8749 |
8511 if (IN_type_symbol == NULL) |
8750 if (IN_type_symbol == NULL) |
8512 IN_type_symbol = last_type_symbol; |
8751 IN_type_symbol = last_type_symbol; |
8513 ADD_PARAM_LIST(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) |
8514 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; |
8515 function_type_prefix = return_type_symbol; |
8754 function_type_prefix = return_type_symbol; |
8516 function_type_suffix = IN_type_symbol; |
8755 function_type_suffix = IN_type_symbol; |
8517 break; |
8756 break; |
8518 |
8757 |
8531 case function_lreal_to_date : |
8770 case function_lreal_to_date : |
8532 { |
8771 { |
8533 symbol_c *last_type_symbol = NULL; |
8772 symbol_c *last_type_symbol = NULL; |
8534 |
8773 |
8535 { |
8774 { |
|
8775 identifier_c IN_param_name("IN"); |
8536 /* 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 */ |
8537 symbol_c *IN_param_value = &this->default_variable_name; |
8777 symbol_c *IN_param_value = &this->default_variable_name; |
8538 |
8778 |
8539 symbol_c *IN_type_symbol = param_data_type; |
8779 symbol_c *IN_type_symbol = param_data_type; |
8540 last_type_symbol = param_data_type; |
8780 last_type_symbol = param_data_type; |
8544 |
8784 |
8545 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8785 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8546 |
8786 |
8547 if (IN_type_symbol == NULL) |
8787 if (IN_type_symbol == NULL) |
8548 IN_type_symbol = last_type_symbol; |
8788 IN_type_symbol = last_type_symbol; |
8549 ADD_PARAM_LIST(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) |
8550 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; |
8551 function_type_prefix = return_type_symbol; |
8791 function_type_prefix = return_type_symbol; |
8552 break; |
8792 break; |
8553 |
8793 |
8554 } |
8794 } |
8566 case function_lreal_to_dword : |
8806 case function_lreal_to_dword : |
8567 { |
8807 { |
8568 symbol_c *last_type_symbol = NULL; |
8808 symbol_c *last_type_symbol = NULL; |
8569 |
8809 |
8570 { |
8810 { |
|
8811 identifier_c IN_param_name("IN"); |
8571 /* 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 */ |
8572 symbol_c *IN_param_value = &this->default_variable_name; |
8813 symbol_c *IN_param_value = &this->default_variable_name; |
8573 |
8814 |
8574 symbol_c *IN_type_symbol = param_data_type; |
8815 symbol_c *IN_type_symbol = param_data_type; |
8575 last_type_symbol = param_data_type; |
8816 last_type_symbol = param_data_type; |
8579 |
8820 |
8580 function_name = (symbol_c*)(new pragma_c("__move_")); |
8821 function_name = (symbol_c*)(new pragma_c("__move_")); |
8581 |
8822 |
8582 if (IN_type_symbol == NULL) |
8823 if (IN_type_symbol == NULL) |
8583 IN_type_symbol = last_type_symbol; |
8824 IN_type_symbol = last_type_symbol; |
8584 ADD_PARAM_LIST(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) |
8585 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; |
8586 function_type_prefix = return_type_symbol; |
8827 function_type_prefix = return_type_symbol; |
8587 function_type_suffix = IN_type_symbol; |
8828 function_type_suffix = IN_type_symbol; |
8588 break; |
8829 break; |
8589 |
8830 |
8602 case function_lreal_to_dt : |
8843 case function_lreal_to_dt : |
8603 { |
8844 { |
8604 symbol_c *last_type_symbol = NULL; |
8845 symbol_c *last_type_symbol = NULL; |
8605 |
8846 |
8606 { |
8847 { |
|
8848 identifier_c IN_param_name("IN"); |
8607 /* 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 */ |
8608 symbol_c *IN_param_value = &this->default_variable_name; |
8850 symbol_c *IN_param_value = &this->default_variable_name; |
8609 |
8851 |
8610 symbol_c *IN_type_symbol = param_data_type; |
8852 symbol_c *IN_type_symbol = param_data_type; |
8611 last_type_symbol = param_data_type; |
8853 last_type_symbol = param_data_type; |
8615 |
8857 |
8616 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8858 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8617 |
8859 |
8618 if (IN_type_symbol == NULL) |
8860 if (IN_type_symbol == NULL) |
8619 IN_type_symbol = last_type_symbol; |
8861 IN_type_symbol = last_type_symbol; |
8620 ADD_PARAM_LIST(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) |
8621 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; |
8622 function_type_prefix = return_type_symbol; |
8864 function_type_prefix = return_type_symbol; |
8623 break; |
8865 break; |
8624 |
8866 |
8625 } |
8867 } |
8637 case function_lreal_to_tod : |
8879 case function_lreal_to_tod : |
8638 { |
8880 { |
8639 symbol_c *last_type_symbol = NULL; |
8881 symbol_c *last_type_symbol = NULL; |
8640 |
8882 |
8641 { |
8883 { |
|
8884 identifier_c IN_param_name("IN"); |
8642 /* 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 */ |
8643 symbol_c *IN_param_value = &this->default_variable_name; |
8886 symbol_c *IN_param_value = &this->default_variable_name; |
8644 |
8887 |
8645 symbol_c *IN_type_symbol = param_data_type; |
8888 symbol_c *IN_type_symbol = param_data_type; |
8646 last_type_symbol = param_data_type; |
8889 last_type_symbol = param_data_type; |
8650 |
8893 |
8651 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8894 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
8652 |
8895 |
8653 if (IN_type_symbol == NULL) |
8896 if (IN_type_symbol == NULL) |
8654 IN_type_symbol = last_type_symbol; |
8897 IN_type_symbol = last_type_symbol; |
8655 ADD_PARAM_LIST(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) |
8656 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; |
8657 function_type_prefix = return_type_symbol; |
8900 function_type_prefix = return_type_symbol; |
8658 break; |
8901 break; |
8659 |
8902 |
8660 } |
8903 } |
8672 case function_lreal_to_udint : |
8915 case function_lreal_to_udint : |
8673 { |
8916 { |
8674 symbol_c *last_type_symbol = NULL; |
8917 symbol_c *last_type_symbol = NULL; |
8675 |
8918 |
8676 { |
8919 { |
|
8920 identifier_c IN_param_name("IN"); |
8677 /* 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 */ |
8678 symbol_c *IN_param_value = &this->default_variable_name; |
8922 symbol_c *IN_param_value = &this->default_variable_name; |
8679 |
8923 |
8680 symbol_c *IN_type_symbol = param_data_type; |
8924 symbol_c *IN_type_symbol = param_data_type; |
8681 last_type_symbol = param_data_type; |
8925 last_type_symbol = param_data_type; |
8685 |
8929 |
8686 function_name = (symbol_c*)(new pragma_c("__move_")); |
8930 function_name = (symbol_c*)(new pragma_c("__move_")); |
8687 |
8931 |
8688 if (IN_type_symbol == NULL) |
8932 if (IN_type_symbol == NULL) |
8689 IN_type_symbol = last_type_symbol; |
8933 IN_type_symbol = last_type_symbol; |
8690 ADD_PARAM_LIST(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) |
8691 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; |
8692 function_type_prefix = return_type_symbol; |
8936 function_type_prefix = return_type_symbol; |
8693 function_type_suffix = IN_type_symbol; |
8937 function_type_suffix = IN_type_symbol; |
8694 break; |
8938 break; |
8695 |
8939 |
8708 case function_lreal_to_word : |
8952 case function_lreal_to_word : |
8709 { |
8953 { |
8710 symbol_c *last_type_symbol = NULL; |
8954 symbol_c *last_type_symbol = NULL; |
8711 |
8955 |
8712 { |
8956 { |
|
8957 identifier_c IN_param_name("IN"); |
8713 /* 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 */ |
8714 symbol_c *IN_param_value = &this->default_variable_name; |
8959 symbol_c *IN_param_value = &this->default_variable_name; |
8715 |
8960 |
8716 symbol_c *IN_type_symbol = param_data_type; |
8961 symbol_c *IN_type_symbol = param_data_type; |
8717 last_type_symbol = param_data_type; |
8962 last_type_symbol = param_data_type; |
8721 |
8966 |
8722 function_name = (symbol_c*)(new pragma_c("__move_")); |
8967 function_name = (symbol_c*)(new pragma_c("__move_")); |
8723 |
8968 |
8724 if (IN_type_symbol == NULL) |
8969 if (IN_type_symbol == NULL) |
8725 IN_type_symbol = last_type_symbol; |
8970 IN_type_symbol = last_type_symbol; |
8726 ADD_PARAM_LIST(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) |
8727 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; |
8728 function_type_prefix = return_type_symbol; |
8973 function_type_prefix = return_type_symbol; |
8729 function_type_suffix = IN_type_symbol; |
8974 function_type_suffix = IN_type_symbol; |
8730 break; |
8975 break; |
8731 |
8976 |
8744 case function_lreal_to_string : |
8989 case function_lreal_to_string : |
8745 { |
8990 { |
8746 symbol_c *last_type_symbol = NULL; |
8991 symbol_c *last_type_symbol = NULL; |
8747 |
8992 |
8748 { |
8993 { |
|
8994 identifier_c IN_param_name("IN"); |
8749 /* 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 */ |
8750 symbol_c *IN_param_value = &this->default_variable_name; |
8996 symbol_c *IN_param_value = &this->default_variable_name; |
8751 |
8997 |
8752 symbol_c *IN_type_symbol = param_data_type; |
8998 symbol_c *IN_type_symbol = param_data_type; |
8753 last_type_symbol = param_data_type; |
8999 last_type_symbol = param_data_type; |
8757 |
9003 |
8758 function_name = (symbol_c*)(new pragma_c("__real_to_string")); |
9004 function_name = (symbol_c*)(new pragma_c("__real_to_string")); |
8759 |
9005 |
8760 if (IN_type_symbol == NULL) |
9006 if (IN_type_symbol == NULL) |
8761 IN_type_symbol = last_type_symbol; |
9007 IN_type_symbol = last_type_symbol; |
8762 ADD_PARAM_LIST(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) |
8763 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; |
8764 function_type_prefix = return_type_symbol; |
9010 function_type_prefix = return_type_symbol; |
8765 break; |
9011 break; |
8766 |
9012 |
8767 } |
9013 } |
8779 case function_lreal_to_lword : |
9025 case function_lreal_to_lword : |
8780 { |
9026 { |
8781 symbol_c *last_type_symbol = NULL; |
9027 symbol_c *last_type_symbol = NULL; |
8782 |
9028 |
8783 { |
9029 { |
|
9030 identifier_c IN_param_name("IN"); |
8784 /* 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 */ |
8785 symbol_c *IN_param_value = &this->default_variable_name; |
9032 symbol_c *IN_param_value = &this->default_variable_name; |
8786 |
9033 |
8787 symbol_c *IN_type_symbol = param_data_type; |
9034 symbol_c *IN_type_symbol = param_data_type; |
8788 last_type_symbol = param_data_type; |
9035 last_type_symbol = param_data_type; |
8792 |
9039 |
8793 function_name = (symbol_c*)(new pragma_c("__move_")); |
9040 function_name = (symbol_c*)(new pragma_c("__move_")); |
8794 |
9041 |
8795 if (IN_type_symbol == NULL) |
9042 if (IN_type_symbol == NULL) |
8796 IN_type_symbol = last_type_symbol; |
9043 IN_type_symbol = last_type_symbol; |
8797 ADD_PARAM_LIST(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) |
8798 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; |
8799 function_type_prefix = return_type_symbol; |
9046 function_type_prefix = return_type_symbol; |
8800 function_type_suffix = IN_type_symbol; |
9047 function_type_suffix = IN_type_symbol; |
8801 break; |
9048 break; |
8802 |
9049 |
8815 case function_lreal_to_uint : |
9062 case function_lreal_to_uint : |
8816 { |
9063 { |
8817 symbol_c *last_type_symbol = NULL; |
9064 symbol_c *last_type_symbol = NULL; |
8818 |
9065 |
8819 { |
9066 { |
|
9067 identifier_c IN_param_name("IN"); |
8820 /* 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 */ |
8821 symbol_c *IN_param_value = &this->default_variable_name; |
9069 symbol_c *IN_param_value = &this->default_variable_name; |
8822 |
9070 |
8823 symbol_c *IN_type_symbol = param_data_type; |
9071 symbol_c *IN_type_symbol = param_data_type; |
8824 last_type_symbol = param_data_type; |
9072 last_type_symbol = param_data_type; |
8828 |
9076 |
8829 function_name = (symbol_c*)(new pragma_c("__move_")); |
9077 function_name = (symbol_c*)(new pragma_c("__move_")); |
8830 |
9078 |
8831 if (IN_type_symbol == NULL) |
9079 if (IN_type_symbol == NULL) |
8832 IN_type_symbol = last_type_symbol; |
9080 IN_type_symbol = last_type_symbol; |
8833 ADD_PARAM_LIST(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) |
8834 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; |
8835 function_type_prefix = return_type_symbol; |
9083 function_type_prefix = return_type_symbol; |
8836 function_type_suffix = IN_type_symbol; |
9084 function_type_suffix = IN_type_symbol; |
8837 break; |
9085 break; |
8838 |
9086 |
8851 case function_lreal_to_byte : |
9099 case function_lreal_to_byte : |
8852 { |
9100 { |
8853 symbol_c *last_type_symbol = NULL; |
9101 symbol_c *last_type_symbol = NULL; |
8854 |
9102 |
8855 { |
9103 { |
|
9104 identifier_c IN_param_name("IN"); |
8856 /* 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 */ |
8857 symbol_c *IN_param_value = &this->default_variable_name; |
9106 symbol_c *IN_param_value = &this->default_variable_name; |
8858 |
9107 |
8859 symbol_c *IN_type_symbol = param_data_type; |
9108 symbol_c *IN_type_symbol = param_data_type; |
8860 last_type_symbol = param_data_type; |
9109 last_type_symbol = param_data_type; |
8864 |
9113 |
8865 function_name = (symbol_c*)(new pragma_c("__move_")); |
9114 function_name = (symbol_c*)(new pragma_c("__move_")); |
8866 |
9115 |
8867 if (IN_type_symbol == NULL) |
9116 if (IN_type_symbol == NULL) |
8868 IN_type_symbol = last_type_symbol; |
9117 IN_type_symbol = last_type_symbol; |
8869 ADD_PARAM_LIST(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) |
8870 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; |
8871 function_type_prefix = return_type_symbol; |
9120 function_type_prefix = return_type_symbol; |
8872 function_type_suffix = IN_type_symbol; |
9121 function_type_suffix = IN_type_symbol; |
8873 break; |
9122 break; |
8874 |
9123 |
8887 case function_lreal_to_usint : |
9136 case function_lreal_to_usint : |
8888 { |
9137 { |
8889 symbol_c *last_type_symbol = NULL; |
9138 symbol_c *last_type_symbol = NULL; |
8890 |
9139 |
8891 { |
9140 { |
|
9141 identifier_c IN_param_name("IN"); |
8892 /* 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 */ |
8893 symbol_c *IN_param_value = &this->default_variable_name; |
9143 symbol_c *IN_param_value = &this->default_variable_name; |
8894 |
9144 |
8895 symbol_c *IN_type_symbol = param_data_type; |
9145 symbol_c *IN_type_symbol = param_data_type; |
8896 last_type_symbol = param_data_type; |
9146 last_type_symbol = param_data_type; |
8900 |
9150 |
8901 function_name = (symbol_c*)(new pragma_c("__move_")); |
9151 function_name = (symbol_c*)(new pragma_c("__move_")); |
8902 |
9152 |
8903 if (IN_type_symbol == NULL) |
9153 if (IN_type_symbol == NULL) |
8904 IN_type_symbol = last_type_symbol; |
9154 IN_type_symbol = last_type_symbol; |
8905 ADD_PARAM_LIST(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) |
8906 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; |
8907 function_type_prefix = return_type_symbol; |
9157 function_type_prefix = return_type_symbol; |
8908 function_type_suffix = IN_type_symbol; |
9158 function_type_suffix = IN_type_symbol; |
8909 break; |
9159 break; |
8910 |
9160 |
8923 case function_lreal_to_ulint : |
9173 case function_lreal_to_ulint : |
8924 { |
9174 { |
8925 symbol_c *last_type_symbol = NULL; |
9175 symbol_c *last_type_symbol = NULL; |
8926 |
9176 |
8927 { |
9177 { |
|
9178 identifier_c IN_param_name("IN"); |
8928 /* 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 */ |
8929 symbol_c *IN_param_value = &this->default_variable_name; |
9180 symbol_c *IN_param_value = &this->default_variable_name; |
8930 |
9181 |
8931 symbol_c *IN_type_symbol = param_data_type; |
9182 symbol_c *IN_type_symbol = param_data_type; |
8932 last_type_symbol = param_data_type; |
9183 last_type_symbol = param_data_type; |
8936 |
9187 |
8937 function_name = (symbol_c*)(new pragma_c("__move_")); |
9188 function_name = (symbol_c*)(new pragma_c("__move_")); |
8938 |
9189 |
8939 if (IN_type_symbol == NULL) |
9190 if (IN_type_symbol == NULL) |
8940 IN_type_symbol = last_type_symbol; |
9191 IN_type_symbol = last_type_symbol; |
8941 ADD_PARAM_LIST(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) |
8942 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; |
8943 function_type_prefix = return_type_symbol; |
9194 function_type_prefix = return_type_symbol; |
8944 function_type_suffix = IN_type_symbol; |
9195 function_type_suffix = IN_type_symbol; |
8945 break; |
9196 break; |
8946 |
9197 |
8959 case function_lreal_to_bool : |
9210 case function_lreal_to_bool : |
8960 { |
9211 { |
8961 symbol_c *last_type_symbol = NULL; |
9212 symbol_c *last_type_symbol = NULL; |
8962 |
9213 |
8963 { |
9214 { |
|
9215 identifier_c IN_param_name("IN"); |
8964 /* 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 */ |
8965 symbol_c *IN_param_value = &this->default_variable_name; |
9217 symbol_c *IN_param_value = &this->default_variable_name; |
8966 |
9218 |
8967 symbol_c *IN_type_symbol = param_data_type; |
9219 symbol_c *IN_type_symbol = param_data_type; |
8968 last_type_symbol = param_data_type; |
9220 last_type_symbol = param_data_type; |
8972 |
9224 |
8973 function_name = (symbol_c*)(new pragma_c("__move_")); |
9225 function_name = (symbol_c*)(new pragma_c("__move_")); |
8974 |
9226 |
8975 if (IN_type_symbol == NULL) |
9227 if (IN_type_symbol == NULL) |
8976 IN_type_symbol = last_type_symbol; |
9228 IN_type_symbol = last_type_symbol; |
8977 ADD_PARAM_LIST(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) |
8978 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; |
8979 function_type_prefix = return_type_symbol; |
9231 function_type_prefix = return_type_symbol; |
8980 function_type_suffix = IN_type_symbol; |
9232 function_type_suffix = IN_type_symbol; |
8981 break; |
9233 break; |
8982 |
9234 |
8995 case function_lreal_to_time : |
9247 case function_lreal_to_time : |
8996 { |
9248 { |
8997 symbol_c *last_type_symbol = NULL; |
9249 symbol_c *last_type_symbol = NULL; |
8998 |
9250 |
8999 { |
9251 { |
|
9252 identifier_c IN_param_name("IN"); |
9000 /* 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 */ |
9001 symbol_c *IN_param_value = &this->default_variable_name; |
9254 symbol_c *IN_param_value = &this->default_variable_name; |
9002 |
9255 |
9003 symbol_c *IN_type_symbol = param_data_type; |
9256 symbol_c *IN_type_symbol = param_data_type; |
9004 last_type_symbol = param_data_type; |
9257 last_type_symbol = param_data_type; |
9008 |
9261 |
9009 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
9262 function_name = (symbol_c*)(new pragma_c("__real_to_time")); |
9010 |
9263 |
9011 if (IN_type_symbol == NULL) |
9264 if (IN_type_symbol == NULL) |
9012 IN_type_symbol = last_type_symbol; |
9265 IN_type_symbol = last_type_symbol; |
9013 ADD_PARAM_LIST(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) |
9014 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; |
9015 function_type_prefix = return_type_symbol; |
9268 function_type_prefix = return_type_symbol; |
9016 break; |
9269 break; |
9017 |
9270 |
9018 } |
9271 } |
9030 case function_lreal_to_int : |
9283 case function_lreal_to_int : |
9031 { |
9284 { |
9032 symbol_c *last_type_symbol = NULL; |
9285 symbol_c *last_type_symbol = NULL; |
9033 |
9286 |
9034 { |
9287 { |
|
9288 identifier_c IN_param_name("IN"); |
9035 /* 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 */ |
9036 symbol_c *IN_param_value = &this->default_variable_name; |
9290 symbol_c *IN_param_value = &this->default_variable_name; |
9037 |
9291 |
9038 symbol_c *IN_type_symbol = param_data_type; |
9292 symbol_c *IN_type_symbol = param_data_type; |
9039 last_type_symbol = param_data_type; |
9293 last_type_symbol = param_data_type; |
9043 |
9297 |
9044 function_name = (symbol_c*)(new pragma_c("__move_")); |
9298 function_name = (symbol_c*)(new pragma_c("__move_")); |
9045 |
9299 |
9046 if (IN_type_symbol == NULL) |
9300 if (IN_type_symbol == NULL) |
9047 IN_type_symbol = last_type_symbol; |
9301 IN_type_symbol = last_type_symbol; |
9048 ADD_PARAM_LIST(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) |
9049 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; |
9050 function_type_prefix = return_type_symbol; |
9304 function_type_prefix = return_type_symbol; |
9051 function_type_suffix = IN_type_symbol; |
9305 function_type_suffix = IN_type_symbol; |
9052 break; |
9306 break; |
9053 |
9307 |
9066 case function_byte_to_real : |
9320 case function_byte_to_real : |
9067 { |
9321 { |
9068 symbol_c *last_type_symbol = NULL; |
9322 symbol_c *last_type_symbol = NULL; |
9069 |
9323 |
9070 { |
9324 { |
|
9325 identifier_c IN_param_name("IN"); |
9071 /* 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 */ |
9072 symbol_c *IN_param_value = &this->default_variable_name; |
9327 symbol_c *IN_param_value = &this->default_variable_name; |
9073 |
9328 |
9074 symbol_c *IN_type_symbol = param_data_type; |
9329 symbol_c *IN_type_symbol = param_data_type; |
9075 last_type_symbol = param_data_type; |
9330 last_type_symbol = param_data_type; |
9079 |
9334 |
9080 function_name = (symbol_c*)(new pragma_c("__move_")); |
9335 function_name = (symbol_c*)(new pragma_c("__move_")); |
9081 |
9336 |
9082 if (IN_type_symbol == NULL) |
9337 if (IN_type_symbol == NULL) |
9083 IN_type_symbol = last_type_symbol; |
9338 IN_type_symbol = last_type_symbol; |
9084 ADD_PARAM_LIST(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) |
9085 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; |
9086 function_type_prefix = return_type_symbol; |
9341 function_type_prefix = return_type_symbol; |
9087 function_type_suffix = IN_type_symbol; |
9342 function_type_suffix = IN_type_symbol; |
9088 break; |
9343 break; |
9089 |
9344 |
9102 case function_byte_to_sint : |
9357 case function_byte_to_sint : |
9103 { |
9358 { |
9104 symbol_c *last_type_symbol = NULL; |
9359 symbol_c *last_type_symbol = NULL; |
9105 |
9360 |
9106 { |
9361 { |
|
9362 identifier_c IN_param_name("IN"); |
9107 /* 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 */ |
9108 symbol_c *IN_param_value = &this->default_variable_name; |
9364 symbol_c *IN_param_value = &this->default_variable_name; |
9109 |
9365 |
9110 symbol_c *IN_type_symbol = param_data_type; |
9366 symbol_c *IN_type_symbol = param_data_type; |
9111 last_type_symbol = param_data_type; |
9367 last_type_symbol = param_data_type; |
9115 |
9371 |
9116 function_name = (symbol_c*)(new pragma_c("__move_")); |
9372 function_name = (symbol_c*)(new pragma_c("__move_")); |
9117 |
9373 |
9118 if (IN_type_symbol == NULL) |
9374 if (IN_type_symbol == NULL) |
9119 IN_type_symbol = last_type_symbol; |
9375 IN_type_symbol = last_type_symbol; |
9120 ADD_PARAM_LIST(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) |
9121 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; |
9122 function_type_prefix = return_type_symbol; |
9378 function_type_prefix = return_type_symbol; |
9123 function_type_suffix = IN_type_symbol; |
9379 function_type_suffix = IN_type_symbol; |
9124 break; |
9380 break; |
9125 |
9381 |
9138 case function_byte_to_lint : |
9394 case function_byte_to_lint : |
9139 { |
9395 { |
9140 symbol_c *last_type_symbol = NULL; |
9396 symbol_c *last_type_symbol = NULL; |
9141 |
9397 |
9142 { |
9398 { |
|
9399 identifier_c IN_param_name("IN"); |
9143 /* 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 */ |
9144 symbol_c *IN_param_value = &this->default_variable_name; |
9401 symbol_c *IN_param_value = &this->default_variable_name; |
9145 |
9402 |
9146 symbol_c *IN_type_symbol = param_data_type; |
9403 symbol_c *IN_type_symbol = param_data_type; |
9147 last_type_symbol = param_data_type; |
9404 last_type_symbol = param_data_type; |
9151 |
9408 |
9152 function_name = (symbol_c*)(new pragma_c("__move_")); |
9409 function_name = (symbol_c*)(new pragma_c("__move_")); |
9153 |
9410 |
9154 if (IN_type_symbol == NULL) |
9411 if (IN_type_symbol == NULL) |
9155 IN_type_symbol = last_type_symbol; |
9412 IN_type_symbol = last_type_symbol; |
9156 ADD_PARAM_LIST(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) |
9157 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; |
9158 function_type_prefix = return_type_symbol; |
9415 function_type_prefix = return_type_symbol; |
9159 function_type_suffix = IN_type_symbol; |
9416 function_type_suffix = IN_type_symbol; |
9160 break; |
9417 break; |
9161 |
9418 |
9174 case function_byte_to_dint : |
9431 case function_byte_to_dint : |
9175 { |
9432 { |
9176 symbol_c *last_type_symbol = NULL; |
9433 symbol_c *last_type_symbol = NULL; |
9177 |
9434 |
9178 { |
9435 { |
|
9436 identifier_c IN_param_name("IN"); |
9179 /* 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 */ |
9180 symbol_c *IN_param_value = &this->default_variable_name; |
9438 symbol_c *IN_param_value = &this->default_variable_name; |
9181 |
9439 |
9182 symbol_c *IN_type_symbol = param_data_type; |
9440 symbol_c *IN_type_symbol = param_data_type; |
9183 last_type_symbol = param_data_type; |
9441 last_type_symbol = param_data_type; |
9187 |
9445 |
9188 function_name = (symbol_c*)(new pragma_c("__move_")); |
9446 function_name = (symbol_c*)(new pragma_c("__move_")); |
9189 |
9447 |
9190 if (IN_type_symbol == NULL) |
9448 if (IN_type_symbol == NULL) |
9191 IN_type_symbol = last_type_symbol; |
9449 IN_type_symbol = last_type_symbol; |
9192 ADD_PARAM_LIST(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) |
9193 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; |
9194 function_type_prefix = return_type_symbol; |
9452 function_type_prefix = return_type_symbol; |
9195 function_type_suffix = IN_type_symbol; |
9453 function_type_suffix = IN_type_symbol; |
9196 break; |
9454 break; |
9197 |
9455 |
9210 case function_byte_to_date : |
9468 case function_byte_to_date : |
9211 { |
9469 { |
9212 symbol_c *last_type_symbol = NULL; |
9470 symbol_c *last_type_symbol = NULL; |
9213 |
9471 |
9214 { |
9472 { |
|
9473 identifier_c IN_param_name("IN"); |
9215 /* 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 */ |
9216 symbol_c *IN_param_value = &this->default_variable_name; |
9475 symbol_c *IN_param_value = &this->default_variable_name; |
9217 |
9476 |
9218 symbol_c *IN_type_symbol = param_data_type; |
9477 symbol_c *IN_type_symbol = param_data_type; |
9219 last_type_symbol = param_data_type; |
9478 last_type_symbol = param_data_type; |
9223 |
9482 |
9224 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9483 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9225 |
9484 |
9226 if (IN_type_symbol == NULL) |
9485 if (IN_type_symbol == NULL) |
9227 IN_type_symbol = last_type_symbol; |
9486 IN_type_symbol = last_type_symbol; |
9228 ADD_PARAM_LIST(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) |
9229 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; |
9230 function_type_prefix = return_type_symbol; |
9489 function_type_prefix = return_type_symbol; |
9231 break; |
9490 break; |
9232 |
9491 |
9233 } |
9492 } |
9245 case function_byte_to_dword : |
9504 case function_byte_to_dword : |
9246 { |
9505 { |
9247 symbol_c *last_type_symbol = NULL; |
9506 symbol_c *last_type_symbol = NULL; |
9248 |
9507 |
9249 { |
9508 { |
|
9509 identifier_c IN_param_name("IN"); |
9250 /* 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 */ |
9251 symbol_c *IN_param_value = &this->default_variable_name; |
9511 symbol_c *IN_param_value = &this->default_variable_name; |
9252 |
9512 |
9253 symbol_c *IN_type_symbol = param_data_type; |
9513 symbol_c *IN_type_symbol = param_data_type; |
9254 last_type_symbol = param_data_type; |
9514 last_type_symbol = param_data_type; |
9258 |
9518 |
9259 function_name = (symbol_c*)(new pragma_c("__move_")); |
9519 function_name = (symbol_c*)(new pragma_c("__move_")); |
9260 |
9520 |
9261 if (IN_type_symbol == NULL) |
9521 if (IN_type_symbol == NULL) |
9262 IN_type_symbol = last_type_symbol; |
9522 IN_type_symbol = last_type_symbol; |
9263 ADD_PARAM_LIST(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) |
9264 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; |
9265 function_type_prefix = return_type_symbol; |
9525 function_type_prefix = return_type_symbol; |
9266 function_type_suffix = IN_type_symbol; |
9526 function_type_suffix = IN_type_symbol; |
9267 break; |
9527 break; |
9268 |
9528 |
9281 case function_byte_to_dt : |
9541 case function_byte_to_dt : |
9282 { |
9542 { |
9283 symbol_c *last_type_symbol = NULL; |
9543 symbol_c *last_type_symbol = NULL; |
9284 |
9544 |
9285 { |
9545 { |
|
9546 identifier_c IN_param_name("IN"); |
9286 /* 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 */ |
9287 symbol_c *IN_param_value = &this->default_variable_name; |
9548 symbol_c *IN_param_value = &this->default_variable_name; |
9288 |
9549 |
9289 symbol_c *IN_type_symbol = param_data_type; |
9550 symbol_c *IN_type_symbol = param_data_type; |
9290 last_type_symbol = param_data_type; |
9551 last_type_symbol = param_data_type; |
9294 |
9555 |
9295 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9556 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9296 |
9557 |
9297 if (IN_type_symbol == NULL) |
9558 if (IN_type_symbol == NULL) |
9298 IN_type_symbol = last_type_symbol; |
9559 IN_type_symbol = last_type_symbol; |
9299 ADD_PARAM_LIST(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) |
9300 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; |
9301 function_type_prefix = return_type_symbol; |
9562 function_type_prefix = return_type_symbol; |
9302 break; |
9563 break; |
9303 |
9564 |
9304 } |
9565 } |
9316 case function_byte_to_tod : |
9577 case function_byte_to_tod : |
9317 { |
9578 { |
9318 symbol_c *last_type_symbol = NULL; |
9579 symbol_c *last_type_symbol = NULL; |
9319 |
9580 |
9320 { |
9581 { |
|
9582 identifier_c IN_param_name("IN"); |
9321 /* 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 */ |
9322 symbol_c *IN_param_value = &this->default_variable_name; |
9584 symbol_c *IN_param_value = &this->default_variable_name; |
9323 |
9585 |
9324 symbol_c *IN_type_symbol = param_data_type; |
9586 symbol_c *IN_type_symbol = param_data_type; |
9325 last_type_symbol = param_data_type; |
9587 last_type_symbol = param_data_type; |
9329 |
9591 |
9330 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9592 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9331 |
9593 |
9332 if (IN_type_symbol == NULL) |
9594 if (IN_type_symbol == NULL) |
9333 IN_type_symbol = last_type_symbol; |
9595 IN_type_symbol = last_type_symbol; |
9334 ADD_PARAM_LIST(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) |
9335 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; |
9336 function_type_prefix = return_type_symbol; |
9598 function_type_prefix = return_type_symbol; |
9337 break; |
9599 break; |
9338 |
9600 |
9339 } |
9601 } |
9351 case function_byte_to_udint : |
9613 case function_byte_to_udint : |
9352 { |
9614 { |
9353 symbol_c *last_type_symbol = NULL; |
9615 symbol_c *last_type_symbol = NULL; |
9354 |
9616 |
9355 { |
9617 { |
|
9618 identifier_c IN_param_name("IN"); |
9356 /* 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 */ |
9357 symbol_c *IN_param_value = &this->default_variable_name; |
9620 symbol_c *IN_param_value = &this->default_variable_name; |
9358 |
9621 |
9359 symbol_c *IN_type_symbol = param_data_type; |
9622 symbol_c *IN_type_symbol = param_data_type; |
9360 last_type_symbol = param_data_type; |
9623 last_type_symbol = param_data_type; |
9364 |
9627 |
9365 function_name = (symbol_c*)(new pragma_c("__move_")); |
9628 function_name = (symbol_c*)(new pragma_c("__move_")); |
9366 |
9629 |
9367 if (IN_type_symbol == NULL) |
9630 if (IN_type_symbol == NULL) |
9368 IN_type_symbol = last_type_symbol; |
9631 IN_type_symbol = last_type_symbol; |
9369 ADD_PARAM_LIST(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) |
9370 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; |
9371 function_type_prefix = return_type_symbol; |
9634 function_type_prefix = return_type_symbol; |
9372 function_type_suffix = IN_type_symbol; |
9635 function_type_suffix = IN_type_symbol; |
9373 break; |
9636 break; |
9374 |
9637 |
9387 case function_byte_to_word : |
9650 case function_byte_to_word : |
9388 { |
9651 { |
9389 symbol_c *last_type_symbol = NULL; |
9652 symbol_c *last_type_symbol = NULL; |
9390 |
9653 |
9391 { |
9654 { |
|
9655 identifier_c IN_param_name("IN"); |
9392 /* 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 */ |
9393 symbol_c *IN_param_value = &this->default_variable_name; |
9657 symbol_c *IN_param_value = &this->default_variable_name; |
9394 |
9658 |
9395 symbol_c *IN_type_symbol = param_data_type; |
9659 symbol_c *IN_type_symbol = param_data_type; |
9396 last_type_symbol = param_data_type; |
9660 last_type_symbol = param_data_type; |
9400 |
9664 |
9401 function_name = (symbol_c*)(new pragma_c("__move_")); |
9665 function_name = (symbol_c*)(new pragma_c("__move_")); |
9402 |
9666 |
9403 if (IN_type_symbol == NULL) |
9667 if (IN_type_symbol == NULL) |
9404 IN_type_symbol = last_type_symbol; |
9668 IN_type_symbol = last_type_symbol; |
9405 ADD_PARAM_LIST(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) |
9406 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; |
9407 function_type_prefix = return_type_symbol; |
9671 function_type_prefix = return_type_symbol; |
9408 function_type_suffix = IN_type_symbol; |
9672 function_type_suffix = IN_type_symbol; |
9409 break; |
9673 break; |
9410 |
9674 |
9423 case function_byte_to_string : |
9687 case function_byte_to_string : |
9424 { |
9688 { |
9425 symbol_c *last_type_symbol = NULL; |
9689 symbol_c *last_type_symbol = NULL; |
9426 |
9690 |
9427 { |
9691 { |
|
9692 identifier_c IN_param_name("IN"); |
9428 /* 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 */ |
9429 symbol_c *IN_param_value = &this->default_variable_name; |
9694 symbol_c *IN_param_value = &this->default_variable_name; |
9430 |
9695 |
9431 symbol_c *IN_type_symbol = param_data_type; |
9696 symbol_c *IN_type_symbol = param_data_type; |
9432 last_type_symbol = param_data_type; |
9697 last_type_symbol = param_data_type; |
9436 |
9701 |
9437 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
9702 function_name = (symbol_c*)(new pragma_c("__bit_to_string")); |
9438 |
9703 |
9439 if (IN_type_symbol == NULL) |
9704 if (IN_type_symbol == NULL) |
9440 IN_type_symbol = last_type_symbol; |
9705 IN_type_symbol = last_type_symbol; |
9441 ADD_PARAM_LIST(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) |
9442 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; |
9443 function_type_prefix = return_type_symbol; |
9708 function_type_prefix = return_type_symbol; |
9444 break; |
9709 break; |
9445 |
9710 |
9446 } |
9711 } |
9458 case function_byte_to_lword : |
9723 case function_byte_to_lword : |
9459 { |
9724 { |
9460 symbol_c *last_type_symbol = NULL; |
9725 symbol_c *last_type_symbol = NULL; |
9461 |
9726 |
9462 { |
9727 { |
|
9728 identifier_c IN_param_name("IN"); |
9463 /* 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 */ |
9464 symbol_c *IN_param_value = &this->default_variable_name; |
9730 symbol_c *IN_param_value = &this->default_variable_name; |
9465 |
9731 |
9466 symbol_c *IN_type_symbol = param_data_type; |
9732 symbol_c *IN_type_symbol = param_data_type; |
9467 last_type_symbol = param_data_type; |
9733 last_type_symbol = param_data_type; |
9471 |
9737 |
9472 function_name = (symbol_c*)(new pragma_c("__move_")); |
9738 function_name = (symbol_c*)(new pragma_c("__move_")); |
9473 |
9739 |
9474 if (IN_type_symbol == NULL) |
9740 if (IN_type_symbol == NULL) |
9475 IN_type_symbol = last_type_symbol; |
9741 IN_type_symbol = last_type_symbol; |
9476 ADD_PARAM_LIST(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) |
9477 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; |
9478 function_type_prefix = return_type_symbol; |
9744 function_type_prefix = return_type_symbol; |
9479 function_type_suffix = IN_type_symbol; |
9745 function_type_suffix = IN_type_symbol; |
9480 break; |
9746 break; |
9481 |
9747 |
9494 case function_byte_to_uint : |
9760 case function_byte_to_uint : |
9495 { |
9761 { |
9496 symbol_c *last_type_symbol = NULL; |
9762 symbol_c *last_type_symbol = NULL; |
9497 |
9763 |
9498 { |
9764 { |
|
9765 identifier_c IN_param_name("IN"); |
9499 /* 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 */ |
9500 symbol_c *IN_param_value = &this->default_variable_name; |
9767 symbol_c *IN_param_value = &this->default_variable_name; |
9501 |
9768 |
9502 symbol_c *IN_type_symbol = param_data_type; |
9769 symbol_c *IN_type_symbol = param_data_type; |
9503 last_type_symbol = param_data_type; |
9770 last_type_symbol = param_data_type; |
9507 |
9774 |
9508 function_name = (symbol_c*)(new pragma_c("__move_")); |
9775 function_name = (symbol_c*)(new pragma_c("__move_")); |
9509 |
9776 |
9510 if (IN_type_symbol == NULL) |
9777 if (IN_type_symbol == NULL) |
9511 IN_type_symbol = last_type_symbol; |
9778 IN_type_symbol = last_type_symbol; |
9512 ADD_PARAM_LIST(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) |
9513 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; |
9514 function_type_prefix = return_type_symbol; |
9781 function_type_prefix = return_type_symbol; |
9515 function_type_suffix = IN_type_symbol; |
9782 function_type_suffix = IN_type_symbol; |
9516 break; |
9783 break; |
9517 |
9784 |
9530 case function_byte_to_lreal : |
9797 case function_byte_to_lreal : |
9531 { |
9798 { |
9532 symbol_c *last_type_symbol = NULL; |
9799 symbol_c *last_type_symbol = NULL; |
9533 |
9800 |
9534 { |
9801 { |
|
9802 identifier_c IN_param_name("IN"); |
9535 /* 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 */ |
9536 symbol_c *IN_param_value = &this->default_variable_name; |
9804 symbol_c *IN_param_value = &this->default_variable_name; |
9537 |
9805 |
9538 symbol_c *IN_type_symbol = param_data_type; |
9806 symbol_c *IN_type_symbol = param_data_type; |
9539 last_type_symbol = param_data_type; |
9807 last_type_symbol = param_data_type; |
9543 |
9811 |
9544 function_name = (symbol_c*)(new pragma_c("__move_")); |
9812 function_name = (symbol_c*)(new pragma_c("__move_")); |
9545 |
9813 |
9546 if (IN_type_symbol == NULL) |
9814 if (IN_type_symbol == NULL) |
9547 IN_type_symbol = last_type_symbol; |
9815 IN_type_symbol = last_type_symbol; |
9548 ADD_PARAM_LIST(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) |
9549 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; |
9550 function_type_prefix = return_type_symbol; |
9818 function_type_prefix = return_type_symbol; |
9551 function_type_suffix = IN_type_symbol; |
9819 function_type_suffix = IN_type_symbol; |
9552 break; |
9820 break; |
9553 |
9821 |
9566 case function_byte_to_usint : |
9834 case function_byte_to_usint : |
9567 { |
9835 { |
9568 symbol_c *last_type_symbol = NULL; |
9836 symbol_c *last_type_symbol = NULL; |
9569 |
9837 |
9570 { |
9838 { |
|
9839 identifier_c IN_param_name("IN"); |
9571 /* 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 */ |
9572 symbol_c *IN_param_value = &this->default_variable_name; |
9841 symbol_c *IN_param_value = &this->default_variable_name; |
9573 |
9842 |
9574 symbol_c *IN_type_symbol = param_data_type; |
9843 symbol_c *IN_type_symbol = param_data_type; |
9575 last_type_symbol = param_data_type; |
9844 last_type_symbol = param_data_type; |
9579 |
9848 |
9580 function_name = (symbol_c*)(new pragma_c("__move_")); |
9849 function_name = (symbol_c*)(new pragma_c("__move_")); |
9581 |
9850 |
9582 if (IN_type_symbol == NULL) |
9851 if (IN_type_symbol == NULL) |
9583 IN_type_symbol = last_type_symbol; |
9852 IN_type_symbol = last_type_symbol; |
9584 ADD_PARAM_LIST(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) |
9585 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; |
9586 function_type_prefix = return_type_symbol; |
9855 function_type_prefix = return_type_symbol; |
9587 function_type_suffix = IN_type_symbol; |
9856 function_type_suffix = IN_type_symbol; |
9588 break; |
9857 break; |
9589 |
9858 |
9602 case function_byte_to_ulint : |
9871 case function_byte_to_ulint : |
9603 { |
9872 { |
9604 symbol_c *last_type_symbol = NULL; |
9873 symbol_c *last_type_symbol = NULL; |
9605 |
9874 |
9606 { |
9875 { |
|
9876 identifier_c IN_param_name("IN"); |
9607 /* 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 */ |
9608 symbol_c *IN_param_value = &this->default_variable_name; |
9878 symbol_c *IN_param_value = &this->default_variable_name; |
9609 |
9879 |
9610 symbol_c *IN_type_symbol = param_data_type; |
9880 symbol_c *IN_type_symbol = param_data_type; |
9611 last_type_symbol = param_data_type; |
9881 last_type_symbol = param_data_type; |
9615 |
9885 |
9616 function_name = (symbol_c*)(new pragma_c("__move_")); |
9886 function_name = (symbol_c*)(new pragma_c("__move_")); |
9617 |
9887 |
9618 if (IN_type_symbol == NULL) |
9888 if (IN_type_symbol == NULL) |
9619 IN_type_symbol = last_type_symbol; |
9889 IN_type_symbol = last_type_symbol; |
9620 ADD_PARAM_LIST(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) |
9621 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; |
9622 function_type_prefix = return_type_symbol; |
9892 function_type_prefix = return_type_symbol; |
9623 function_type_suffix = IN_type_symbol; |
9893 function_type_suffix = IN_type_symbol; |
9624 break; |
9894 break; |
9625 |
9895 |
9638 case function_byte_to_bool : |
9908 case function_byte_to_bool : |
9639 { |
9909 { |
9640 symbol_c *last_type_symbol = NULL; |
9910 symbol_c *last_type_symbol = NULL; |
9641 |
9911 |
9642 { |
9912 { |
|
9913 identifier_c IN_param_name("IN"); |
9643 /* 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 */ |
9644 symbol_c *IN_param_value = &this->default_variable_name; |
9915 symbol_c *IN_param_value = &this->default_variable_name; |
9645 |
9916 |
9646 symbol_c *IN_type_symbol = param_data_type; |
9917 symbol_c *IN_type_symbol = param_data_type; |
9647 last_type_symbol = param_data_type; |
9918 last_type_symbol = param_data_type; |
9651 |
9922 |
9652 function_name = (symbol_c*)(new pragma_c("__move_")); |
9923 function_name = (symbol_c*)(new pragma_c("__move_")); |
9653 |
9924 |
9654 if (IN_type_symbol == NULL) |
9925 if (IN_type_symbol == NULL) |
9655 IN_type_symbol = last_type_symbol; |
9926 IN_type_symbol = last_type_symbol; |
9656 ADD_PARAM_LIST(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) |
9657 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; |
9658 function_type_prefix = return_type_symbol; |
9929 function_type_prefix = return_type_symbol; |
9659 function_type_suffix = IN_type_symbol; |
9930 function_type_suffix = IN_type_symbol; |
9660 break; |
9931 break; |
9661 |
9932 |
9674 case function_byte_to_time : |
9945 case function_byte_to_time : |
9675 { |
9946 { |
9676 symbol_c *last_type_symbol = NULL; |
9947 symbol_c *last_type_symbol = NULL; |
9677 |
9948 |
9678 { |
9949 { |
|
9950 identifier_c IN_param_name("IN"); |
9679 /* 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 */ |
9680 symbol_c *IN_param_value = &this->default_variable_name; |
9952 symbol_c *IN_param_value = &this->default_variable_name; |
9681 |
9953 |
9682 symbol_c *IN_type_symbol = param_data_type; |
9954 symbol_c *IN_type_symbol = param_data_type; |
9683 last_type_symbol = param_data_type; |
9955 last_type_symbol = param_data_type; |
9687 |
9959 |
9688 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9960 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9689 |
9961 |
9690 if (IN_type_symbol == NULL) |
9962 if (IN_type_symbol == NULL) |
9691 IN_type_symbol = last_type_symbol; |
9963 IN_type_symbol = last_type_symbol; |
9692 ADD_PARAM_LIST(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) |
9693 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; |
9694 function_type_prefix = return_type_symbol; |
9966 function_type_prefix = return_type_symbol; |
9695 break; |
9967 break; |
9696 |
9968 |
9697 } |
9969 } |
9709 case function_byte_to_int : |
9981 case function_byte_to_int : |
9710 { |
9982 { |
9711 symbol_c *last_type_symbol = NULL; |
9983 symbol_c *last_type_symbol = NULL; |
9712 |
9984 |
9713 { |
9985 { |
|
9986 identifier_c IN_param_name("IN"); |
9714 /* 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 */ |
9715 symbol_c *IN_param_value = &this->default_variable_name; |
9988 symbol_c *IN_param_value = &this->default_variable_name; |
9716 |
9989 |
9717 symbol_c *IN_type_symbol = param_data_type; |
9990 symbol_c *IN_type_symbol = param_data_type; |
9718 last_type_symbol = param_data_type; |
9991 last_type_symbol = param_data_type; |
9722 |
9995 |
9723 function_name = (symbol_c*)(new pragma_c("__move_")); |
9996 function_name = (symbol_c*)(new pragma_c("__move_")); |
9724 |
9997 |
9725 if (IN_type_symbol == NULL) |
9998 if (IN_type_symbol == NULL) |
9726 IN_type_symbol = last_type_symbol; |
9999 IN_type_symbol = last_type_symbol; |
9727 ADD_PARAM_LIST(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) |
9728 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; |
9729 function_type_prefix = return_type_symbol; |
10002 function_type_prefix = return_type_symbol; |
9730 function_type_suffix = IN_type_symbol; |
10003 function_type_suffix = IN_type_symbol; |
9731 break; |
10004 break; |
9732 |
10005 |
9745 case function_usint_to_real : |
10018 case function_usint_to_real : |
9746 { |
10019 { |
9747 symbol_c *last_type_symbol = NULL; |
10020 symbol_c *last_type_symbol = NULL; |
9748 |
10021 |
9749 { |
10022 { |
|
10023 identifier_c IN_param_name("IN"); |
9750 /* 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 */ |
9751 symbol_c *IN_param_value = &this->default_variable_name; |
10025 symbol_c *IN_param_value = &this->default_variable_name; |
9752 |
10026 |
9753 symbol_c *IN_type_symbol = param_data_type; |
10027 symbol_c *IN_type_symbol = param_data_type; |
9754 last_type_symbol = param_data_type; |
10028 last_type_symbol = param_data_type; |
9758 |
10032 |
9759 function_name = (symbol_c*)(new pragma_c("__move_")); |
10033 function_name = (symbol_c*)(new pragma_c("__move_")); |
9760 |
10034 |
9761 if (IN_type_symbol == NULL) |
10035 if (IN_type_symbol == NULL) |
9762 IN_type_symbol = last_type_symbol; |
10036 IN_type_symbol = last_type_symbol; |
9763 ADD_PARAM_LIST(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) |
9764 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; |
9765 function_type_prefix = return_type_symbol; |
10039 function_type_prefix = return_type_symbol; |
9766 function_type_suffix = IN_type_symbol; |
10040 function_type_suffix = IN_type_symbol; |
9767 break; |
10041 break; |
9768 |
10042 |
9781 case function_usint_to_sint : |
10055 case function_usint_to_sint : |
9782 { |
10056 { |
9783 symbol_c *last_type_symbol = NULL; |
10057 symbol_c *last_type_symbol = NULL; |
9784 |
10058 |
9785 { |
10059 { |
|
10060 identifier_c IN_param_name("IN"); |
9786 /* 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 */ |
9787 symbol_c *IN_param_value = &this->default_variable_name; |
10062 symbol_c *IN_param_value = &this->default_variable_name; |
9788 |
10063 |
9789 symbol_c *IN_type_symbol = param_data_type; |
10064 symbol_c *IN_type_symbol = param_data_type; |
9790 last_type_symbol = param_data_type; |
10065 last_type_symbol = param_data_type; |
9794 |
10069 |
9795 function_name = (symbol_c*)(new pragma_c("__move_")); |
10070 function_name = (symbol_c*)(new pragma_c("__move_")); |
9796 |
10071 |
9797 if (IN_type_symbol == NULL) |
10072 if (IN_type_symbol == NULL) |
9798 IN_type_symbol = last_type_symbol; |
10073 IN_type_symbol = last_type_symbol; |
9799 ADD_PARAM_LIST(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) |
9800 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; |
9801 function_type_prefix = return_type_symbol; |
10076 function_type_prefix = return_type_symbol; |
9802 function_type_suffix = IN_type_symbol; |
10077 function_type_suffix = IN_type_symbol; |
9803 break; |
10078 break; |
9804 |
10079 |
9817 case function_usint_to_lint : |
10092 case function_usint_to_lint : |
9818 { |
10093 { |
9819 symbol_c *last_type_symbol = NULL; |
10094 symbol_c *last_type_symbol = NULL; |
9820 |
10095 |
9821 { |
10096 { |
|
10097 identifier_c IN_param_name("IN"); |
9822 /* 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 */ |
9823 symbol_c *IN_param_value = &this->default_variable_name; |
10099 symbol_c *IN_param_value = &this->default_variable_name; |
9824 |
10100 |
9825 symbol_c *IN_type_symbol = param_data_type; |
10101 symbol_c *IN_type_symbol = param_data_type; |
9826 last_type_symbol = param_data_type; |
10102 last_type_symbol = param_data_type; |
9830 |
10106 |
9831 function_name = (symbol_c*)(new pragma_c("__move_")); |
10107 function_name = (symbol_c*)(new pragma_c("__move_")); |
9832 |
10108 |
9833 if (IN_type_symbol == NULL) |
10109 if (IN_type_symbol == NULL) |
9834 IN_type_symbol = last_type_symbol; |
10110 IN_type_symbol = last_type_symbol; |
9835 ADD_PARAM_LIST(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) |
9836 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; |
9837 function_type_prefix = return_type_symbol; |
10113 function_type_prefix = return_type_symbol; |
9838 function_type_suffix = IN_type_symbol; |
10114 function_type_suffix = IN_type_symbol; |
9839 break; |
10115 break; |
9840 |
10116 |
9853 case function_usint_to_dint : |
10129 case function_usint_to_dint : |
9854 { |
10130 { |
9855 symbol_c *last_type_symbol = NULL; |
10131 symbol_c *last_type_symbol = NULL; |
9856 |
10132 |
9857 { |
10133 { |
|
10134 identifier_c IN_param_name("IN"); |
9858 /* 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 */ |
9859 symbol_c *IN_param_value = &this->default_variable_name; |
10136 symbol_c *IN_param_value = &this->default_variable_name; |
9860 |
10137 |
9861 symbol_c *IN_type_symbol = param_data_type; |
10138 symbol_c *IN_type_symbol = param_data_type; |
9862 last_type_symbol = param_data_type; |
10139 last_type_symbol = param_data_type; |
9866 |
10143 |
9867 function_name = (symbol_c*)(new pragma_c("__move_")); |
10144 function_name = (symbol_c*)(new pragma_c("__move_")); |
9868 |
10145 |
9869 if (IN_type_symbol == NULL) |
10146 if (IN_type_symbol == NULL) |
9870 IN_type_symbol = last_type_symbol; |
10147 IN_type_symbol = last_type_symbol; |
9871 ADD_PARAM_LIST(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) |
9872 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; |
9873 function_type_prefix = return_type_symbol; |
10150 function_type_prefix = return_type_symbol; |
9874 function_type_suffix = IN_type_symbol; |
10151 function_type_suffix = IN_type_symbol; |
9875 break; |
10152 break; |
9876 |
10153 |
9889 case function_usint_to_date : |
10166 case function_usint_to_date : |
9890 { |
10167 { |
9891 symbol_c *last_type_symbol = NULL; |
10168 symbol_c *last_type_symbol = NULL; |
9892 |
10169 |
9893 { |
10170 { |
|
10171 identifier_c IN_param_name("IN"); |
9894 /* 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 */ |
9895 symbol_c *IN_param_value = &this->default_variable_name; |
10173 symbol_c *IN_param_value = &this->default_variable_name; |
9896 |
10174 |
9897 symbol_c *IN_type_symbol = param_data_type; |
10175 symbol_c *IN_type_symbol = param_data_type; |
9898 last_type_symbol = param_data_type; |
10176 last_type_symbol = param_data_type; |
9902 |
10180 |
9903 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10181 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9904 |
10182 |
9905 if (IN_type_symbol == NULL) |
10183 if (IN_type_symbol == NULL) |
9906 IN_type_symbol = last_type_symbol; |
10184 IN_type_symbol = last_type_symbol; |
9907 ADD_PARAM_LIST(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) |
9908 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; |
9909 function_type_prefix = return_type_symbol; |
10187 function_type_prefix = return_type_symbol; |
9910 break; |
10188 break; |
9911 |
10189 |
9912 } |
10190 } |
9924 case function_usint_to_dword : |
10202 case function_usint_to_dword : |
9925 { |
10203 { |
9926 symbol_c *last_type_symbol = NULL; |
10204 symbol_c *last_type_symbol = NULL; |
9927 |
10205 |
9928 { |
10206 { |
|
10207 identifier_c IN_param_name("IN"); |
9929 /* 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 */ |
9930 symbol_c *IN_param_value = &this->default_variable_name; |
10209 symbol_c *IN_param_value = &this->default_variable_name; |
9931 |
10210 |
9932 symbol_c *IN_type_symbol = param_data_type; |
10211 symbol_c *IN_type_symbol = param_data_type; |
9933 last_type_symbol = param_data_type; |
10212 last_type_symbol = param_data_type; |
9937 |
10216 |
9938 function_name = (symbol_c*)(new pragma_c("__move_")); |
10217 function_name = (symbol_c*)(new pragma_c("__move_")); |
9939 |
10218 |
9940 if (IN_type_symbol == NULL) |
10219 if (IN_type_symbol == NULL) |
9941 IN_type_symbol = last_type_symbol; |
10220 IN_type_symbol = last_type_symbol; |
9942 ADD_PARAM_LIST(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) |
9943 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; |
9944 function_type_prefix = return_type_symbol; |
10223 function_type_prefix = return_type_symbol; |
9945 function_type_suffix = IN_type_symbol; |
10224 function_type_suffix = IN_type_symbol; |
9946 break; |
10225 break; |
9947 |
10226 |
9960 case function_usint_to_dt : |
10239 case function_usint_to_dt : |
9961 { |
10240 { |
9962 symbol_c *last_type_symbol = NULL; |
10241 symbol_c *last_type_symbol = NULL; |
9963 |
10242 |
9964 { |
10243 { |
|
10244 identifier_c IN_param_name("IN"); |
9965 /* 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 */ |
9966 symbol_c *IN_param_value = &this->default_variable_name; |
10246 symbol_c *IN_param_value = &this->default_variable_name; |
9967 |
10247 |
9968 symbol_c *IN_type_symbol = param_data_type; |
10248 symbol_c *IN_type_symbol = param_data_type; |
9969 last_type_symbol = param_data_type; |
10249 last_type_symbol = param_data_type; |
9973 |
10253 |
9974 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10254 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
9975 |
10255 |
9976 if (IN_type_symbol == NULL) |
10256 if (IN_type_symbol == NULL) |
9977 IN_type_symbol = last_type_symbol; |
10257 IN_type_symbol = last_type_symbol; |
9978 ADD_PARAM_LIST(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) |
9979 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; |
9980 function_type_prefix = return_type_symbol; |
10260 function_type_prefix = return_type_symbol; |
9981 break; |
10261 break; |
9982 |
10262 |
9983 } |
10263 } |
9995 case function_usint_to_tod : |
10275 case function_usint_to_tod : |
9996 { |
10276 { |
9997 symbol_c *last_type_symbol = NULL; |
10277 symbol_c *last_type_symbol = NULL; |
9998 |
10278 |
9999 { |
10279 { |
|
10280 identifier_c IN_param_name("IN"); |
10000 /* 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 */ |
10001 symbol_c *IN_param_value = &this->default_variable_name; |
10282 symbol_c *IN_param_value = &this->default_variable_name; |
10002 |
10283 |
10003 symbol_c *IN_type_symbol = param_data_type; |
10284 symbol_c *IN_type_symbol = param_data_type; |
10004 last_type_symbol = param_data_type; |
10285 last_type_symbol = param_data_type; |
10008 |
10289 |
10009 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10290 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10010 |
10291 |
10011 if (IN_type_symbol == NULL) |
10292 if (IN_type_symbol == NULL) |
10012 IN_type_symbol = last_type_symbol; |
10293 IN_type_symbol = last_type_symbol; |
10013 ADD_PARAM_LIST(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) |
10014 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; |
10015 function_type_prefix = return_type_symbol; |
10296 function_type_prefix = return_type_symbol; |
10016 break; |
10297 break; |
10017 |
10298 |
10018 } |
10299 } |
10030 case function_usint_to_udint : |
10311 case function_usint_to_udint : |
10031 { |
10312 { |
10032 symbol_c *last_type_symbol = NULL; |
10313 symbol_c *last_type_symbol = NULL; |
10033 |
10314 |
10034 { |
10315 { |
|
10316 identifier_c IN_param_name("IN"); |
10035 /* 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 */ |
10036 symbol_c *IN_param_value = &this->default_variable_name; |
10318 symbol_c *IN_param_value = &this->default_variable_name; |
10037 |
10319 |
10038 symbol_c *IN_type_symbol = param_data_type; |
10320 symbol_c *IN_type_symbol = param_data_type; |
10039 last_type_symbol = param_data_type; |
10321 last_type_symbol = param_data_type; |
10043 |
10325 |
10044 function_name = (symbol_c*)(new pragma_c("__move_")); |
10326 function_name = (symbol_c*)(new pragma_c("__move_")); |
10045 |
10327 |
10046 if (IN_type_symbol == NULL) |
10328 if (IN_type_symbol == NULL) |
10047 IN_type_symbol = last_type_symbol; |
10329 IN_type_symbol = last_type_symbol; |
10048 ADD_PARAM_LIST(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) |
10049 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; |
10050 function_type_prefix = return_type_symbol; |
10332 function_type_prefix = return_type_symbol; |
10051 function_type_suffix = IN_type_symbol; |
10333 function_type_suffix = IN_type_symbol; |
10052 break; |
10334 break; |
10053 |
10335 |
10066 case function_usint_to_word : |
10348 case function_usint_to_word : |
10067 { |
10349 { |
10068 symbol_c *last_type_symbol = NULL; |
10350 symbol_c *last_type_symbol = NULL; |
10069 |
10351 |
10070 { |
10352 { |
|
10353 identifier_c IN_param_name("IN"); |
10071 /* 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 */ |
10072 symbol_c *IN_param_value = &this->default_variable_name; |
10355 symbol_c *IN_param_value = &this->default_variable_name; |
10073 |
10356 |
10074 symbol_c *IN_type_symbol = param_data_type; |
10357 symbol_c *IN_type_symbol = param_data_type; |
10075 last_type_symbol = param_data_type; |
10358 last_type_symbol = param_data_type; |
10079 |
10362 |
10080 function_name = (symbol_c*)(new pragma_c("__move_")); |
10363 function_name = (symbol_c*)(new pragma_c("__move_")); |
10081 |
10364 |
10082 if (IN_type_symbol == NULL) |
10365 if (IN_type_symbol == NULL) |
10083 IN_type_symbol = last_type_symbol; |
10366 IN_type_symbol = last_type_symbol; |
10084 ADD_PARAM_LIST(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) |
10085 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; |
10086 function_type_prefix = return_type_symbol; |
10369 function_type_prefix = return_type_symbol; |
10087 function_type_suffix = IN_type_symbol; |
10370 function_type_suffix = IN_type_symbol; |
10088 break; |
10371 break; |
10089 |
10372 |
10102 case function_usint_to_string : |
10385 case function_usint_to_string : |
10103 { |
10386 { |
10104 symbol_c *last_type_symbol = NULL; |
10387 symbol_c *last_type_symbol = NULL; |
10105 |
10388 |
10106 { |
10389 { |
|
10390 identifier_c IN_param_name("IN"); |
10107 /* 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 */ |
10108 symbol_c *IN_param_value = &this->default_variable_name; |
10392 symbol_c *IN_param_value = &this->default_variable_name; |
10109 |
10393 |
10110 symbol_c *IN_type_symbol = param_data_type; |
10394 symbol_c *IN_type_symbol = param_data_type; |
10111 last_type_symbol = param_data_type; |
10395 last_type_symbol = param_data_type; |
10115 |
10399 |
10116 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
10400 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
10117 |
10401 |
10118 if (IN_type_symbol == NULL) |
10402 if (IN_type_symbol == NULL) |
10119 IN_type_symbol = last_type_symbol; |
10403 IN_type_symbol = last_type_symbol; |
10120 ADD_PARAM_LIST(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) |
10121 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; |
10122 function_type_prefix = return_type_symbol; |
10406 function_type_prefix = return_type_symbol; |
10123 break; |
10407 break; |
10124 |
10408 |
10125 } |
10409 } |
10137 case function_usint_to_lword : |
10421 case function_usint_to_lword : |
10138 { |
10422 { |
10139 symbol_c *last_type_symbol = NULL; |
10423 symbol_c *last_type_symbol = NULL; |
10140 |
10424 |
10141 { |
10425 { |
|
10426 identifier_c IN_param_name("IN"); |
10142 /* 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 */ |
10143 symbol_c *IN_param_value = &this->default_variable_name; |
10428 symbol_c *IN_param_value = &this->default_variable_name; |
10144 |
10429 |
10145 symbol_c *IN_type_symbol = param_data_type; |
10430 symbol_c *IN_type_symbol = param_data_type; |
10146 last_type_symbol = param_data_type; |
10431 last_type_symbol = param_data_type; |
10150 |
10435 |
10151 function_name = (symbol_c*)(new pragma_c("__move_")); |
10436 function_name = (symbol_c*)(new pragma_c("__move_")); |
10152 |
10437 |
10153 if (IN_type_symbol == NULL) |
10438 if (IN_type_symbol == NULL) |
10154 IN_type_symbol = last_type_symbol; |
10439 IN_type_symbol = last_type_symbol; |
10155 ADD_PARAM_LIST(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) |
10156 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; |
10157 function_type_prefix = return_type_symbol; |
10442 function_type_prefix = return_type_symbol; |
10158 function_type_suffix = IN_type_symbol; |
10443 function_type_suffix = IN_type_symbol; |
10159 break; |
10444 break; |
10160 |
10445 |
10173 case function_usint_to_uint : |
10458 case function_usint_to_uint : |
10174 { |
10459 { |
10175 symbol_c *last_type_symbol = NULL; |
10460 symbol_c *last_type_symbol = NULL; |
10176 |
10461 |
10177 { |
10462 { |
|
10463 identifier_c IN_param_name("IN"); |
10178 /* 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 */ |
10179 symbol_c *IN_param_value = &this->default_variable_name; |
10465 symbol_c *IN_param_value = &this->default_variable_name; |
10180 |
10466 |
10181 symbol_c *IN_type_symbol = param_data_type; |
10467 symbol_c *IN_type_symbol = param_data_type; |
10182 last_type_symbol = param_data_type; |
10468 last_type_symbol = param_data_type; |
10186 |
10472 |
10187 function_name = (symbol_c*)(new pragma_c("__move_")); |
10473 function_name = (symbol_c*)(new pragma_c("__move_")); |
10188 |
10474 |
10189 if (IN_type_symbol == NULL) |
10475 if (IN_type_symbol == NULL) |
10190 IN_type_symbol = last_type_symbol; |
10476 IN_type_symbol = last_type_symbol; |
10191 ADD_PARAM_LIST(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) |
10192 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; |
10193 function_type_prefix = return_type_symbol; |
10479 function_type_prefix = return_type_symbol; |
10194 function_type_suffix = IN_type_symbol; |
10480 function_type_suffix = IN_type_symbol; |
10195 break; |
10481 break; |
10196 |
10482 |
10209 case function_usint_to_lreal : |
10495 case function_usint_to_lreal : |
10210 { |
10496 { |
10211 symbol_c *last_type_symbol = NULL; |
10497 symbol_c *last_type_symbol = NULL; |
10212 |
10498 |
10213 { |
10499 { |
|
10500 identifier_c IN_param_name("IN"); |
10214 /* 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 */ |
10215 symbol_c *IN_param_value = &this->default_variable_name; |
10502 symbol_c *IN_param_value = &this->default_variable_name; |
10216 |
10503 |
10217 symbol_c *IN_type_symbol = param_data_type; |
10504 symbol_c *IN_type_symbol = param_data_type; |
10218 last_type_symbol = param_data_type; |
10505 last_type_symbol = param_data_type; |
10222 |
10509 |
10223 function_name = (symbol_c*)(new pragma_c("__move_")); |
10510 function_name = (symbol_c*)(new pragma_c("__move_")); |
10224 |
10511 |
10225 if (IN_type_symbol == NULL) |
10512 if (IN_type_symbol == NULL) |
10226 IN_type_symbol = last_type_symbol; |
10513 IN_type_symbol = last_type_symbol; |
10227 ADD_PARAM_LIST(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) |
10228 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; |
10229 function_type_prefix = return_type_symbol; |
10516 function_type_prefix = return_type_symbol; |
10230 function_type_suffix = IN_type_symbol; |
10517 function_type_suffix = IN_type_symbol; |
10231 break; |
10518 break; |
10232 |
10519 |
10245 case function_usint_to_byte : |
10532 case function_usint_to_byte : |
10246 { |
10533 { |
10247 symbol_c *last_type_symbol = NULL; |
10534 symbol_c *last_type_symbol = NULL; |
10248 |
10535 |
10249 { |
10536 { |
|
10537 identifier_c IN_param_name("IN"); |
10250 /* 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 */ |
10251 symbol_c *IN_param_value = &this->default_variable_name; |
10539 symbol_c *IN_param_value = &this->default_variable_name; |
10252 |
10540 |
10253 symbol_c *IN_type_symbol = param_data_type; |
10541 symbol_c *IN_type_symbol = param_data_type; |
10254 last_type_symbol = param_data_type; |
10542 last_type_symbol = param_data_type; |
10258 |
10546 |
10259 function_name = (symbol_c*)(new pragma_c("__move_")); |
10547 function_name = (symbol_c*)(new pragma_c("__move_")); |
10260 |
10548 |
10261 if (IN_type_symbol == NULL) |
10549 if (IN_type_symbol == NULL) |
10262 IN_type_symbol = last_type_symbol; |
10550 IN_type_symbol = last_type_symbol; |
10263 ADD_PARAM_LIST(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) |
10264 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; |
10265 function_type_prefix = return_type_symbol; |
10553 function_type_prefix = return_type_symbol; |
10266 function_type_suffix = IN_type_symbol; |
10554 function_type_suffix = IN_type_symbol; |
10267 break; |
10555 break; |
10268 |
10556 |
10281 case function_usint_to_ulint : |
10569 case function_usint_to_ulint : |
10282 { |
10570 { |
10283 symbol_c *last_type_symbol = NULL; |
10571 symbol_c *last_type_symbol = NULL; |
10284 |
10572 |
10285 { |
10573 { |
|
10574 identifier_c IN_param_name("IN"); |
10286 /* 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 */ |
10287 symbol_c *IN_param_value = &this->default_variable_name; |
10576 symbol_c *IN_param_value = &this->default_variable_name; |
10288 |
10577 |
10289 symbol_c *IN_type_symbol = param_data_type; |
10578 symbol_c *IN_type_symbol = param_data_type; |
10290 last_type_symbol = param_data_type; |
10579 last_type_symbol = param_data_type; |
10294 |
10583 |
10295 function_name = (symbol_c*)(new pragma_c("__move_")); |
10584 function_name = (symbol_c*)(new pragma_c("__move_")); |
10296 |
10585 |
10297 if (IN_type_symbol == NULL) |
10586 if (IN_type_symbol == NULL) |
10298 IN_type_symbol = last_type_symbol; |
10587 IN_type_symbol = last_type_symbol; |
10299 ADD_PARAM_LIST(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) |
10300 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; |
10301 function_type_prefix = return_type_symbol; |
10590 function_type_prefix = return_type_symbol; |
10302 function_type_suffix = IN_type_symbol; |
10591 function_type_suffix = IN_type_symbol; |
10303 break; |
10592 break; |
10304 |
10593 |
10317 case function_usint_to_bool : |
10606 case function_usint_to_bool : |
10318 { |
10607 { |
10319 symbol_c *last_type_symbol = NULL; |
10608 symbol_c *last_type_symbol = NULL; |
10320 |
10609 |
10321 { |
10610 { |
|
10611 identifier_c IN_param_name("IN"); |
10322 /* 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 */ |
10323 symbol_c *IN_param_value = &this->default_variable_name; |
10613 symbol_c *IN_param_value = &this->default_variable_name; |
10324 |
10614 |
10325 symbol_c *IN_type_symbol = param_data_type; |
10615 symbol_c *IN_type_symbol = param_data_type; |
10326 last_type_symbol = param_data_type; |
10616 last_type_symbol = param_data_type; |
10330 |
10620 |
10331 function_name = (symbol_c*)(new pragma_c("__move_")); |
10621 function_name = (symbol_c*)(new pragma_c("__move_")); |
10332 |
10622 |
10333 if (IN_type_symbol == NULL) |
10623 if (IN_type_symbol == NULL) |
10334 IN_type_symbol = last_type_symbol; |
10624 IN_type_symbol = last_type_symbol; |
10335 ADD_PARAM_LIST(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) |
10336 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; |
10337 function_type_prefix = return_type_symbol; |
10627 function_type_prefix = return_type_symbol; |
10338 function_type_suffix = IN_type_symbol; |
10628 function_type_suffix = IN_type_symbol; |
10339 break; |
10629 break; |
10340 |
10630 |
10353 case function_usint_to_time : |
10643 case function_usint_to_time : |
10354 { |
10644 { |
10355 symbol_c *last_type_symbol = NULL; |
10645 symbol_c *last_type_symbol = NULL; |
10356 |
10646 |
10357 { |
10647 { |
|
10648 identifier_c IN_param_name("IN"); |
10358 /* 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 */ |
10359 symbol_c *IN_param_value = &this->default_variable_name; |
10650 symbol_c *IN_param_value = &this->default_variable_name; |
10360 |
10651 |
10361 symbol_c *IN_type_symbol = param_data_type; |
10652 symbol_c *IN_type_symbol = param_data_type; |
10362 last_type_symbol = param_data_type; |
10653 last_type_symbol = param_data_type; |
10366 |
10657 |
10367 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10658 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10368 |
10659 |
10369 if (IN_type_symbol == NULL) |
10660 if (IN_type_symbol == NULL) |
10370 IN_type_symbol = last_type_symbol; |
10661 IN_type_symbol = last_type_symbol; |
10371 ADD_PARAM_LIST(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) |
10372 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; |
10373 function_type_prefix = return_type_symbol; |
10664 function_type_prefix = return_type_symbol; |
10374 break; |
10665 break; |
10375 |
10666 |
10376 } |
10667 } |
10388 case function_usint_to_int : |
10679 case function_usint_to_int : |
10389 { |
10680 { |
10390 symbol_c *last_type_symbol = NULL; |
10681 symbol_c *last_type_symbol = NULL; |
10391 |
10682 |
10392 { |
10683 { |
|
10684 identifier_c IN_param_name("IN"); |
10393 /* 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 */ |
10394 symbol_c *IN_param_value = &this->default_variable_name; |
10686 symbol_c *IN_param_value = &this->default_variable_name; |
10395 |
10687 |
10396 symbol_c *IN_type_symbol = param_data_type; |
10688 symbol_c *IN_type_symbol = param_data_type; |
10397 last_type_symbol = param_data_type; |
10689 last_type_symbol = param_data_type; |
10401 |
10693 |
10402 function_name = (symbol_c*)(new pragma_c("__move_")); |
10694 function_name = (symbol_c*)(new pragma_c("__move_")); |
10403 |
10695 |
10404 if (IN_type_symbol == NULL) |
10696 if (IN_type_symbol == NULL) |
10405 IN_type_symbol = last_type_symbol; |
10697 IN_type_symbol = last_type_symbol; |
10406 ADD_PARAM_LIST(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) |
10407 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; |
10408 function_type_prefix = return_type_symbol; |
10700 function_type_prefix = return_type_symbol; |
10409 function_type_suffix = IN_type_symbol; |
10701 function_type_suffix = IN_type_symbol; |
10410 break; |
10702 break; |
10411 |
10703 |
10424 case function_ulint_to_real : |
10716 case function_ulint_to_real : |
10425 { |
10717 { |
10426 symbol_c *last_type_symbol = NULL; |
10718 symbol_c *last_type_symbol = NULL; |
10427 |
10719 |
10428 { |
10720 { |
|
10721 identifier_c IN_param_name("IN"); |
10429 /* 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 */ |
10430 symbol_c *IN_param_value = &this->default_variable_name; |
10723 symbol_c *IN_param_value = &this->default_variable_name; |
10431 |
10724 |
10432 symbol_c *IN_type_symbol = param_data_type; |
10725 symbol_c *IN_type_symbol = param_data_type; |
10433 last_type_symbol = param_data_type; |
10726 last_type_symbol = param_data_type; |
10437 |
10730 |
10438 function_name = (symbol_c*)(new pragma_c("__move_")); |
10731 function_name = (symbol_c*)(new pragma_c("__move_")); |
10439 |
10732 |
10440 if (IN_type_symbol == NULL) |
10733 if (IN_type_symbol == NULL) |
10441 IN_type_symbol = last_type_symbol; |
10734 IN_type_symbol = last_type_symbol; |
10442 ADD_PARAM_LIST(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) |
10443 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; |
10444 function_type_prefix = return_type_symbol; |
10737 function_type_prefix = return_type_symbol; |
10445 function_type_suffix = IN_type_symbol; |
10738 function_type_suffix = IN_type_symbol; |
10446 break; |
10739 break; |
10447 |
10740 |
10460 case function_ulint_to_sint : |
10753 case function_ulint_to_sint : |
10461 { |
10754 { |
10462 symbol_c *last_type_symbol = NULL; |
10755 symbol_c *last_type_symbol = NULL; |
10463 |
10756 |
10464 { |
10757 { |
|
10758 identifier_c IN_param_name("IN"); |
10465 /* 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 */ |
10466 symbol_c *IN_param_value = &this->default_variable_name; |
10760 symbol_c *IN_param_value = &this->default_variable_name; |
10467 |
10761 |
10468 symbol_c *IN_type_symbol = param_data_type; |
10762 symbol_c *IN_type_symbol = param_data_type; |
10469 last_type_symbol = param_data_type; |
10763 last_type_symbol = param_data_type; |
10473 |
10767 |
10474 function_name = (symbol_c*)(new pragma_c("__move_")); |
10768 function_name = (symbol_c*)(new pragma_c("__move_")); |
10475 |
10769 |
10476 if (IN_type_symbol == NULL) |
10770 if (IN_type_symbol == NULL) |
10477 IN_type_symbol = last_type_symbol; |
10771 IN_type_symbol = last_type_symbol; |
10478 ADD_PARAM_LIST(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) |
10479 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; |
10480 function_type_prefix = return_type_symbol; |
10774 function_type_prefix = return_type_symbol; |
10481 function_type_suffix = IN_type_symbol; |
10775 function_type_suffix = IN_type_symbol; |
10482 break; |
10776 break; |
10483 |
10777 |
10496 case function_ulint_to_lint : |
10790 case function_ulint_to_lint : |
10497 { |
10791 { |
10498 symbol_c *last_type_symbol = NULL; |
10792 symbol_c *last_type_symbol = NULL; |
10499 |
10793 |
10500 { |
10794 { |
|
10795 identifier_c IN_param_name("IN"); |
10501 /* 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 */ |
10502 symbol_c *IN_param_value = &this->default_variable_name; |
10797 symbol_c *IN_param_value = &this->default_variable_name; |
10503 |
10798 |
10504 symbol_c *IN_type_symbol = param_data_type; |
10799 symbol_c *IN_type_symbol = param_data_type; |
10505 last_type_symbol = param_data_type; |
10800 last_type_symbol = param_data_type; |
10509 |
10804 |
10510 function_name = (symbol_c*)(new pragma_c("__move_")); |
10805 function_name = (symbol_c*)(new pragma_c("__move_")); |
10511 |
10806 |
10512 if (IN_type_symbol == NULL) |
10807 if (IN_type_symbol == NULL) |
10513 IN_type_symbol = last_type_symbol; |
10808 IN_type_symbol = last_type_symbol; |
10514 ADD_PARAM_LIST(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) |
10515 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; |
10516 function_type_prefix = return_type_symbol; |
10811 function_type_prefix = return_type_symbol; |
10517 function_type_suffix = IN_type_symbol; |
10812 function_type_suffix = IN_type_symbol; |
10518 break; |
10813 break; |
10519 |
10814 |
10532 case function_ulint_to_dint : |
10827 case function_ulint_to_dint : |
10533 { |
10828 { |
10534 symbol_c *last_type_symbol = NULL; |
10829 symbol_c *last_type_symbol = NULL; |
10535 |
10830 |
10536 { |
10831 { |
|
10832 identifier_c IN_param_name("IN"); |
10537 /* 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 */ |
10538 symbol_c *IN_param_value = &this->default_variable_name; |
10834 symbol_c *IN_param_value = &this->default_variable_name; |
10539 |
10835 |
10540 symbol_c *IN_type_symbol = param_data_type; |
10836 symbol_c *IN_type_symbol = param_data_type; |
10541 last_type_symbol = param_data_type; |
10837 last_type_symbol = param_data_type; |
10545 |
10841 |
10546 function_name = (symbol_c*)(new pragma_c("__move_")); |
10842 function_name = (symbol_c*)(new pragma_c("__move_")); |
10547 |
10843 |
10548 if (IN_type_symbol == NULL) |
10844 if (IN_type_symbol == NULL) |
10549 IN_type_symbol = last_type_symbol; |
10845 IN_type_symbol = last_type_symbol; |
10550 ADD_PARAM_LIST(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) |
10551 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; |
10552 function_type_prefix = return_type_symbol; |
10848 function_type_prefix = return_type_symbol; |
10553 function_type_suffix = IN_type_symbol; |
10849 function_type_suffix = IN_type_symbol; |
10554 break; |
10850 break; |
10555 |
10851 |
10568 case function_ulint_to_date : |
10864 case function_ulint_to_date : |
10569 { |
10865 { |
10570 symbol_c *last_type_symbol = NULL; |
10866 symbol_c *last_type_symbol = NULL; |
10571 |
10867 |
10572 { |
10868 { |
|
10869 identifier_c IN_param_name("IN"); |
10573 /* 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 */ |
10574 symbol_c *IN_param_value = &this->default_variable_name; |
10871 symbol_c *IN_param_value = &this->default_variable_name; |
10575 |
10872 |
10576 symbol_c *IN_type_symbol = param_data_type; |
10873 symbol_c *IN_type_symbol = param_data_type; |
10577 last_type_symbol = param_data_type; |
10874 last_type_symbol = param_data_type; |
10581 |
10878 |
10582 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10879 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10583 |
10880 |
10584 if (IN_type_symbol == NULL) |
10881 if (IN_type_symbol == NULL) |
10585 IN_type_symbol = last_type_symbol; |
10882 IN_type_symbol = last_type_symbol; |
10586 ADD_PARAM_LIST(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) |
10587 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; |
10588 function_type_prefix = return_type_symbol; |
10885 function_type_prefix = return_type_symbol; |
10589 break; |
10886 break; |
10590 |
10887 |
10591 } |
10888 } |
10603 case function_ulint_to_dword : |
10900 case function_ulint_to_dword : |
10604 { |
10901 { |
10605 symbol_c *last_type_symbol = NULL; |
10902 symbol_c *last_type_symbol = NULL; |
10606 |
10903 |
10607 { |
10904 { |
|
10905 identifier_c IN_param_name("IN"); |
10608 /* 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 */ |
10609 symbol_c *IN_param_value = &this->default_variable_name; |
10907 symbol_c *IN_param_value = &this->default_variable_name; |
10610 |
10908 |
10611 symbol_c *IN_type_symbol = param_data_type; |
10909 symbol_c *IN_type_symbol = param_data_type; |
10612 last_type_symbol = param_data_type; |
10910 last_type_symbol = param_data_type; |
10616 |
10914 |
10617 function_name = (symbol_c*)(new pragma_c("__move_")); |
10915 function_name = (symbol_c*)(new pragma_c("__move_")); |
10618 |
10916 |
10619 if (IN_type_symbol == NULL) |
10917 if (IN_type_symbol == NULL) |
10620 IN_type_symbol = last_type_symbol; |
10918 IN_type_symbol = last_type_symbol; |
10621 ADD_PARAM_LIST(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) |
10622 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; |
10623 function_type_prefix = return_type_symbol; |
10921 function_type_prefix = return_type_symbol; |
10624 function_type_suffix = IN_type_symbol; |
10922 function_type_suffix = IN_type_symbol; |
10625 break; |
10923 break; |
10626 |
10924 |
10639 case function_ulint_to_dt : |
10937 case function_ulint_to_dt : |
10640 { |
10938 { |
10641 symbol_c *last_type_symbol = NULL; |
10939 symbol_c *last_type_symbol = NULL; |
10642 |
10940 |
10643 { |
10941 { |
|
10942 identifier_c IN_param_name("IN"); |
10644 /* 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 */ |
10645 symbol_c *IN_param_value = &this->default_variable_name; |
10944 symbol_c *IN_param_value = &this->default_variable_name; |
10646 |
10945 |
10647 symbol_c *IN_type_symbol = param_data_type; |
10946 symbol_c *IN_type_symbol = param_data_type; |
10648 last_type_symbol = param_data_type; |
10947 last_type_symbol = param_data_type; |
10652 |
10951 |
10653 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10952 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10654 |
10953 |
10655 if (IN_type_symbol == NULL) |
10954 if (IN_type_symbol == NULL) |
10656 IN_type_symbol = last_type_symbol; |
10955 IN_type_symbol = last_type_symbol; |
10657 ADD_PARAM_LIST(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) |
10658 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; |
10659 function_type_prefix = return_type_symbol; |
10958 function_type_prefix = return_type_symbol; |
10660 break; |
10959 break; |
10661 |
10960 |
10662 } |
10961 } |
10674 case function_ulint_to_tod : |
10973 case function_ulint_to_tod : |
10675 { |
10974 { |
10676 symbol_c *last_type_symbol = NULL; |
10975 symbol_c *last_type_symbol = NULL; |
10677 |
10976 |
10678 { |
10977 { |
|
10978 identifier_c IN_param_name("IN"); |
10679 /* 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 */ |
10680 symbol_c *IN_param_value = &this->default_variable_name; |
10980 symbol_c *IN_param_value = &this->default_variable_name; |
10681 |
10981 |
10682 symbol_c *IN_type_symbol = param_data_type; |
10982 symbol_c *IN_type_symbol = param_data_type; |
10683 last_type_symbol = param_data_type; |
10983 last_type_symbol = param_data_type; |
10687 |
10987 |
10688 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10988 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
10689 |
10989 |
10690 if (IN_type_symbol == NULL) |
10990 if (IN_type_symbol == NULL) |
10691 IN_type_symbol = last_type_symbol; |
10991 IN_type_symbol = last_type_symbol; |
10692 ADD_PARAM_LIST(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) |
10693 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; |
10694 function_type_prefix = return_type_symbol; |
10994 function_type_prefix = return_type_symbol; |
10695 break; |
10995 break; |
10696 |
10996 |
10697 } |
10997 } |
10709 case function_ulint_to_udint : |
11009 case function_ulint_to_udint : |
10710 { |
11010 { |
10711 symbol_c *last_type_symbol = NULL; |
11011 symbol_c *last_type_symbol = NULL; |
10712 |
11012 |
10713 { |
11013 { |
|
11014 identifier_c IN_param_name("IN"); |
10714 /* 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 */ |
10715 symbol_c *IN_param_value = &this->default_variable_name; |
11016 symbol_c *IN_param_value = &this->default_variable_name; |
10716 |
11017 |
10717 symbol_c *IN_type_symbol = param_data_type; |
11018 symbol_c *IN_type_symbol = param_data_type; |
10718 last_type_symbol = param_data_type; |
11019 last_type_symbol = param_data_type; |
10722 |
11023 |
10723 function_name = (symbol_c*)(new pragma_c("__move_")); |
11024 function_name = (symbol_c*)(new pragma_c("__move_")); |
10724 |
11025 |
10725 if (IN_type_symbol == NULL) |
11026 if (IN_type_symbol == NULL) |
10726 IN_type_symbol = last_type_symbol; |
11027 IN_type_symbol = last_type_symbol; |
10727 ADD_PARAM_LIST(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) |
10728 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; |
10729 function_type_prefix = return_type_symbol; |
11030 function_type_prefix = return_type_symbol; |
10730 function_type_suffix = IN_type_symbol; |
11031 function_type_suffix = IN_type_symbol; |
10731 break; |
11032 break; |
10732 |
11033 |
10745 case function_ulint_to_word : |
11046 case function_ulint_to_word : |
10746 { |
11047 { |
10747 symbol_c *last_type_symbol = NULL; |
11048 symbol_c *last_type_symbol = NULL; |
10748 |
11049 |
10749 { |
11050 { |
|
11051 identifier_c IN_param_name("IN"); |
10750 /* 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 */ |
10751 symbol_c *IN_param_value = &this->default_variable_name; |
11053 symbol_c *IN_param_value = &this->default_variable_name; |
10752 |
11054 |
10753 symbol_c *IN_type_symbol = param_data_type; |
11055 symbol_c *IN_type_symbol = param_data_type; |
10754 last_type_symbol = param_data_type; |
11056 last_type_symbol = param_data_type; |
10758 |
11060 |
10759 function_name = (symbol_c*)(new pragma_c("__move_")); |
11061 function_name = (symbol_c*)(new pragma_c("__move_")); |
10760 |
11062 |
10761 if (IN_type_symbol == NULL) |
11063 if (IN_type_symbol == NULL) |
10762 IN_type_symbol = last_type_symbol; |
11064 IN_type_symbol = last_type_symbol; |
10763 ADD_PARAM_LIST(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) |
10764 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; |
10765 function_type_prefix = return_type_symbol; |
11067 function_type_prefix = return_type_symbol; |
10766 function_type_suffix = IN_type_symbol; |
11068 function_type_suffix = IN_type_symbol; |
10767 break; |
11069 break; |
10768 |
11070 |
10781 case function_ulint_to_string : |
11083 case function_ulint_to_string : |
10782 { |
11084 { |
10783 symbol_c *last_type_symbol = NULL; |
11085 symbol_c *last_type_symbol = NULL; |
10784 |
11086 |
10785 { |
11087 { |
|
11088 identifier_c IN_param_name("IN"); |
10786 /* 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 */ |
10787 symbol_c *IN_param_value = &this->default_variable_name; |
11090 symbol_c *IN_param_value = &this->default_variable_name; |
10788 |
11091 |
10789 symbol_c *IN_type_symbol = param_data_type; |
11092 symbol_c *IN_type_symbol = param_data_type; |
10790 last_type_symbol = param_data_type; |
11093 last_type_symbol = param_data_type; |
10794 |
11097 |
10795 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
11098 function_name = (symbol_c*)(new pragma_c("__uint_to_string")); |
10796 |
11099 |
10797 if (IN_type_symbol == NULL) |
11100 if (IN_type_symbol == NULL) |
10798 IN_type_symbol = last_type_symbol; |
11101 IN_type_symbol = last_type_symbol; |
10799 ADD_PARAM_LIST(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) |
10800 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; |
10801 function_type_prefix = return_type_symbol; |
11104 function_type_prefix = return_type_symbol; |
10802 break; |
11105 break; |
10803 |
11106 |
10804 } |
11107 } |
10816 case function_ulint_to_lword : |
11119 case function_ulint_to_lword : |
10817 { |
11120 { |
10818 symbol_c *last_type_symbol = NULL; |
11121 symbol_c *last_type_symbol = NULL; |
10819 |
11122 |
10820 { |
11123 { |
|
11124 identifier_c IN_param_name("IN"); |
10821 /* 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 */ |
10822 symbol_c *IN_param_value = &this->default_variable_name; |
11126 symbol_c *IN_param_value = &this->default_variable_name; |
10823 |
11127 |
10824 symbol_c *IN_type_symbol = param_data_type; |
11128 symbol_c *IN_type_symbol = param_data_type; |
10825 last_type_symbol = param_data_type; |
11129 last_type_symbol = param_data_type; |
10829 |
11133 |
10830 function_name = (symbol_c*)(new pragma_c("__move_")); |
11134 function_name = (symbol_c*)(new pragma_c("__move_")); |
10831 |
11135 |
10832 if (IN_type_symbol == NULL) |
11136 if (IN_type_symbol == NULL) |
10833 IN_type_symbol = last_type_symbol; |
11137 IN_type_symbol = last_type_symbol; |
10834 ADD_PARAM_LIST(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) |
10835 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; |
10836 function_type_prefix = return_type_symbol; |
11140 function_type_prefix = return_type_symbol; |
10837 function_type_suffix = IN_type_symbol; |
11141 function_type_suffix = IN_type_symbol; |
10838 break; |
11142 break; |
10839 |
11143 |
10852 case function_ulint_to_uint : |
11156 case function_ulint_to_uint : |
10853 { |
11157 { |
10854 symbol_c *last_type_symbol = NULL; |
11158 symbol_c *last_type_symbol = NULL; |
10855 |
11159 |
10856 { |
11160 { |
|
11161 identifier_c IN_param_name("IN"); |
10857 /* 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 */ |
10858 symbol_c *IN_param_value = &this->default_variable_name; |
11163 symbol_c *IN_param_value = &this->default_variable_name; |
10859 |
11164 |
10860 symbol_c *IN_type_symbol = param_data_type; |
11165 symbol_c *IN_type_symbol = param_data_type; |
10861 last_type_symbol = param_data_type; |
11166 last_type_symbol = param_data_type; |
10865 |
11170 |
10866 function_name = (symbol_c*)(new pragma_c("__move_")); |
11171 function_name = (symbol_c*)(new pragma_c("__move_")); |
10867 |
11172 |
10868 if (IN_type_symbol == NULL) |
11173 if (IN_type_symbol == NULL) |
10869 IN_type_symbol = last_type_symbol; |
11174 IN_type_symbol = last_type_symbol; |
10870 ADD_PARAM_LIST(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) |
10871 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; |
10872 function_type_prefix = return_type_symbol; |
11177 function_type_prefix = return_type_symbol; |
10873 function_type_suffix = IN_type_symbol; |
11178 function_type_suffix = IN_type_symbol; |
10874 break; |
11179 break; |
10875 |
11180 |
10888 case function_ulint_to_lreal : |
11193 case function_ulint_to_lreal : |
10889 { |
11194 { |
10890 symbol_c *last_type_symbol = NULL; |
11195 symbol_c *last_type_symbol = NULL; |
10891 |
11196 |
10892 { |
11197 { |
|
11198 identifier_c IN_param_name("IN"); |
10893 /* 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 */ |
10894 symbol_c *IN_param_value = &this->default_variable_name; |
11200 symbol_c *IN_param_value = &this->default_variable_name; |
10895 |
11201 |
10896 symbol_c *IN_type_symbol = param_data_type; |
11202 symbol_c *IN_type_symbol = param_data_type; |
10897 last_type_symbol = param_data_type; |
11203 last_type_symbol = param_data_type; |
10901 |
11207 |
10902 function_name = (symbol_c*)(new pragma_c("__move_")); |
11208 function_name = (symbol_c*)(new pragma_c("__move_")); |
10903 |
11209 |
10904 if (IN_type_symbol == NULL) |
11210 if (IN_type_symbol == NULL) |
10905 IN_type_symbol = last_type_symbol; |
11211 IN_type_symbol = last_type_symbol; |
10906 ADD_PARAM_LIST(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) |
10907 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; |
10908 function_type_prefix = return_type_symbol; |
11214 function_type_prefix = return_type_symbol; |
10909 function_type_suffix = IN_type_symbol; |
11215 function_type_suffix = IN_type_symbol; |
10910 break; |
11216 break; |
10911 |
11217 |
10924 case function_ulint_to_byte : |
11230 case function_ulint_to_byte : |
10925 { |
11231 { |
10926 symbol_c *last_type_symbol = NULL; |
11232 symbol_c *last_type_symbol = NULL; |
10927 |
11233 |
10928 { |
11234 { |
|
11235 identifier_c IN_param_name("IN"); |
10929 /* 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 */ |
10930 symbol_c *IN_param_value = &this->default_variable_name; |
11237 symbol_c *IN_param_value = &this->default_variable_name; |
10931 |
11238 |
10932 symbol_c *IN_type_symbol = param_data_type; |
11239 symbol_c *IN_type_symbol = param_data_type; |
10933 last_type_symbol = param_data_type; |
11240 last_type_symbol = param_data_type; |
10937 |
11244 |
10938 function_name = (symbol_c*)(new pragma_c("__move_")); |
11245 function_name = (symbol_c*)(new pragma_c("__move_")); |
10939 |
11246 |
10940 if (IN_type_symbol == NULL) |
11247 if (IN_type_symbol == NULL) |
10941 IN_type_symbol = last_type_symbol; |
11248 IN_type_symbol = last_type_symbol; |
10942 ADD_PARAM_LIST(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) |
10943 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; |
10944 function_type_prefix = return_type_symbol; |
11251 function_type_prefix = return_type_symbol; |
10945 function_type_suffix = IN_type_symbol; |
11252 function_type_suffix = IN_type_symbol; |
10946 break; |
11253 break; |
10947 |
11254 |
10960 case function_ulint_to_usint : |
11267 case function_ulint_to_usint : |
10961 { |
11268 { |
10962 symbol_c *last_type_symbol = NULL; |
11269 symbol_c *last_type_symbol = NULL; |
10963 |
11270 |
10964 { |
11271 { |
|
11272 identifier_c IN_param_name("IN"); |
10965 /* 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 */ |
10966 symbol_c *IN_param_value = &this->default_variable_name; |
11274 symbol_c *IN_param_value = &this->default_variable_name; |
10967 |
11275 |
10968 symbol_c *IN_type_symbol = param_data_type; |
11276 symbol_c *IN_type_symbol = param_data_type; |
10969 last_type_symbol = param_data_type; |
11277 last_type_symbol = param_data_type; |
10973 |
11281 |
10974 function_name = (symbol_c*)(new pragma_c("__move_")); |
11282 function_name = (symbol_c*)(new pragma_c("__move_")); |
10975 |
11283 |
10976 if (IN_type_symbol == NULL) |
11284 if (IN_type_symbol == NULL) |
10977 IN_type_symbol = last_type_symbol; |
11285 IN_type_symbol = last_type_symbol; |
10978 ADD_PARAM_LIST(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) |
10979 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; |
10980 function_type_prefix = return_type_symbol; |
11288 function_type_prefix = return_type_symbol; |
10981 function_type_suffix = IN_type_symbol; |
11289 function_type_suffix = IN_type_symbol; |
10982 break; |
11290 break; |
10983 |
11291 |
10996 case function_ulint_to_bool : |
11304 case function_ulint_to_bool : |
10997 { |
11305 { |
10998 symbol_c *last_type_symbol = NULL; |
11306 symbol_c *last_type_symbol = NULL; |
10999 |
11307 |
11000 { |
11308 { |
|
11309 identifier_c IN_param_name("IN"); |
11001 /* 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 */ |
11002 symbol_c *IN_param_value = &this->default_variable_name; |
11311 symbol_c *IN_param_value = &this->default_variable_name; |
11003 |
11312 |
11004 symbol_c *IN_type_symbol = param_data_type; |
11313 symbol_c *IN_type_symbol = param_data_type; |
11005 last_type_symbol = param_data_type; |
11314 last_type_symbol = param_data_type; |
11009 |
11318 |
11010 function_name = (symbol_c*)(new pragma_c("__move_")); |
11319 function_name = (symbol_c*)(new pragma_c("__move_")); |
11011 |
11320 |
11012 if (IN_type_symbol == NULL) |
11321 if (IN_type_symbol == NULL) |
11013 IN_type_symbol = last_type_symbol; |
11322 IN_type_symbol = last_type_symbol; |
11014 ADD_PARAM_LIST(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) |
11015 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; |
11016 function_type_prefix = return_type_symbol; |
11325 function_type_prefix = return_type_symbol; |
11017 function_type_suffix = IN_type_symbol; |
11326 function_type_suffix = IN_type_symbol; |
11018 break; |
11327 break; |
11019 |
11328 |
11032 case function_ulint_to_time : |
11341 case function_ulint_to_time : |
11033 { |
11342 { |
11034 symbol_c *last_type_symbol = NULL; |
11343 symbol_c *last_type_symbol = NULL; |
11035 |
11344 |
11036 { |
11345 { |
|
11346 identifier_c IN_param_name("IN"); |
11037 /* 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 */ |
11038 symbol_c *IN_param_value = &this->default_variable_name; |
11348 symbol_c *IN_param_value = &this->default_variable_name; |
11039 |
11349 |
11040 symbol_c *IN_type_symbol = param_data_type; |
11350 symbol_c *IN_type_symbol = param_data_type; |
11041 last_type_symbol = param_data_type; |
11351 last_type_symbol = param_data_type; |
11045 |
11355 |
11046 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11356 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11047 |
11357 |
11048 if (IN_type_symbol == NULL) |
11358 if (IN_type_symbol == NULL) |
11049 IN_type_symbol = last_type_symbol; |
11359 IN_type_symbol = last_type_symbol; |
11050 ADD_PARAM_LIST(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) |
11051 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; |
11052 function_type_prefix = return_type_symbol; |
11362 function_type_prefix = return_type_symbol; |
11053 break; |
11363 break; |
11054 |
11364 |
11055 } |
11365 } |
11067 case function_ulint_to_int : |
11377 case function_ulint_to_int : |
11068 { |
11378 { |
11069 symbol_c *last_type_symbol = NULL; |
11379 symbol_c *last_type_symbol = NULL; |
11070 |
11380 |
11071 { |
11381 { |
|
11382 identifier_c IN_param_name("IN"); |
11072 /* 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 */ |
11073 symbol_c *IN_param_value = &this->default_variable_name; |
11384 symbol_c *IN_param_value = &this->default_variable_name; |
11074 |
11385 |
11075 symbol_c *IN_type_symbol = param_data_type; |
11386 symbol_c *IN_type_symbol = param_data_type; |
11076 last_type_symbol = param_data_type; |
11387 last_type_symbol = param_data_type; |
11080 |
11391 |
11081 function_name = (symbol_c*)(new pragma_c("__move_")); |
11392 function_name = (symbol_c*)(new pragma_c("__move_")); |
11082 |
11393 |
11083 if (IN_type_symbol == NULL) |
11394 if (IN_type_symbol == NULL) |
11084 IN_type_symbol = last_type_symbol; |
11395 IN_type_symbol = last_type_symbol; |
11085 ADD_PARAM_LIST(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) |
11086 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; |
11087 function_type_prefix = return_type_symbol; |
11398 function_type_prefix = return_type_symbol; |
11088 function_type_suffix = IN_type_symbol; |
11399 function_type_suffix = IN_type_symbol; |
11089 break; |
11400 break; |
11090 |
11401 |
11103 case function_bool_to_real : |
11414 case function_bool_to_real : |
11104 { |
11415 { |
11105 symbol_c *last_type_symbol = NULL; |
11416 symbol_c *last_type_symbol = NULL; |
11106 |
11417 |
11107 { |
11418 { |
|
11419 identifier_c IN_param_name("IN"); |
11108 /* 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 */ |
11109 symbol_c *IN_param_value = &this->default_variable_name; |
11421 symbol_c *IN_param_value = &this->default_variable_name; |
11110 |
11422 |
11111 symbol_c *IN_type_symbol = param_data_type; |
11423 symbol_c *IN_type_symbol = param_data_type; |
11112 last_type_symbol = param_data_type; |
11424 last_type_symbol = param_data_type; |
11116 |
11428 |
11117 function_name = (symbol_c*)(new pragma_c("__move_")); |
11429 function_name = (symbol_c*)(new pragma_c("__move_")); |
11118 |
11430 |
11119 if (IN_type_symbol == NULL) |
11431 if (IN_type_symbol == NULL) |
11120 IN_type_symbol = last_type_symbol; |
11432 IN_type_symbol = last_type_symbol; |
11121 ADD_PARAM_LIST(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) |
11122 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; |
11123 function_type_prefix = return_type_symbol; |
11435 function_type_prefix = return_type_symbol; |
11124 function_type_suffix = IN_type_symbol; |
11436 function_type_suffix = IN_type_symbol; |
11125 break; |
11437 break; |
11126 |
11438 |
11139 case function_bool_to_sint : |
11451 case function_bool_to_sint : |
11140 { |
11452 { |
11141 symbol_c *last_type_symbol = NULL; |
11453 symbol_c *last_type_symbol = NULL; |
11142 |
11454 |
11143 { |
11455 { |
|
11456 identifier_c IN_param_name("IN"); |
11144 /* 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 */ |
11145 symbol_c *IN_param_value = &this->default_variable_name; |
11458 symbol_c *IN_param_value = &this->default_variable_name; |
11146 |
11459 |
11147 symbol_c *IN_type_symbol = param_data_type; |
11460 symbol_c *IN_type_symbol = param_data_type; |
11148 last_type_symbol = param_data_type; |
11461 last_type_symbol = param_data_type; |
11152 |
11465 |
11153 function_name = (symbol_c*)(new pragma_c("__move_")); |
11466 function_name = (symbol_c*)(new pragma_c("__move_")); |
11154 |
11467 |
11155 if (IN_type_symbol == NULL) |
11468 if (IN_type_symbol == NULL) |
11156 IN_type_symbol = last_type_symbol; |
11469 IN_type_symbol = last_type_symbol; |
11157 ADD_PARAM_LIST(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) |
11158 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; |
11159 function_type_prefix = return_type_symbol; |
11472 function_type_prefix = return_type_symbol; |
11160 function_type_suffix = IN_type_symbol; |
11473 function_type_suffix = IN_type_symbol; |
11161 break; |
11474 break; |
11162 |
11475 |
11175 case function_bool_to_lint : |
11488 case function_bool_to_lint : |
11176 { |
11489 { |
11177 symbol_c *last_type_symbol = NULL; |
11490 symbol_c *last_type_symbol = NULL; |
11178 |
11491 |
11179 { |
11492 { |
|
11493 identifier_c IN_param_name("IN"); |
11180 /* 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 */ |
11181 symbol_c *IN_param_value = &this->default_variable_name; |
11495 symbol_c *IN_param_value = &this->default_variable_name; |
11182 |
11496 |
11183 symbol_c *IN_type_symbol = param_data_type; |
11497 symbol_c *IN_type_symbol = param_data_type; |
11184 last_type_symbol = param_data_type; |
11498 last_type_symbol = param_data_type; |
11188 |
11502 |
11189 function_name = (symbol_c*)(new pragma_c("__move_")); |
11503 function_name = (symbol_c*)(new pragma_c("__move_")); |
11190 |
11504 |
11191 if (IN_type_symbol == NULL) |
11505 if (IN_type_symbol == NULL) |
11192 IN_type_symbol = last_type_symbol; |
11506 IN_type_symbol = last_type_symbol; |
11193 ADD_PARAM_LIST(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) |
11194 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; |
11195 function_type_prefix = return_type_symbol; |
11509 function_type_prefix = return_type_symbol; |
11196 function_type_suffix = IN_type_symbol; |
11510 function_type_suffix = IN_type_symbol; |
11197 break; |
11511 break; |
11198 |
11512 |
11211 case function_bool_to_dint : |
11525 case function_bool_to_dint : |
11212 { |
11526 { |
11213 symbol_c *last_type_symbol = NULL; |
11527 symbol_c *last_type_symbol = NULL; |
11214 |
11528 |
11215 { |
11529 { |
|
11530 identifier_c IN_param_name("IN"); |
11216 /* 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 */ |
11217 symbol_c *IN_param_value = &this->default_variable_name; |
11532 symbol_c *IN_param_value = &this->default_variable_name; |
11218 |
11533 |
11219 symbol_c *IN_type_symbol = param_data_type; |
11534 symbol_c *IN_type_symbol = param_data_type; |
11220 last_type_symbol = param_data_type; |
11535 last_type_symbol = param_data_type; |
11224 |
11539 |
11225 function_name = (symbol_c*)(new pragma_c("__move_")); |
11540 function_name = (symbol_c*)(new pragma_c("__move_")); |
11226 |
11541 |
11227 if (IN_type_symbol == NULL) |
11542 if (IN_type_symbol == NULL) |
11228 IN_type_symbol = last_type_symbol; |
11543 IN_type_symbol = last_type_symbol; |
11229 ADD_PARAM_LIST(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) |
11230 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; |
11231 function_type_prefix = return_type_symbol; |
11546 function_type_prefix = return_type_symbol; |
11232 function_type_suffix = IN_type_symbol; |
11547 function_type_suffix = IN_type_symbol; |
11233 break; |
11548 break; |
11234 |
11549 |
11247 case function_bool_to_date : |
11562 case function_bool_to_date : |
11248 { |
11563 { |
11249 symbol_c *last_type_symbol = NULL; |
11564 symbol_c *last_type_symbol = NULL; |
11250 |
11565 |
11251 { |
11566 { |
|
11567 identifier_c IN_param_name("IN"); |
11252 /* 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 */ |
11253 symbol_c *IN_param_value = &this->default_variable_name; |
11569 symbol_c *IN_param_value = &this->default_variable_name; |
11254 |
11570 |
11255 symbol_c *IN_type_symbol = param_data_type; |
11571 symbol_c *IN_type_symbol = param_data_type; |
11256 last_type_symbol = param_data_type; |
11572 last_type_symbol = param_data_type; |
11260 |
11576 |
11261 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11577 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11262 |
11578 |
11263 if (IN_type_symbol == NULL) |
11579 if (IN_type_symbol == NULL) |
11264 IN_type_symbol = last_type_symbol; |
11580 IN_type_symbol = last_type_symbol; |
11265 ADD_PARAM_LIST(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) |
11266 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; |
11267 function_type_prefix = return_type_symbol; |
11583 function_type_prefix = return_type_symbol; |
11268 break; |
11584 break; |
11269 |
11585 |
11270 } |
11586 } |
11282 case function_bool_to_dword : |
11598 case function_bool_to_dword : |
11283 { |
11599 { |
11284 symbol_c *last_type_symbol = NULL; |
11600 symbol_c *last_type_symbol = NULL; |
11285 |
11601 |
11286 { |
11602 { |
|
11603 identifier_c IN_param_name("IN"); |
11287 /* 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 */ |
11288 symbol_c *IN_param_value = &this->default_variable_name; |
11605 symbol_c *IN_param_value = &this->default_variable_name; |
11289 |
11606 |
11290 symbol_c *IN_type_symbol = param_data_type; |
11607 symbol_c *IN_type_symbol = param_data_type; |
11291 last_type_symbol = param_data_type; |
11608 last_type_symbol = param_data_type; |
11295 |
11612 |
11296 function_name = (symbol_c*)(new pragma_c("__move_")); |
11613 function_name = (symbol_c*)(new pragma_c("__move_")); |
11297 |
11614 |
11298 if (IN_type_symbol == NULL) |
11615 if (IN_type_symbol == NULL) |
11299 IN_type_symbol = last_type_symbol; |
11616 IN_type_symbol = last_type_symbol; |
11300 ADD_PARAM_LIST(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) |
11301 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; |
11302 function_type_prefix = return_type_symbol; |
11619 function_type_prefix = return_type_symbol; |
11303 function_type_suffix = IN_type_symbol; |
11620 function_type_suffix = IN_type_symbol; |
11304 break; |
11621 break; |
11305 |
11622 |
11318 case function_bool_to_dt : |
11635 case function_bool_to_dt : |
11319 { |
11636 { |
11320 symbol_c *last_type_symbol = NULL; |
11637 symbol_c *last_type_symbol = NULL; |
11321 |
11638 |
11322 { |
11639 { |
|
11640 identifier_c IN_param_name("IN"); |
11323 /* 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 */ |
11324 symbol_c *IN_param_value = &this->default_variable_name; |
11642 symbol_c *IN_param_value = &this->default_variable_name; |
11325 |
11643 |
11326 symbol_c *IN_type_symbol = param_data_type; |
11644 symbol_c *IN_type_symbol = param_data_type; |
11327 last_type_symbol = param_data_type; |
11645 last_type_symbol = param_data_type; |
11331 |
11649 |
11332 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11650 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11333 |
11651 |
11334 if (IN_type_symbol == NULL) |
11652 if (IN_type_symbol == NULL) |
11335 IN_type_symbol = last_type_symbol; |
11653 IN_type_symbol = last_type_symbol; |
11336 ADD_PARAM_LIST(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) |
11337 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; |
11338 function_type_prefix = return_type_symbol; |
11656 function_type_prefix = return_type_symbol; |
11339 break; |
11657 break; |
11340 |
11658 |
11341 } |
11659 } |
11353 case function_bool_to_tod : |
11671 case function_bool_to_tod : |
11354 { |
11672 { |
11355 symbol_c *last_type_symbol = NULL; |
11673 symbol_c *last_type_symbol = NULL; |
11356 |
11674 |
11357 { |
11675 { |
|
11676 identifier_c IN_param_name("IN"); |
11358 /* 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 */ |
11359 symbol_c *IN_param_value = &this->default_variable_name; |
11678 symbol_c *IN_param_value = &this->default_variable_name; |
11360 |
11679 |
11361 symbol_c *IN_type_symbol = param_data_type; |
11680 symbol_c *IN_type_symbol = param_data_type; |
11362 last_type_symbol = param_data_type; |
11681 last_type_symbol = param_data_type; |
11366 |
11685 |
11367 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11686 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11368 |
11687 |
11369 if (IN_type_symbol == NULL) |
11688 if (IN_type_symbol == NULL) |
11370 IN_type_symbol = last_type_symbol; |
11689 IN_type_symbol = last_type_symbol; |
11371 ADD_PARAM_LIST(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) |
11372 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; |
11373 function_type_prefix = return_type_symbol; |
11692 function_type_prefix = return_type_symbol; |
11374 break; |
11693 break; |
11375 |
11694 |
11376 } |
11695 } |
11388 case function_bool_to_udint : |
11707 case function_bool_to_udint : |
11389 { |
11708 { |
11390 symbol_c *last_type_symbol = NULL; |
11709 symbol_c *last_type_symbol = NULL; |
11391 |
11710 |
11392 { |
11711 { |
|
11712 identifier_c IN_param_name("IN"); |
11393 /* 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 */ |
11394 symbol_c *IN_param_value = &this->default_variable_name; |
11714 symbol_c *IN_param_value = &this->default_variable_name; |
11395 |
11715 |
11396 symbol_c *IN_type_symbol = param_data_type; |
11716 symbol_c *IN_type_symbol = param_data_type; |
11397 last_type_symbol = param_data_type; |
11717 last_type_symbol = param_data_type; |
11401 |
11721 |
11402 function_name = (symbol_c*)(new pragma_c("__move_")); |
11722 function_name = (symbol_c*)(new pragma_c("__move_")); |
11403 |
11723 |
11404 if (IN_type_symbol == NULL) |
11724 if (IN_type_symbol == NULL) |
11405 IN_type_symbol = last_type_symbol; |
11725 IN_type_symbol = last_type_symbol; |
11406 ADD_PARAM_LIST(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) |
11407 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; |
11408 function_type_prefix = return_type_symbol; |
11728 function_type_prefix = return_type_symbol; |
11409 function_type_suffix = IN_type_symbol; |
11729 function_type_suffix = IN_type_symbol; |
11410 break; |
11730 break; |
11411 |
11731 |
11424 case function_bool_to_word : |
11744 case function_bool_to_word : |
11425 { |
11745 { |
11426 symbol_c *last_type_symbol = NULL; |
11746 symbol_c *last_type_symbol = NULL; |
11427 |
11747 |
11428 { |
11748 { |
|
11749 identifier_c IN_param_name("IN"); |
11429 /* 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 */ |
11430 symbol_c *IN_param_value = &this->default_variable_name; |
11751 symbol_c *IN_param_value = &this->default_variable_name; |
11431 |
11752 |
11432 symbol_c *IN_type_symbol = param_data_type; |
11753 symbol_c *IN_type_symbol = param_data_type; |
11433 last_type_symbol = param_data_type; |
11754 last_type_symbol = param_data_type; |
11437 |
11758 |
11438 function_name = (symbol_c*)(new pragma_c("__move_")); |
11759 function_name = (symbol_c*)(new pragma_c("__move_")); |
11439 |
11760 |
11440 if (IN_type_symbol == NULL) |
11761 if (IN_type_symbol == NULL) |
11441 IN_type_symbol = last_type_symbol; |
11762 IN_type_symbol = last_type_symbol; |
11442 ADD_PARAM_LIST(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) |
11443 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; |
11444 function_type_prefix = return_type_symbol; |
11765 function_type_prefix = return_type_symbol; |
11445 function_type_suffix = IN_type_symbol; |
11766 function_type_suffix = IN_type_symbol; |
11446 break; |
11767 break; |
11447 |
11768 |
11460 case function_bool_to_string : |
11781 case function_bool_to_string : |
11461 { |
11782 { |
11462 symbol_c *last_type_symbol = NULL; |
11783 symbol_c *last_type_symbol = NULL; |
11463 |
11784 |
11464 { |
11785 { |
|
11786 identifier_c IN_param_name("IN"); |
11465 /* 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 */ |
11466 symbol_c *IN_param_value = &this->default_variable_name; |
11788 symbol_c *IN_param_value = &this->default_variable_name; |
11467 |
11789 |
11468 symbol_c *IN_type_symbol = param_data_type; |
11790 symbol_c *IN_type_symbol = param_data_type; |
11469 last_type_symbol = param_data_type; |
11791 last_type_symbol = param_data_type; |
11473 |
11795 |
11474 function_name = (symbol_c*)(new pragma_c("__bool_to_string")); |
11796 function_name = (symbol_c*)(new pragma_c("__bool_to_string")); |
11475 |
11797 |
11476 if (IN_type_symbol == NULL) |
11798 if (IN_type_symbol == NULL) |
11477 IN_type_symbol = last_type_symbol; |
11799 IN_type_symbol = last_type_symbol; |
11478 ADD_PARAM_LIST(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) |
11479 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; |
11480 function_type_prefix = return_type_symbol; |
11802 function_type_prefix = return_type_symbol; |
11481 break; |
11803 break; |
11482 |
11804 |
11483 } |
11805 } |
11495 case function_bool_to_lword : |
11817 case function_bool_to_lword : |
11496 { |
11818 { |
11497 symbol_c *last_type_symbol = NULL; |
11819 symbol_c *last_type_symbol = NULL; |
11498 |
11820 |
11499 { |
11821 { |
|
11822 identifier_c IN_param_name("IN"); |
11500 /* 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 */ |
11501 symbol_c *IN_param_value = &this->default_variable_name; |
11824 symbol_c *IN_param_value = &this->default_variable_name; |
11502 |
11825 |
11503 symbol_c *IN_type_symbol = param_data_type; |
11826 symbol_c *IN_type_symbol = param_data_type; |
11504 last_type_symbol = param_data_type; |
11827 last_type_symbol = param_data_type; |
11508 |
11831 |
11509 function_name = (symbol_c*)(new pragma_c("__move_")); |
11832 function_name = (symbol_c*)(new pragma_c("__move_")); |
11510 |
11833 |
11511 if (IN_type_symbol == NULL) |
11834 if (IN_type_symbol == NULL) |
11512 IN_type_symbol = last_type_symbol; |
11835 IN_type_symbol = last_type_symbol; |
11513 ADD_PARAM_LIST(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) |
11514 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; |
11515 function_type_prefix = return_type_symbol; |
11838 function_type_prefix = return_type_symbol; |
11516 function_type_suffix = IN_type_symbol; |
11839 function_type_suffix = IN_type_symbol; |
11517 break; |
11840 break; |
11518 |
11841 |
11531 case function_bool_to_uint : |
11854 case function_bool_to_uint : |
11532 { |
11855 { |
11533 symbol_c *last_type_symbol = NULL; |
11856 symbol_c *last_type_symbol = NULL; |
11534 |
11857 |
11535 { |
11858 { |
|
11859 identifier_c IN_param_name("IN"); |
11536 /* 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 */ |
11537 symbol_c *IN_param_value = &this->default_variable_name; |
11861 symbol_c *IN_param_value = &this->default_variable_name; |
11538 |
11862 |
11539 symbol_c *IN_type_symbol = param_data_type; |
11863 symbol_c *IN_type_symbol = param_data_type; |
11540 last_type_symbol = param_data_type; |
11864 last_type_symbol = param_data_type; |
11544 |
11868 |
11545 function_name = (symbol_c*)(new pragma_c("__move_")); |
11869 function_name = (symbol_c*)(new pragma_c("__move_")); |
11546 |
11870 |
11547 if (IN_type_symbol == NULL) |
11871 if (IN_type_symbol == NULL) |
11548 IN_type_symbol = last_type_symbol; |
11872 IN_type_symbol = last_type_symbol; |
11549 ADD_PARAM_LIST(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) |
11550 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; |
11551 function_type_prefix = return_type_symbol; |
11875 function_type_prefix = return_type_symbol; |
11552 function_type_suffix = IN_type_symbol; |
11876 function_type_suffix = IN_type_symbol; |
11553 break; |
11877 break; |
11554 |
11878 |
11567 case function_bool_to_lreal : |
11891 case function_bool_to_lreal : |
11568 { |
11892 { |
11569 symbol_c *last_type_symbol = NULL; |
11893 symbol_c *last_type_symbol = NULL; |
11570 |
11894 |
11571 { |
11895 { |
|
11896 identifier_c IN_param_name("IN"); |
11572 /* 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 */ |
11573 symbol_c *IN_param_value = &this->default_variable_name; |
11898 symbol_c *IN_param_value = &this->default_variable_name; |
11574 |
11899 |
11575 symbol_c *IN_type_symbol = param_data_type; |
11900 symbol_c *IN_type_symbol = param_data_type; |
11576 last_type_symbol = param_data_type; |
11901 last_type_symbol = param_data_type; |
11580 |
11905 |
11581 function_name = (symbol_c*)(new pragma_c("__move_")); |
11906 function_name = (symbol_c*)(new pragma_c("__move_")); |
11582 |
11907 |
11583 if (IN_type_symbol == NULL) |
11908 if (IN_type_symbol == NULL) |
11584 IN_type_symbol = last_type_symbol; |
11909 IN_type_symbol = last_type_symbol; |
11585 ADD_PARAM_LIST(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) |
11586 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; |
11587 function_type_prefix = return_type_symbol; |
11912 function_type_prefix = return_type_symbol; |
11588 function_type_suffix = IN_type_symbol; |
11913 function_type_suffix = IN_type_symbol; |
11589 break; |
11914 break; |
11590 |
11915 |
11603 case function_bool_to_byte : |
11928 case function_bool_to_byte : |
11604 { |
11929 { |
11605 symbol_c *last_type_symbol = NULL; |
11930 symbol_c *last_type_symbol = NULL; |
11606 |
11931 |
11607 { |
11932 { |
|
11933 identifier_c IN_param_name("IN"); |
11608 /* 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 */ |
11609 symbol_c *IN_param_value = &this->default_variable_name; |
11935 symbol_c *IN_param_value = &this->default_variable_name; |
11610 |
11936 |
11611 symbol_c *IN_type_symbol = param_data_type; |
11937 symbol_c *IN_type_symbol = param_data_type; |
11612 last_type_symbol = param_data_type; |
11938 last_type_symbol = param_data_type; |
11616 |
11942 |
11617 function_name = (symbol_c*)(new pragma_c("__move_")); |
11943 function_name = (symbol_c*)(new pragma_c("__move_")); |
11618 |
11944 |
11619 if (IN_type_symbol == NULL) |
11945 if (IN_type_symbol == NULL) |
11620 IN_type_symbol = last_type_symbol; |
11946 IN_type_symbol = last_type_symbol; |
11621 ADD_PARAM_LIST(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) |
11622 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; |
11623 function_type_prefix = return_type_symbol; |
11949 function_type_prefix = return_type_symbol; |
11624 function_type_suffix = IN_type_symbol; |
11950 function_type_suffix = IN_type_symbol; |
11625 break; |
11951 break; |
11626 |
11952 |
11639 case function_bool_to_usint : |
11965 case function_bool_to_usint : |
11640 { |
11966 { |
11641 symbol_c *last_type_symbol = NULL; |
11967 symbol_c *last_type_symbol = NULL; |
11642 |
11968 |
11643 { |
11969 { |
|
11970 identifier_c IN_param_name("IN"); |
11644 /* 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 */ |
11645 symbol_c *IN_param_value = &this->default_variable_name; |
11972 symbol_c *IN_param_value = &this->default_variable_name; |
11646 |
11973 |
11647 symbol_c *IN_type_symbol = param_data_type; |
11974 symbol_c *IN_type_symbol = param_data_type; |
11648 last_type_symbol = param_data_type; |
11975 last_type_symbol = param_data_type; |
11652 |
11979 |
11653 function_name = (symbol_c*)(new pragma_c("__move_")); |
11980 function_name = (symbol_c*)(new pragma_c("__move_")); |
11654 |
11981 |
11655 if (IN_type_symbol == NULL) |
11982 if (IN_type_symbol == NULL) |
11656 IN_type_symbol = last_type_symbol; |
11983 IN_type_symbol = last_type_symbol; |
11657 ADD_PARAM_LIST(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) |
11658 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; |
11659 function_type_prefix = return_type_symbol; |
11986 function_type_prefix = return_type_symbol; |
11660 function_type_suffix = IN_type_symbol; |
11987 function_type_suffix = IN_type_symbol; |
11661 break; |
11988 break; |
11662 |
11989 |
11675 case function_bool_to_ulint : |
12002 case function_bool_to_ulint : |
11676 { |
12003 { |
11677 symbol_c *last_type_symbol = NULL; |
12004 symbol_c *last_type_symbol = NULL; |
11678 |
12005 |
11679 { |
12006 { |
|
12007 identifier_c IN_param_name("IN"); |
11680 /* 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 */ |
11681 symbol_c *IN_param_value = &this->default_variable_name; |
12009 symbol_c *IN_param_value = &this->default_variable_name; |
11682 |
12010 |
11683 symbol_c *IN_type_symbol = param_data_type; |
12011 symbol_c *IN_type_symbol = param_data_type; |
11684 last_type_symbol = param_data_type; |
12012 last_type_symbol = param_data_type; |
11688 |
12016 |
11689 function_name = (symbol_c*)(new pragma_c("__move_")); |
12017 function_name = (symbol_c*)(new pragma_c("__move_")); |
11690 |
12018 |
11691 if (IN_type_symbol == NULL) |
12019 if (IN_type_symbol == NULL) |
11692 IN_type_symbol = last_type_symbol; |
12020 IN_type_symbol = last_type_symbol; |
11693 ADD_PARAM_LIST(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) |
11694 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; |
11695 function_type_prefix = return_type_symbol; |
12023 function_type_prefix = return_type_symbol; |
11696 function_type_suffix = IN_type_symbol; |
12024 function_type_suffix = IN_type_symbol; |
11697 break; |
12025 break; |
11698 |
12026 |
11711 case function_bool_to_time : |
12039 case function_bool_to_time : |
11712 { |
12040 { |
11713 symbol_c *last_type_symbol = NULL; |
12041 symbol_c *last_type_symbol = NULL; |
11714 |
12042 |
11715 { |
12043 { |
|
12044 identifier_c IN_param_name("IN"); |
11716 /* 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 */ |
11717 symbol_c *IN_param_value = &this->default_variable_name; |
12046 symbol_c *IN_param_value = &this->default_variable_name; |
11718 |
12047 |
11719 symbol_c *IN_type_symbol = param_data_type; |
12048 symbol_c *IN_type_symbol = param_data_type; |
11720 last_type_symbol = param_data_type; |
12049 last_type_symbol = param_data_type; |
11724 |
12053 |
11725 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12054 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
11726 |
12055 |
11727 if (IN_type_symbol == NULL) |
12056 if (IN_type_symbol == NULL) |
11728 IN_type_symbol = last_type_symbol; |
12057 IN_type_symbol = last_type_symbol; |
11729 ADD_PARAM_LIST(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) |
11730 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; |
11731 function_type_prefix = return_type_symbol; |
12060 function_type_prefix = return_type_symbol; |
11732 break; |
12061 break; |
11733 |
12062 |
11734 } |
12063 } |
11746 case function_bool_to_int : |
12075 case function_bool_to_int : |
11747 { |
12076 { |
11748 symbol_c *last_type_symbol = NULL; |
12077 symbol_c *last_type_symbol = NULL; |
11749 |
12078 |
11750 { |
12079 { |
|
12080 identifier_c IN_param_name("IN"); |
11751 /* 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 */ |
11752 symbol_c *IN_param_value = &this->default_variable_name; |
12082 symbol_c *IN_param_value = &this->default_variable_name; |
11753 |
12083 |
11754 symbol_c *IN_type_symbol = param_data_type; |
12084 symbol_c *IN_type_symbol = param_data_type; |
11755 last_type_symbol = param_data_type; |
12085 last_type_symbol = param_data_type; |
11759 |
12089 |
11760 function_name = (symbol_c*)(new pragma_c("__move_")); |
12090 function_name = (symbol_c*)(new pragma_c("__move_")); |
11761 |
12091 |
11762 if (IN_type_symbol == NULL) |
12092 if (IN_type_symbol == NULL) |
11763 IN_type_symbol = last_type_symbol; |
12093 IN_type_symbol = last_type_symbol; |
11764 ADD_PARAM_LIST(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) |
11765 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; |
11766 function_type_prefix = return_type_symbol; |
12096 function_type_prefix = return_type_symbol; |
11767 function_type_suffix = IN_type_symbol; |
12097 function_type_suffix = IN_type_symbol; |
11768 break; |
12098 break; |
11769 |
12099 |
11782 case function_time_to_real : |
12112 case function_time_to_real : |
11783 { |
12113 { |
11784 symbol_c *last_type_symbol = NULL; |
12114 symbol_c *last_type_symbol = NULL; |
11785 |
12115 |
11786 { |
12116 { |
|
12117 identifier_c IN_param_name("IN"); |
11787 /* 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 */ |
11788 symbol_c *IN_param_value = &this->default_variable_name; |
12119 symbol_c *IN_param_value = &this->default_variable_name; |
11789 |
12120 |
11790 symbol_c *IN_type_symbol = param_data_type; |
12121 symbol_c *IN_type_symbol = param_data_type; |
11791 last_type_symbol = param_data_type; |
12122 last_type_symbol = param_data_type; |
11795 |
12126 |
11796 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
12127 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
11797 |
12128 |
11798 if (IN_type_symbol == NULL) |
12129 if (IN_type_symbol == NULL) |
11799 IN_type_symbol = last_type_symbol; |
12130 IN_type_symbol = last_type_symbol; |
11800 ADD_PARAM_LIST(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) |
11801 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; |
11802 function_type_prefix = return_type_symbol; |
12133 function_type_prefix = return_type_symbol; |
11803 break; |
12134 break; |
11804 |
12135 |
11805 } |
12136 } |
11817 case function_time_to_sint : |
12148 case function_time_to_sint : |
11818 { |
12149 { |
11819 symbol_c *last_type_symbol = NULL; |
12150 symbol_c *last_type_symbol = NULL; |
11820 |
12151 |
11821 { |
12152 { |
|
12153 identifier_c IN_param_name("IN"); |
11822 /* 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 */ |
11823 symbol_c *IN_param_value = &this->default_variable_name; |
12155 symbol_c *IN_param_value = &this->default_variable_name; |
11824 |
12156 |
11825 symbol_c *IN_type_symbol = param_data_type; |
12157 symbol_c *IN_type_symbol = param_data_type; |
11826 last_type_symbol = param_data_type; |
12158 last_type_symbol = param_data_type; |
11830 |
12162 |
11831 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12163 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
11832 |
12164 |
11833 if (IN_type_symbol == NULL) |
12165 if (IN_type_symbol == NULL) |
11834 IN_type_symbol = last_type_symbol; |
12166 IN_type_symbol = last_type_symbol; |
11835 ADD_PARAM_LIST(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) |
11836 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; |
11837 function_type_prefix = return_type_symbol; |
12169 function_type_prefix = return_type_symbol; |
11838 break; |
12170 break; |
11839 |
12171 |
11840 } |
12172 } |
11852 case function_time_to_lint : |
12184 case function_time_to_lint : |
11853 { |
12185 { |
11854 symbol_c *last_type_symbol = NULL; |
12186 symbol_c *last_type_symbol = NULL; |
11855 |
12187 |
11856 { |
12188 { |
|
12189 identifier_c IN_param_name("IN"); |
11857 /* 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 */ |
11858 symbol_c *IN_param_value = &this->default_variable_name; |
12191 symbol_c *IN_param_value = &this->default_variable_name; |
11859 |
12192 |
11860 symbol_c *IN_type_symbol = param_data_type; |
12193 symbol_c *IN_type_symbol = param_data_type; |
11861 last_type_symbol = param_data_type; |
12194 last_type_symbol = param_data_type; |
11865 |
12198 |
11866 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12199 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
11867 |
12200 |
11868 if (IN_type_symbol == NULL) |
12201 if (IN_type_symbol == NULL) |
11869 IN_type_symbol = last_type_symbol; |
12202 IN_type_symbol = last_type_symbol; |
11870 ADD_PARAM_LIST(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) |
11871 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; |
11872 function_type_prefix = return_type_symbol; |
12205 function_type_prefix = return_type_symbol; |
11873 break; |
12206 break; |
11874 |
12207 |
11875 } |
12208 } |
11887 case function_time_to_dint : |
12220 case function_time_to_dint : |
11888 { |
12221 { |
11889 symbol_c *last_type_symbol = NULL; |
12222 symbol_c *last_type_symbol = NULL; |
11890 |
12223 |
11891 { |
12224 { |
|
12225 identifier_c IN_param_name("IN"); |
11892 /* 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 */ |
11893 symbol_c *IN_param_value = &this->default_variable_name; |
12227 symbol_c *IN_param_value = &this->default_variable_name; |
11894 |
12228 |
11895 symbol_c *IN_type_symbol = param_data_type; |
12229 symbol_c *IN_type_symbol = param_data_type; |
11896 last_type_symbol = param_data_type; |
12230 last_type_symbol = param_data_type; |
11900 |
12234 |
11901 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12235 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
11902 |
12236 |
11903 if (IN_type_symbol == NULL) |
12237 if (IN_type_symbol == NULL) |
11904 IN_type_symbol = last_type_symbol; |
12238 IN_type_symbol = last_type_symbol; |
11905 ADD_PARAM_LIST(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) |
11906 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; |
11907 function_type_prefix = return_type_symbol; |
12241 function_type_prefix = return_type_symbol; |
11908 break; |
12242 break; |
11909 |
12243 |
11910 } |
12244 } |
11922 case function_time_to_dword : |
12256 case function_time_to_dword : |
11923 { |
12257 { |
11924 symbol_c *last_type_symbol = NULL; |
12258 symbol_c *last_type_symbol = NULL; |
11925 |
12259 |
11926 { |
12260 { |
|
12261 identifier_c IN_param_name("IN"); |
11927 /* 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 */ |
11928 symbol_c *IN_param_value = &this->default_variable_name; |
12263 symbol_c *IN_param_value = &this->default_variable_name; |
11929 |
12264 |
11930 symbol_c *IN_type_symbol = param_data_type; |
12265 symbol_c *IN_type_symbol = param_data_type; |
11931 last_type_symbol = param_data_type; |
12266 last_type_symbol = param_data_type; |
11935 |
12270 |
11936 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12271 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
11937 |
12272 |
11938 if (IN_type_symbol == NULL) |
12273 if (IN_type_symbol == NULL) |
11939 IN_type_symbol = last_type_symbol; |
12274 IN_type_symbol = last_type_symbol; |
11940 ADD_PARAM_LIST(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) |
11941 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; |
11942 function_type_prefix = return_type_symbol; |
12277 function_type_prefix = return_type_symbol; |
11943 break; |
12278 break; |
11944 |
12279 |
11945 } |
12280 } |
11957 case function_time_to_udint : |
12292 case function_time_to_udint : |
11958 { |
12293 { |
11959 symbol_c *last_type_symbol = NULL; |
12294 symbol_c *last_type_symbol = NULL; |
11960 |
12295 |
11961 { |
12296 { |
|
12297 identifier_c IN_param_name("IN"); |
11962 /* 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 */ |
11963 symbol_c *IN_param_value = &this->default_variable_name; |
12299 symbol_c *IN_param_value = &this->default_variable_name; |
11964 |
12300 |
11965 symbol_c *IN_type_symbol = param_data_type; |
12301 symbol_c *IN_type_symbol = param_data_type; |
11966 last_type_symbol = param_data_type; |
12302 last_type_symbol = param_data_type; |
11970 |
12306 |
11971 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12307 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
11972 |
12308 |
11973 if (IN_type_symbol == NULL) |
12309 if (IN_type_symbol == NULL) |
11974 IN_type_symbol = last_type_symbol; |
12310 IN_type_symbol = last_type_symbol; |
11975 ADD_PARAM_LIST(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) |
11976 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; |
11977 function_type_prefix = return_type_symbol; |
12313 function_type_prefix = return_type_symbol; |
11978 break; |
12314 break; |
11979 |
12315 |
11980 } |
12316 } |
11992 case function_time_to_word : |
12328 case function_time_to_word : |
11993 { |
12329 { |
11994 symbol_c *last_type_symbol = NULL; |
12330 symbol_c *last_type_symbol = NULL; |
11995 |
12331 |
11996 { |
12332 { |
|
12333 identifier_c IN_param_name("IN"); |
11997 /* 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 */ |
11998 symbol_c *IN_param_value = &this->default_variable_name; |
12335 symbol_c *IN_param_value = &this->default_variable_name; |
11999 |
12336 |
12000 symbol_c *IN_type_symbol = param_data_type; |
12337 symbol_c *IN_type_symbol = param_data_type; |
12001 last_type_symbol = param_data_type; |
12338 last_type_symbol = param_data_type; |
12005 |
12342 |
12006 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12343 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12007 |
12344 |
12008 if (IN_type_symbol == NULL) |
12345 if (IN_type_symbol == NULL) |
12009 IN_type_symbol = last_type_symbol; |
12346 IN_type_symbol = last_type_symbol; |
12010 ADD_PARAM_LIST(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) |
12011 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; |
12012 function_type_prefix = return_type_symbol; |
12349 function_type_prefix = return_type_symbol; |
12013 break; |
12350 break; |
12014 |
12351 |
12015 } |
12352 } |
12027 case function_time_to_string : |
12364 case function_time_to_string : |
12028 { |
12365 { |
12029 symbol_c *last_type_symbol = NULL; |
12366 symbol_c *last_type_symbol = NULL; |
12030 |
12367 |
12031 { |
12368 { |
|
12369 identifier_c IN_param_name("IN"); |
12032 /* 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 */ |
12033 symbol_c *IN_param_value = &this->default_variable_name; |
12371 symbol_c *IN_param_value = &this->default_variable_name; |
12034 |
12372 |
12035 symbol_c *IN_type_symbol = param_data_type; |
12373 symbol_c *IN_type_symbol = param_data_type; |
12036 last_type_symbol = param_data_type; |
12374 last_type_symbol = param_data_type; |
12040 |
12378 |
12041 function_name = (symbol_c*)(new pragma_c("__time_to_string")); |
12379 function_name = (symbol_c*)(new pragma_c("__time_to_string")); |
12042 |
12380 |
12043 if (IN_type_symbol == NULL) |
12381 if (IN_type_symbol == NULL) |
12044 IN_type_symbol = last_type_symbol; |
12382 IN_type_symbol = last_type_symbol; |
12045 ADD_PARAM_LIST(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) |
12046 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; |
12047 function_type_prefix = return_type_symbol; |
12385 function_type_prefix = return_type_symbol; |
12048 break; |
12386 break; |
12049 |
12387 |
12050 } |
12388 } |
12062 case function_time_to_lword : |
12400 case function_time_to_lword : |
12063 { |
12401 { |
12064 symbol_c *last_type_symbol = NULL; |
12402 symbol_c *last_type_symbol = NULL; |
12065 |
12403 |
12066 { |
12404 { |
|
12405 identifier_c IN_param_name("IN"); |
12067 /* 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 */ |
12068 symbol_c *IN_param_value = &this->default_variable_name; |
12407 symbol_c *IN_param_value = &this->default_variable_name; |
12069 |
12408 |
12070 symbol_c *IN_type_symbol = param_data_type; |
12409 symbol_c *IN_type_symbol = param_data_type; |
12071 last_type_symbol = param_data_type; |
12410 last_type_symbol = param_data_type; |
12075 |
12414 |
12076 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12415 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12077 |
12416 |
12078 if (IN_type_symbol == NULL) |
12417 if (IN_type_symbol == NULL) |
12079 IN_type_symbol = last_type_symbol; |
12418 IN_type_symbol = last_type_symbol; |
12080 ADD_PARAM_LIST(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) |
12081 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; |
12082 function_type_prefix = return_type_symbol; |
12421 function_type_prefix = return_type_symbol; |
12083 break; |
12422 break; |
12084 |
12423 |
12085 } |
12424 } |
12097 case function_time_to_uint : |
12436 case function_time_to_uint : |
12098 { |
12437 { |
12099 symbol_c *last_type_symbol = NULL; |
12438 symbol_c *last_type_symbol = NULL; |
12100 |
12439 |
12101 { |
12440 { |
|
12441 identifier_c IN_param_name("IN"); |
12102 /* 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 */ |
12103 symbol_c *IN_param_value = &this->default_variable_name; |
12443 symbol_c *IN_param_value = &this->default_variable_name; |
12104 |
12444 |
12105 symbol_c *IN_type_symbol = param_data_type; |
12445 symbol_c *IN_type_symbol = param_data_type; |
12106 last_type_symbol = param_data_type; |
12446 last_type_symbol = param_data_type; |
12110 |
12450 |
12111 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12451 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12112 |
12452 |
12113 if (IN_type_symbol == NULL) |
12453 if (IN_type_symbol == NULL) |
12114 IN_type_symbol = last_type_symbol; |
12454 IN_type_symbol = last_type_symbol; |
12115 ADD_PARAM_LIST(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) |
12116 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; |
12117 function_type_prefix = return_type_symbol; |
12457 function_type_prefix = return_type_symbol; |
12118 break; |
12458 break; |
12119 |
12459 |
12120 } |
12460 } |
12132 case function_time_to_lreal : |
12472 case function_time_to_lreal : |
12133 { |
12473 { |
12134 symbol_c *last_type_symbol = NULL; |
12474 symbol_c *last_type_symbol = NULL; |
12135 |
12475 |
12136 { |
12476 { |
|
12477 identifier_c IN_param_name("IN"); |
12137 /* 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 */ |
12138 symbol_c *IN_param_value = &this->default_variable_name; |
12479 symbol_c *IN_param_value = &this->default_variable_name; |
12139 |
12480 |
12140 symbol_c *IN_type_symbol = param_data_type; |
12481 symbol_c *IN_type_symbol = param_data_type; |
12141 last_type_symbol = param_data_type; |
12482 last_type_symbol = param_data_type; |
12145 |
12486 |
12146 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
12487 function_name = (symbol_c*)(new pragma_c("__time_to_real")); |
12147 |
12488 |
12148 if (IN_type_symbol == NULL) |
12489 if (IN_type_symbol == NULL) |
12149 IN_type_symbol = last_type_symbol; |
12490 IN_type_symbol = last_type_symbol; |
12150 ADD_PARAM_LIST(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) |
12151 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; |
12152 function_type_prefix = return_type_symbol; |
12493 function_type_prefix = return_type_symbol; |
12153 break; |
12494 break; |
12154 |
12495 |
12155 } |
12496 } |
12167 case function_time_to_byte : |
12508 case function_time_to_byte : |
12168 { |
12509 { |
12169 symbol_c *last_type_symbol = NULL; |
12510 symbol_c *last_type_symbol = NULL; |
12170 |
12511 |
12171 { |
12512 { |
|
12513 identifier_c IN_param_name("IN"); |
12172 /* 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 */ |
12173 symbol_c *IN_param_value = &this->default_variable_name; |
12515 symbol_c *IN_param_value = &this->default_variable_name; |
12174 |
12516 |
12175 symbol_c *IN_type_symbol = param_data_type; |
12517 symbol_c *IN_type_symbol = param_data_type; |
12176 last_type_symbol = param_data_type; |
12518 last_type_symbol = param_data_type; |
12180 |
12522 |
12181 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12523 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12182 |
12524 |
12183 if (IN_type_symbol == NULL) |
12525 if (IN_type_symbol == NULL) |
12184 IN_type_symbol = last_type_symbol; |
12526 IN_type_symbol = last_type_symbol; |
12185 ADD_PARAM_LIST(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) |
12186 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; |
12187 function_type_prefix = return_type_symbol; |
12529 function_type_prefix = return_type_symbol; |
12188 break; |
12530 break; |
12189 |
12531 |
12190 } |
12532 } |
12202 case function_time_to_usint : |
12544 case function_time_to_usint : |
12203 { |
12545 { |
12204 symbol_c *last_type_symbol = NULL; |
12546 symbol_c *last_type_symbol = NULL; |
12205 |
12547 |
12206 { |
12548 { |
|
12549 identifier_c IN_param_name("IN"); |
12207 /* 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 */ |
12208 symbol_c *IN_param_value = &this->default_variable_name; |
12551 symbol_c *IN_param_value = &this->default_variable_name; |
12209 |
12552 |
12210 symbol_c *IN_type_symbol = param_data_type; |
12553 symbol_c *IN_type_symbol = param_data_type; |
12211 last_type_symbol = param_data_type; |
12554 last_type_symbol = param_data_type; |
12215 |
12558 |
12216 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12559 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12217 |
12560 |
12218 if (IN_type_symbol == NULL) |
12561 if (IN_type_symbol == NULL) |
12219 IN_type_symbol = last_type_symbol; |
12562 IN_type_symbol = last_type_symbol; |
12220 ADD_PARAM_LIST(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) |
12221 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; |
12222 function_type_prefix = return_type_symbol; |
12565 function_type_prefix = return_type_symbol; |
12223 break; |
12566 break; |
12224 |
12567 |
12225 } |
12568 } |
12237 case function_time_to_ulint : |
12580 case function_time_to_ulint : |
12238 { |
12581 { |
12239 symbol_c *last_type_symbol = NULL; |
12582 symbol_c *last_type_symbol = NULL; |
12240 |
12583 |
12241 { |
12584 { |
|
12585 identifier_c IN_param_name("IN"); |
12242 /* 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 */ |
12243 symbol_c *IN_param_value = &this->default_variable_name; |
12587 symbol_c *IN_param_value = &this->default_variable_name; |
12244 |
12588 |
12245 symbol_c *IN_type_symbol = param_data_type; |
12589 symbol_c *IN_type_symbol = param_data_type; |
12246 last_type_symbol = param_data_type; |
12590 last_type_symbol = param_data_type; |
12250 |
12594 |
12251 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12595 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12252 |
12596 |
12253 if (IN_type_symbol == NULL) |
12597 if (IN_type_symbol == NULL) |
12254 IN_type_symbol = last_type_symbol; |
12598 IN_type_symbol = last_type_symbol; |
12255 ADD_PARAM_LIST(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) |
12256 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; |
12257 function_type_prefix = return_type_symbol; |
12601 function_type_prefix = return_type_symbol; |
12258 break; |
12602 break; |
12259 |
12603 |
12260 } |
12604 } |
12272 case function_time_to_int : |
12616 case function_time_to_int : |
12273 { |
12617 { |
12274 symbol_c *last_type_symbol = NULL; |
12618 symbol_c *last_type_symbol = NULL; |
12275 |
12619 |
12276 { |
12620 { |
|
12621 identifier_c IN_param_name("IN"); |
12277 /* 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 */ |
12278 symbol_c *IN_param_value = &this->default_variable_name; |
12623 symbol_c *IN_param_value = &this->default_variable_name; |
12279 |
12624 |
12280 symbol_c *IN_type_symbol = param_data_type; |
12625 symbol_c *IN_type_symbol = param_data_type; |
12281 last_type_symbol = param_data_type; |
12626 last_type_symbol = param_data_type; |
12285 |
12630 |
12286 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12631 function_name = (symbol_c*)(new pragma_c("__time_to_int")); |
12287 |
12632 |
12288 if (IN_type_symbol == NULL) |
12633 if (IN_type_symbol == NULL) |
12289 IN_type_symbol = last_type_symbol; |
12634 IN_type_symbol = last_type_symbol; |
12290 ADD_PARAM_LIST(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) |
12291 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; |
12292 function_type_prefix = return_type_symbol; |
12637 function_type_prefix = return_type_symbol; |
12293 break; |
12638 break; |
12294 |
12639 |
12295 } |
12640 } |
12307 case function_int_to_real : |
12652 case function_int_to_real : |
12308 { |
12653 { |
12309 symbol_c *last_type_symbol = NULL; |
12654 symbol_c *last_type_symbol = NULL; |
12310 |
12655 |
12311 { |
12656 { |
|
12657 identifier_c IN_param_name("IN"); |
12312 /* 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 */ |
12313 symbol_c *IN_param_value = &this->default_variable_name; |
12659 symbol_c *IN_param_value = &this->default_variable_name; |
12314 |
12660 |
12315 symbol_c *IN_type_symbol = param_data_type; |
12661 symbol_c *IN_type_symbol = param_data_type; |
12316 last_type_symbol = param_data_type; |
12662 last_type_symbol = param_data_type; |
12320 |
12666 |
12321 function_name = (symbol_c*)(new pragma_c("__move_")); |
12667 function_name = (symbol_c*)(new pragma_c("__move_")); |
12322 |
12668 |
12323 if (IN_type_symbol == NULL) |
12669 if (IN_type_symbol == NULL) |
12324 IN_type_symbol = last_type_symbol; |
12670 IN_type_symbol = last_type_symbol; |
12325 ADD_PARAM_LIST(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) |
12326 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; |
12327 function_type_prefix = return_type_symbol; |
12673 function_type_prefix = return_type_symbol; |
12328 function_type_suffix = IN_type_symbol; |
12674 function_type_suffix = IN_type_symbol; |
12329 break; |
12675 break; |
12330 |
12676 |
12343 case function_int_to_sint : |
12689 case function_int_to_sint : |
12344 { |
12690 { |
12345 symbol_c *last_type_symbol = NULL; |
12691 symbol_c *last_type_symbol = NULL; |
12346 |
12692 |
12347 { |
12693 { |
|
12694 identifier_c IN_param_name("IN"); |
12348 /* 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 */ |
12349 symbol_c *IN_param_value = &this->default_variable_name; |
12696 symbol_c *IN_param_value = &this->default_variable_name; |
12350 |
12697 |
12351 symbol_c *IN_type_symbol = param_data_type; |
12698 symbol_c *IN_type_symbol = param_data_type; |
12352 last_type_symbol = param_data_type; |
12699 last_type_symbol = param_data_type; |
12356 |
12703 |
12357 function_name = (symbol_c*)(new pragma_c("__move_")); |
12704 function_name = (symbol_c*)(new pragma_c("__move_")); |
12358 |
12705 |
12359 if (IN_type_symbol == NULL) |
12706 if (IN_type_symbol == NULL) |
12360 IN_type_symbol = last_type_symbol; |
12707 IN_type_symbol = last_type_symbol; |
12361 ADD_PARAM_LIST(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) |
12362 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; |
12363 function_type_prefix = return_type_symbol; |
12710 function_type_prefix = return_type_symbol; |
12364 function_type_suffix = IN_type_symbol; |
12711 function_type_suffix = IN_type_symbol; |
12365 break; |
12712 break; |
12366 |
12713 |
12379 case function_int_to_lint : |
12726 case function_int_to_lint : |
12380 { |
12727 { |
12381 symbol_c *last_type_symbol = NULL; |
12728 symbol_c *last_type_symbol = NULL; |
12382 |
12729 |
12383 { |
12730 { |
|
12731 identifier_c IN_param_name("IN"); |
12384 /* 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 */ |
12385 symbol_c *IN_param_value = &this->default_variable_name; |
12733 symbol_c *IN_param_value = &this->default_variable_name; |
12386 |
12734 |
12387 symbol_c *IN_type_symbol = param_data_type; |
12735 symbol_c *IN_type_symbol = param_data_type; |
12388 last_type_symbol = param_data_type; |
12736 last_type_symbol = param_data_type; |
12392 |
12740 |
12393 function_name = (symbol_c*)(new pragma_c("__move_")); |
12741 function_name = (symbol_c*)(new pragma_c("__move_")); |
12394 |
12742 |
12395 if (IN_type_symbol == NULL) |
12743 if (IN_type_symbol == NULL) |
12396 IN_type_symbol = last_type_symbol; |
12744 IN_type_symbol = last_type_symbol; |
12397 ADD_PARAM_LIST(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) |
12398 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; |
12399 function_type_prefix = return_type_symbol; |
12747 function_type_prefix = return_type_symbol; |
12400 function_type_suffix = IN_type_symbol; |
12748 function_type_suffix = IN_type_symbol; |
12401 break; |
12749 break; |
12402 |
12750 |
12415 case function_int_to_dint : |
12763 case function_int_to_dint : |
12416 { |
12764 { |
12417 symbol_c *last_type_symbol = NULL; |
12765 symbol_c *last_type_symbol = NULL; |
12418 |
12766 |
12419 { |
12767 { |
|
12768 identifier_c IN_param_name("IN"); |
12420 /* 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 */ |
12421 symbol_c *IN_param_value = &this->default_variable_name; |
12770 symbol_c *IN_param_value = &this->default_variable_name; |
12422 |
12771 |
12423 symbol_c *IN_type_symbol = param_data_type; |
12772 symbol_c *IN_type_symbol = param_data_type; |
12424 last_type_symbol = param_data_type; |
12773 last_type_symbol = param_data_type; |
12428 |
12777 |
12429 function_name = (symbol_c*)(new pragma_c("__move_")); |
12778 function_name = (symbol_c*)(new pragma_c("__move_")); |
12430 |
12779 |
12431 if (IN_type_symbol == NULL) |
12780 if (IN_type_symbol == NULL) |
12432 IN_type_symbol = last_type_symbol; |
12781 IN_type_symbol = last_type_symbol; |
12433 ADD_PARAM_LIST(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) |
12434 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; |
12435 function_type_prefix = return_type_symbol; |
12784 function_type_prefix = return_type_symbol; |
12436 function_type_suffix = IN_type_symbol; |
12785 function_type_suffix = IN_type_symbol; |
12437 break; |
12786 break; |
12438 |
12787 |
12451 case function_int_to_date : |
12800 case function_int_to_date : |
12452 { |
12801 { |
12453 symbol_c *last_type_symbol = NULL; |
12802 symbol_c *last_type_symbol = NULL; |
12454 |
12803 |
12455 { |
12804 { |
|
12805 identifier_c IN_param_name("IN"); |
12456 /* 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 */ |
12457 symbol_c *IN_param_value = &this->default_variable_name; |
12807 symbol_c *IN_param_value = &this->default_variable_name; |
12458 |
12808 |
12459 symbol_c *IN_type_symbol = param_data_type; |
12809 symbol_c *IN_type_symbol = param_data_type; |
12460 last_type_symbol = param_data_type; |
12810 last_type_symbol = param_data_type; |
12464 |
12814 |
12465 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12815 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12466 |
12816 |
12467 if (IN_type_symbol == NULL) |
12817 if (IN_type_symbol == NULL) |
12468 IN_type_symbol = last_type_symbol; |
12818 IN_type_symbol = last_type_symbol; |
12469 ADD_PARAM_LIST(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) |
12470 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; |
12471 function_type_prefix = return_type_symbol; |
12821 function_type_prefix = return_type_symbol; |
12472 break; |
12822 break; |
12473 |
12823 |
12474 } |
12824 } |
12486 case function_int_to_dword : |
12836 case function_int_to_dword : |
12487 { |
12837 { |
12488 symbol_c *last_type_symbol = NULL; |
12838 symbol_c *last_type_symbol = NULL; |
12489 |
12839 |
12490 { |
12840 { |
|
12841 identifier_c IN_param_name("IN"); |
12491 /* 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 */ |
12492 symbol_c *IN_param_value = &this->default_variable_name; |
12843 symbol_c *IN_param_value = &this->default_variable_name; |
12493 |
12844 |
12494 symbol_c *IN_type_symbol = param_data_type; |
12845 symbol_c *IN_type_symbol = param_data_type; |
12495 last_type_symbol = param_data_type; |
12846 last_type_symbol = param_data_type; |
12499 |
12850 |
12500 function_name = (symbol_c*)(new pragma_c("__move_")); |
12851 function_name = (symbol_c*)(new pragma_c("__move_")); |
12501 |
12852 |
12502 if (IN_type_symbol == NULL) |
12853 if (IN_type_symbol == NULL) |
12503 IN_type_symbol = last_type_symbol; |
12854 IN_type_symbol = last_type_symbol; |
12504 ADD_PARAM_LIST(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) |
12505 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; |
12506 function_type_prefix = return_type_symbol; |
12857 function_type_prefix = return_type_symbol; |
12507 function_type_suffix = IN_type_symbol; |
12858 function_type_suffix = IN_type_symbol; |
12508 break; |
12859 break; |
12509 |
12860 |
12522 case function_int_to_dt : |
12873 case function_int_to_dt : |
12523 { |
12874 { |
12524 symbol_c *last_type_symbol = NULL; |
12875 symbol_c *last_type_symbol = NULL; |
12525 |
12876 |
12526 { |
12877 { |
|
12878 identifier_c IN_param_name("IN"); |
12527 /* 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 */ |
12528 symbol_c *IN_param_value = &this->default_variable_name; |
12880 symbol_c *IN_param_value = &this->default_variable_name; |
12529 |
12881 |
12530 symbol_c *IN_type_symbol = param_data_type; |
12882 symbol_c *IN_type_symbol = param_data_type; |
12531 last_type_symbol = param_data_type; |
12883 last_type_symbol = param_data_type; |
12535 |
12887 |
12536 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12888 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12537 |
12889 |
12538 if (IN_type_symbol == NULL) |
12890 if (IN_type_symbol == NULL) |
12539 IN_type_symbol = last_type_symbol; |
12891 IN_type_symbol = last_type_symbol; |
12540 ADD_PARAM_LIST(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) |
12541 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; |
12542 function_type_prefix = return_type_symbol; |
12894 function_type_prefix = return_type_symbol; |
12543 break; |
12895 break; |
12544 |
12896 |
12545 } |
12897 } |
12557 case function_int_to_tod : |
12909 case function_int_to_tod : |
12558 { |
12910 { |
12559 symbol_c *last_type_symbol = NULL; |
12911 symbol_c *last_type_symbol = NULL; |
12560 |
12912 |
12561 { |
12913 { |
|
12914 identifier_c IN_param_name("IN"); |
12562 /* 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 */ |
12563 symbol_c *IN_param_value = &this->default_variable_name; |
12916 symbol_c *IN_param_value = &this->default_variable_name; |
12564 |
12917 |
12565 symbol_c *IN_type_symbol = param_data_type; |
12918 symbol_c *IN_type_symbol = param_data_type; |
12566 last_type_symbol = param_data_type; |
12919 last_type_symbol = param_data_type; |
12570 |
12923 |
12571 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12924 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12572 |
12925 |
12573 if (IN_type_symbol == NULL) |
12926 if (IN_type_symbol == NULL) |
12574 IN_type_symbol = last_type_symbol; |
12927 IN_type_symbol = last_type_symbol; |
12575 ADD_PARAM_LIST(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) |
12576 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; |
12577 function_type_prefix = return_type_symbol; |
12930 function_type_prefix = return_type_symbol; |
12578 break; |
12931 break; |
12579 |
12932 |
12580 } |
12933 } |
12592 case function_int_to_udint : |
12945 case function_int_to_udint : |
12593 { |
12946 { |
12594 symbol_c *last_type_symbol = NULL; |
12947 symbol_c *last_type_symbol = NULL; |
12595 |
12948 |
12596 { |
12949 { |
|
12950 identifier_c IN_param_name("IN"); |
12597 /* 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 */ |
12598 symbol_c *IN_param_value = &this->default_variable_name; |
12952 symbol_c *IN_param_value = &this->default_variable_name; |
12599 |
12953 |
12600 symbol_c *IN_type_symbol = param_data_type; |
12954 symbol_c *IN_type_symbol = param_data_type; |
12601 last_type_symbol = param_data_type; |
12955 last_type_symbol = param_data_type; |
12605 |
12959 |
12606 function_name = (symbol_c*)(new pragma_c("__move_")); |
12960 function_name = (symbol_c*)(new pragma_c("__move_")); |
12607 |
12961 |
12608 if (IN_type_symbol == NULL) |
12962 if (IN_type_symbol == NULL) |
12609 IN_type_symbol = last_type_symbol; |
12963 IN_type_symbol = last_type_symbol; |
12610 ADD_PARAM_LIST(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) |
12611 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; |
12612 function_type_prefix = return_type_symbol; |
12966 function_type_prefix = return_type_symbol; |
12613 function_type_suffix = IN_type_symbol; |
12967 function_type_suffix = IN_type_symbol; |
12614 break; |
12968 break; |
12615 |
12969 |
12628 case function_int_to_word : |
12982 case function_int_to_word : |
12629 { |
12983 { |
12630 symbol_c *last_type_symbol = NULL; |
12984 symbol_c *last_type_symbol = NULL; |
12631 |
12985 |
12632 { |
12986 { |
|
12987 identifier_c IN_param_name("IN"); |
12633 /* 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 */ |
12634 symbol_c *IN_param_value = &this->default_variable_name; |
12989 symbol_c *IN_param_value = &this->default_variable_name; |
12635 |
12990 |
12636 symbol_c *IN_type_symbol = param_data_type; |
12991 symbol_c *IN_type_symbol = param_data_type; |
12637 last_type_symbol = param_data_type; |
12992 last_type_symbol = param_data_type; |
12641 |
12996 |
12642 function_name = (symbol_c*)(new pragma_c("__move_")); |
12997 function_name = (symbol_c*)(new pragma_c("__move_")); |
12643 |
12998 |
12644 if (IN_type_symbol == NULL) |
12999 if (IN_type_symbol == NULL) |
12645 IN_type_symbol = last_type_symbol; |
13000 IN_type_symbol = last_type_symbol; |
12646 ADD_PARAM_LIST(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) |
12647 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; |
12648 function_type_prefix = return_type_symbol; |
13003 function_type_prefix = return_type_symbol; |
12649 function_type_suffix = IN_type_symbol; |
13004 function_type_suffix = IN_type_symbol; |
12650 break; |
13005 break; |
12651 |
13006 |
12664 case function_int_to_string : |
13019 case function_int_to_string : |
12665 { |
13020 { |
12666 symbol_c *last_type_symbol = NULL; |
13021 symbol_c *last_type_symbol = NULL; |
12667 |
13022 |
12668 { |
13023 { |
|
13024 identifier_c IN_param_name("IN"); |
12669 /* 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 */ |
12670 symbol_c *IN_param_value = &this->default_variable_name; |
13026 symbol_c *IN_param_value = &this->default_variable_name; |
12671 |
13027 |
12672 symbol_c *IN_type_symbol = param_data_type; |
13028 symbol_c *IN_type_symbol = param_data_type; |
12673 last_type_symbol = param_data_type; |
13029 last_type_symbol = param_data_type; |
12677 |
13033 |
12678 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
13034 function_name = (symbol_c*)(new pragma_c("__sint_to_string")); |
12679 |
13035 |
12680 if (IN_type_symbol == NULL) |
13036 if (IN_type_symbol == NULL) |
12681 IN_type_symbol = last_type_symbol; |
13037 IN_type_symbol = last_type_symbol; |
12682 ADD_PARAM_LIST(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) |
12683 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; |
12684 function_type_prefix = return_type_symbol; |
13040 function_type_prefix = return_type_symbol; |
12685 break; |
13041 break; |
12686 |
13042 |
12687 } |
13043 } |
12699 case function_int_to_lword : |
13055 case function_int_to_lword : |
12700 { |
13056 { |
12701 symbol_c *last_type_symbol = NULL; |
13057 symbol_c *last_type_symbol = NULL; |
12702 |
13058 |
12703 { |
13059 { |
|
13060 identifier_c IN_param_name("IN"); |
12704 /* 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 */ |
12705 symbol_c *IN_param_value = &this->default_variable_name; |
13062 symbol_c *IN_param_value = &this->default_variable_name; |
12706 |
13063 |
12707 symbol_c *IN_type_symbol = param_data_type; |
13064 symbol_c *IN_type_symbol = param_data_type; |
12708 last_type_symbol = param_data_type; |
13065 last_type_symbol = param_data_type; |
12712 |
13069 |
12713 function_name = (symbol_c*)(new pragma_c("__move_")); |
13070 function_name = (symbol_c*)(new pragma_c("__move_")); |
12714 |
13071 |
12715 if (IN_type_symbol == NULL) |
13072 if (IN_type_symbol == NULL) |
12716 IN_type_symbol = last_type_symbol; |
13073 IN_type_symbol = last_type_symbol; |
12717 ADD_PARAM_LIST(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) |
12718 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; |
12719 function_type_prefix = return_type_symbol; |
13076 function_type_prefix = return_type_symbol; |
12720 function_type_suffix = IN_type_symbol; |
13077 function_type_suffix = IN_type_symbol; |
12721 break; |
13078 break; |
12722 |
13079 |
12735 case function_int_to_uint : |
13092 case function_int_to_uint : |
12736 { |
13093 { |
12737 symbol_c *last_type_symbol = NULL; |
13094 symbol_c *last_type_symbol = NULL; |
12738 |
13095 |
12739 { |
13096 { |
|
13097 identifier_c IN_param_name("IN"); |
12740 /* 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 */ |
12741 symbol_c *IN_param_value = &this->default_variable_name; |
13099 symbol_c *IN_param_value = &this->default_variable_name; |
12742 |
13100 |
12743 symbol_c *IN_type_symbol = param_data_type; |
13101 symbol_c *IN_type_symbol = param_data_type; |
12744 last_type_symbol = param_data_type; |
13102 last_type_symbol = param_data_type; |
12748 |
13106 |
12749 function_name = (symbol_c*)(new pragma_c("__move_")); |
13107 function_name = (symbol_c*)(new pragma_c("__move_")); |
12750 |
13108 |
12751 if (IN_type_symbol == NULL) |
13109 if (IN_type_symbol == NULL) |
12752 IN_type_symbol = last_type_symbol; |
13110 IN_type_symbol = last_type_symbol; |
12753 ADD_PARAM_LIST(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) |
12754 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; |
12755 function_type_prefix = return_type_symbol; |
13113 function_type_prefix = return_type_symbol; |
12756 function_type_suffix = IN_type_symbol; |
13114 function_type_suffix = IN_type_symbol; |
12757 break; |
13115 break; |
12758 |
13116 |
12771 case function_int_to_lreal : |
13129 case function_int_to_lreal : |
12772 { |
13130 { |
12773 symbol_c *last_type_symbol = NULL; |
13131 symbol_c *last_type_symbol = NULL; |
12774 |
13132 |
12775 { |
13133 { |
|
13134 identifier_c IN_param_name("IN"); |
12776 /* 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 */ |
12777 symbol_c *IN_param_value = &this->default_variable_name; |
13136 symbol_c *IN_param_value = &this->default_variable_name; |
12778 |
13137 |
12779 symbol_c *IN_type_symbol = param_data_type; |
13138 symbol_c *IN_type_symbol = param_data_type; |
12780 last_type_symbol = param_data_type; |
13139 last_type_symbol = param_data_type; |
12784 |
13143 |
12785 function_name = (symbol_c*)(new pragma_c("__move_")); |
13144 function_name = (symbol_c*)(new pragma_c("__move_")); |
12786 |
13145 |
12787 if (IN_type_symbol == NULL) |
13146 if (IN_type_symbol == NULL) |
12788 IN_type_symbol = last_type_symbol; |
13147 IN_type_symbol = last_type_symbol; |
12789 ADD_PARAM_LIST(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) |
12790 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; |
12791 function_type_prefix = return_type_symbol; |
13150 function_type_prefix = return_type_symbol; |
12792 function_type_suffix = IN_type_symbol; |
13151 function_type_suffix = IN_type_symbol; |
12793 break; |
13152 break; |
12794 |
13153 |
12807 case function_int_to_byte : |
13166 case function_int_to_byte : |
12808 { |
13167 { |
12809 symbol_c *last_type_symbol = NULL; |
13168 symbol_c *last_type_symbol = NULL; |
12810 |
13169 |
12811 { |
13170 { |
|
13171 identifier_c IN_param_name("IN"); |
12812 /* 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 */ |
12813 symbol_c *IN_param_value = &this->default_variable_name; |
13173 symbol_c *IN_param_value = &this->default_variable_name; |
12814 |
13174 |
12815 symbol_c *IN_type_symbol = param_data_type; |
13175 symbol_c *IN_type_symbol = param_data_type; |
12816 last_type_symbol = param_data_type; |
13176 last_type_symbol = param_data_type; |
12820 |
13180 |
12821 function_name = (symbol_c*)(new pragma_c("__move_")); |
13181 function_name = (symbol_c*)(new pragma_c("__move_")); |
12822 |
13182 |
12823 if (IN_type_symbol == NULL) |
13183 if (IN_type_symbol == NULL) |
12824 IN_type_symbol = last_type_symbol; |
13184 IN_type_symbol = last_type_symbol; |
12825 ADD_PARAM_LIST(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) |
12826 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; |
12827 function_type_prefix = return_type_symbol; |
13187 function_type_prefix = return_type_symbol; |
12828 function_type_suffix = IN_type_symbol; |
13188 function_type_suffix = IN_type_symbol; |
12829 break; |
13189 break; |
12830 |
13190 |
12843 case function_int_to_usint : |
13203 case function_int_to_usint : |
12844 { |
13204 { |
12845 symbol_c *last_type_symbol = NULL; |
13205 symbol_c *last_type_symbol = NULL; |
12846 |
13206 |
12847 { |
13207 { |
|
13208 identifier_c IN_param_name("IN"); |
12848 /* 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 */ |
12849 symbol_c *IN_param_value = &this->default_variable_name; |
13210 symbol_c *IN_param_value = &this->default_variable_name; |
12850 |
13211 |
12851 symbol_c *IN_type_symbol = param_data_type; |
13212 symbol_c *IN_type_symbol = param_data_type; |
12852 last_type_symbol = param_data_type; |
13213 last_type_symbol = param_data_type; |
12856 |
13217 |
12857 function_name = (symbol_c*)(new pragma_c("__move_")); |
13218 function_name = (symbol_c*)(new pragma_c("__move_")); |
12858 |
13219 |
12859 if (IN_type_symbol == NULL) |
13220 if (IN_type_symbol == NULL) |
12860 IN_type_symbol = last_type_symbol; |
13221 IN_type_symbol = last_type_symbol; |
12861 ADD_PARAM_LIST(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) |
12862 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; |
12863 function_type_prefix = return_type_symbol; |
13224 function_type_prefix = return_type_symbol; |
12864 function_type_suffix = IN_type_symbol; |
13225 function_type_suffix = IN_type_symbol; |
12865 break; |
13226 break; |
12866 |
13227 |
12879 case function_int_to_ulint : |
13240 case function_int_to_ulint : |
12880 { |
13241 { |
12881 symbol_c *last_type_symbol = NULL; |
13242 symbol_c *last_type_symbol = NULL; |
12882 |
13243 |
12883 { |
13244 { |
|
13245 identifier_c IN_param_name("IN"); |
12884 /* 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 */ |
12885 symbol_c *IN_param_value = &this->default_variable_name; |
13247 symbol_c *IN_param_value = &this->default_variable_name; |
12886 |
13248 |
12887 symbol_c *IN_type_symbol = param_data_type; |
13249 symbol_c *IN_type_symbol = param_data_type; |
12888 last_type_symbol = param_data_type; |
13250 last_type_symbol = param_data_type; |
12892 |
13254 |
12893 function_name = (symbol_c*)(new pragma_c("__move_")); |
13255 function_name = (symbol_c*)(new pragma_c("__move_")); |
12894 |
13256 |
12895 if (IN_type_symbol == NULL) |
13257 if (IN_type_symbol == NULL) |
12896 IN_type_symbol = last_type_symbol; |
13258 IN_type_symbol = last_type_symbol; |
12897 ADD_PARAM_LIST(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) |
12898 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; |
12899 function_type_prefix = return_type_symbol; |
13261 function_type_prefix = return_type_symbol; |
12900 function_type_suffix = IN_type_symbol; |
13262 function_type_suffix = IN_type_symbol; |
12901 break; |
13263 break; |
12902 |
13264 |
12915 case function_int_to_bool : |
13277 case function_int_to_bool : |
12916 { |
13278 { |
12917 symbol_c *last_type_symbol = NULL; |
13279 symbol_c *last_type_symbol = NULL; |
12918 |
13280 |
12919 { |
13281 { |
|
13282 identifier_c IN_param_name("IN"); |
12920 /* 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 */ |
12921 symbol_c *IN_param_value = &this->default_variable_name; |
13284 symbol_c *IN_param_value = &this->default_variable_name; |
12922 |
13285 |
12923 symbol_c *IN_type_symbol = param_data_type; |
13286 symbol_c *IN_type_symbol = param_data_type; |
12924 last_type_symbol = param_data_type; |
13287 last_type_symbol = param_data_type; |
12928 |
13291 |
12929 function_name = (symbol_c*)(new pragma_c("__move_")); |
13292 function_name = (symbol_c*)(new pragma_c("__move_")); |
12930 |
13293 |
12931 if (IN_type_symbol == NULL) |
13294 if (IN_type_symbol == NULL) |
12932 IN_type_symbol = last_type_symbol; |
13295 IN_type_symbol = last_type_symbol; |
12933 ADD_PARAM_LIST(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) |
12934 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; |
12935 function_type_prefix = return_type_symbol; |
13298 function_type_prefix = return_type_symbol; |
12936 function_type_suffix = IN_type_symbol; |
13299 function_type_suffix = IN_type_symbol; |
12937 break; |
13300 break; |
12938 |
13301 |
12951 case function_int_to_time : |
13314 case function_int_to_time : |
12952 { |
13315 { |
12953 symbol_c *last_type_symbol = NULL; |
13316 symbol_c *last_type_symbol = NULL; |
12954 |
13317 |
12955 { |
13318 { |
|
13319 identifier_c IN_param_name("IN"); |
12956 /* 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 */ |
12957 symbol_c *IN_param_value = &this->default_variable_name; |
13321 symbol_c *IN_param_value = &this->default_variable_name; |
12958 |
13322 |
12959 symbol_c *IN_type_symbol = param_data_type; |
13323 symbol_c *IN_type_symbol = param_data_type; |
12960 last_type_symbol = param_data_type; |
13324 last_type_symbol = param_data_type; |
12964 |
13328 |
12965 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
13329 function_name = (symbol_c*)(new pragma_c("__int_to_time")); |
12966 |
13330 |
12967 if (IN_type_symbol == NULL) |
13331 if (IN_type_symbol == NULL) |
12968 IN_type_symbol = last_type_symbol; |
13332 IN_type_symbol = last_type_symbol; |
12969 ADD_PARAM_LIST(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) |
12970 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; |
12971 function_type_prefix = return_type_symbol; |
13335 function_type_prefix = return_type_symbol; |
12972 break; |
13336 break; |
12973 |
13337 |
12974 } |
13338 } |
12986 case function_trunc : |
13350 case function_trunc : |
12987 { |
13351 { |
12988 symbol_c *last_type_symbol = NULL; |
13352 symbol_c *last_type_symbol = NULL; |
12989 |
13353 |
12990 { |
13354 { |
|
13355 identifier_c IN_param_name("IN"); |
12991 /* 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 */ |
12992 symbol_c *IN_param_value = &this->default_variable_name; |
13357 symbol_c *IN_param_value = &this->default_variable_name; |
12993 |
13358 |
12994 symbol_c *IN_type_symbol = param_data_type; |
13359 symbol_c *IN_type_symbol = param_data_type; |
12995 last_type_symbol = param_data_type; |
13360 last_type_symbol = param_data_type; |
12998 { |
13363 { |
12999 |
13364 |
13000 |
13365 |
13001 if (IN_type_symbol == NULL) |
13366 if (IN_type_symbol == NULL) |
13002 IN_type_symbol = last_type_symbol; |
13367 IN_type_symbol = last_type_symbol; |
13003 ADD_PARAM_LIST(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) |
13004 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13369 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13005 function_type_prefix = (symbol_c*)(new pragma_c("int")); |
13370 function_type_prefix = (symbol_c*)(new pragma_c("int")); |
13006 break; |
13371 break; |
13007 |
13372 |
13008 } |
13373 } |
13020 case function_bcd_to_udint : |
13385 case function_bcd_to_udint : |
13021 { |
13386 { |
13022 symbol_c *last_type_symbol = NULL; |
13387 symbol_c *last_type_symbol = NULL; |
13023 |
13388 |
13024 { |
13389 { |
|
13390 identifier_c IN_param_name("IN"); |
13025 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13391 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13026 symbol_c *IN_param_value = &this->default_variable_name; |
13392 symbol_c *IN_param_value = &this->default_variable_name; |
13027 |
13393 |
13028 symbol_c *IN_type_symbol = param_data_type; |
13394 symbol_c *IN_type_symbol = param_data_type; |
13029 last_type_symbol = param_data_type; |
13395 last_type_symbol = param_data_type; |
13033 |
13399 |
13034 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13400 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13035 |
13401 |
13036 if (IN_type_symbol == NULL) |
13402 if (IN_type_symbol == NULL) |
13037 IN_type_symbol = last_type_symbol; |
13403 IN_type_symbol = last_type_symbol; |
13038 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13404 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::udint_type_name; |
13405 symbol_c * return_type_symbol = &search_constant_type_c::udint_type_name; |
13040 function_type_prefix = return_type_symbol; |
13406 function_type_prefix = return_type_symbol; |
13041 break; |
13407 break; |
13042 |
13408 |
13043 } |
13409 } |
13055 case function_bcd_to_uint : |
13421 case function_bcd_to_uint : |
13056 { |
13422 { |
13057 symbol_c *last_type_symbol = NULL; |
13423 symbol_c *last_type_symbol = NULL; |
13058 |
13424 |
13059 { |
13425 { |
|
13426 identifier_c IN_param_name("IN"); |
13060 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13427 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13061 symbol_c *IN_param_value = &this->default_variable_name; |
13428 symbol_c *IN_param_value = &this->default_variable_name; |
13062 |
13429 |
13063 symbol_c *IN_type_symbol = param_data_type; |
13430 symbol_c *IN_type_symbol = param_data_type; |
13064 last_type_symbol = param_data_type; |
13431 last_type_symbol = param_data_type; |
13068 |
13435 |
13069 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13436 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13070 |
13437 |
13071 if (IN_type_symbol == NULL) |
13438 if (IN_type_symbol == NULL) |
13072 IN_type_symbol = last_type_symbol; |
13439 IN_type_symbol = last_type_symbol; |
13073 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13440 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13074 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
13441 symbol_c * return_type_symbol = &search_constant_type_c::uint_type_name; |
13075 function_type_prefix = return_type_symbol; |
13442 function_type_prefix = return_type_symbol; |
13076 break; |
13443 break; |
13077 |
13444 |
13078 } |
13445 } |
13090 case function_bcd_to_ulint : |
13457 case function_bcd_to_ulint : |
13091 { |
13458 { |
13092 symbol_c *last_type_symbol = NULL; |
13459 symbol_c *last_type_symbol = NULL; |
13093 |
13460 |
13094 { |
13461 { |
|
13462 identifier_c IN_param_name("IN"); |
13095 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13463 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13096 symbol_c *IN_param_value = &this->default_variable_name; |
13464 symbol_c *IN_param_value = &this->default_variable_name; |
13097 |
13465 |
13098 symbol_c *IN_type_symbol = param_data_type; |
13466 symbol_c *IN_type_symbol = param_data_type; |
13099 last_type_symbol = param_data_type; |
13467 last_type_symbol = param_data_type; |
13103 |
13471 |
13104 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13472 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13105 |
13473 |
13106 if (IN_type_symbol == NULL) |
13474 if (IN_type_symbol == NULL) |
13107 IN_type_symbol = last_type_symbol; |
13475 IN_type_symbol = last_type_symbol; |
13108 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13476 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13109 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
13477 symbol_c * return_type_symbol = &search_constant_type_c::ulint_type_name; |
13110 function_type_prefix = return_type_symbol; |
13478 function_type_prefix = return_type_symbol; |
13111 break; |
13479 break; |
13112 |
13480 |
13113 } |
13481 } |
13125 case function_bcd_to_usint : |
13493 case function_bcd_to_usint : |
13126 { |
13494 { |
13127 symbol_c *last_type_symbol = NULL; |
13495 symbol_c *last_type_symbol = NULL; |
13128 |
13496 |
13129 { |
13497 { |
|
13498 identifier_c IN_param_name("IN"); |
13130 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13499 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13131 symbol_c *IN_param_value = &this->default_variable_name; |
13500 symbol_c *IN_param_value = &this->default_variable_name; |
13132 |
13501 |
13133 symbol_c *IN_type_symbol = param_data_type; |
13502 symbol_c *IN_type_symbol = param_data_type; |
13134 last_type_symbol = param_data_type; |
13503 last_type_symbol = param_data_type; |
13138 |
13507 |
13139 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13508 function_name = (symbol_c*)(new pragma_c("__bcd_to_uint")); |
13140 |
13509 |
13141 if (IN_type_symbol == NULL) |
13510 if (IN_type_symbol == NULL) |
13142 IN_type_symbol = last_type_symbol; |
13511 IN_type_symbol = last_type_symbol; |
13143 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13512 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13144 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
13513 symbol_c * return_type_symbol = &search_constant_type_c::usint_type_name; |
13145 function_type_prefix = return_type_symbol; |
13514 function_type_prefix = return_type_symbol; |
13146 break; |
13515 break; |
13147 |
13516 |
13148 } |
13517 } |
13160 case function_udint_to_bcd : |
13529 case function_udint_to_bcd : |
13161 { |
13530 { |
13162 symbol_c *last_type_symbol = NULL; |
13531 symbol_c *last_type_symbol = NULL; |
13163 |
13532 |
13164 { |
13533 { |
|
13534 identifier_c IN_param_name("IN"); |
13165 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13535 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13166 symbol_c *IN_param_value = &this->default_variable_name; |
13536 symbol_c *IN_param_value = &this->default_variable_name; |
13167 |
13537 |
13168 symbol_c *IN_type_symbol = param_data_type; |
13538 symbol_c *IN_type_symbol = param_data_type; |
13169 last_type_symbol = param_data_type; |
13539 last_type_symbol = param_data_type; |
13173 |
13543 |
13174 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13544 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13175 |
13545 |
13176 if (IN_type_symbol == NULL) |
13546 if (IN_type_symbol == NULL) |
13177 IN_type_symbol = last_type_symbol; |
13547 IN_type_symbol = last_type_symbol; |
13178 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13548 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13179 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13549 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13180 function_type_prefix = return_type_symbol; |
13550 function_type_prefix = return_type_symbol; |
13181 break; |
13551 break; |
13182 |
13552 |
13183 } |
13553 } |
13195 case function_uint_to_bcd : |
13565 case function_uint_to_bcd : |
13196 { |
13566 { |
13197 symbol_c *last_type_symbol = NULL; |
13567 symbol_c *last_type_symbol = NULL; |
13198 |
13568 |
13199 { |
13569 { |
|
13570 identifier_c IN_param_name("IN"); |
13200 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13571 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13201 symbol_c *IN_param_value = &this->default_variable_name; |
13572 symbol_c *IN_param_value = &this->default_variable_name; |
13202 |
13573 |
13203 symbol_c *IN_type_symbol = param_data_type; |
13574 symbol_c *IN_type_symbol = param_data_type; |
13204 last_type_symbol = param_data_type; |
13575 last_type_symbol = param_data_type; |
13208 |
13579 |
13209 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13580 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13210 |
13581 |
13211 if (IN_type_symbol == NULL) |
13582 if (IN_type_symbol == NULL) |
13212 IN_type_symbol = last_type_symbol; |
13583 IN_type_symbol = last_type_symbol; |
13213 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13584 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13214 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13585 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13215 function_type_prefix = return_type_symbol; |
13586 function_type_prefix = return_type_symbol; |
13216 break; |
13587 break; |
13217 |
13588 |
13218 } |
13589 } |
13230 case function_usint_to_bcd : |
13601 case function_usint_to_bcd : |
13231 { |
13602 { |
13232 symbol_c *last_type_symbol = NULL; |
13603 symbol_c *last_type_symbol = NULL; |
13233 |
13604 |
13234 { |
13605 { |
|
13606 identifier_c IN_param_name("IN"); |
13235 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13607 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13236 symbol_c *IN_param_value = &this->default_variable_name; |
13608 symbol_c *IN_param_value = &this->default_variable_name; |
13237 |
13609 |
13238 symbol_c *IN_type_symbol = param_data_type; |
13610 symbol_c *IN_type_symbol = param_data_type; |
13239 last_type_symbol = param_data_type; |
13611 last_type_symbol = param_data_type; |
13243 |
13615 |
13244 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13616 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13245 |
13617 |
13246 if (IN_type_symbol == NULL) |
13618 if (IN_type_symbol == NULL) |
13247 IN_type_symbol = last_type_symbol; |
13619 IN_type_symbol = last_type_symbol; |
13248 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13620 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13249 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13621 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13250 function_type_prefix = return_type_symbol; |
13622 function_type_prefix = return_type_symbol; |
13251 break; |
13623 break; |
13252 |
13624 |
13253 } |
13625 } |
13265 case function_ulint_to_bcd : |
13637 case function_ulint_to_bcd : |
13266 { |
13638 { |
13267 symbol_c *last_type_symbol = NULL; |
13639 symbol_c *last_type_symbol = NULL; |
13268 |
13640 |
13269 { |
13641 { |
|
13642 identifier_c IN_param_name("IN"); |
13270 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13643 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13271 symbol_c *IN_param_value = &this->default_variable_name; |
13644 symbol_c *IN_param_value = &this->default_variable_name; |
13272 |
13645 |
13273 symbol_c *IN_type_symbol = param_data_type; |
13646 symbol_c *IN_type_symbol = param_data_type; |
13274 last_type_symbol = param_data_type; |
13647 last_type_symbol = param_data_type; |
13278 |
13651 |
13279 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13652 function_name = (symbol_c*)(new pragma_c("__uint_to_bcd")); |
13280 |
13653 |
13281 if (IN_type_symbol == NULL) |
13654 if (IN_type_symbol == NULL) |
13282 IN_type_symbol = last_type_symbol; |
13655 IN_type_symbol = last_type_symbol; |
13283 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13656 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13284 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13657 symbol_c * return_type_symbol = &search_constant_type_c::integer; |
13285 function_type_prefix = return_type_symbol; |
13658 function_type_prefix = return_type_symbol; |
13286 break; |
13659 break; |
13287 |
13660 |
13288 } |
13661 } |
13300 case function_date_and_time_to_time_of_day : |
13673 case function_date_and_time_to_time_of_day : |
13301 { |
13674 { |
13302 symbol_c *last_type_symbol = NULL; |
13675 symbol_c *last_type_symbol = NULL; |
13303 |
13676 |
13304 { |
13677 { |
|
13678 identifier_c IN_param_name("IN"); |
13305 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13679 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13306 symbol_c *IN_param_value = &this->default_variable_name; |
13680 symbol_c *IN_param_value = &this->default_variable_name; |
13307 |
13681 |
13308 symbol_c *IN_type_symbol = param_data_type; |
13682 symbol_c *IN_type_symbol = param_data_type; |
13309 last_type_symbol = param_data_type; |
13683 last_type_symbol = param_data_type; |
13313 |
13687 |
13314 function_name = (symbol_c*)(new pragma_c("__date_and_time_to_time_of_day")); |
13688 function_name = (symbol_c*)(new pragma_c("__date_and_time_to_time_of_day")); |
13315 |
13689 |
13316 if (IN_type_symbol == NULL) |
13690 if (IN_type_symbol == NULL) |
13317 IN_type_symbol = last_type_symbol; |
13691 IN_type_symbol = last_type_symbol; |
13318 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13692 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13319 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
13693 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
13320 break; |
13694 break; |
13321 |
13695 |
13322 } |
13696 } |
13323 |
13697 |
13334 case function_date_and_time_to_date : |
13708 case function_date_and_time_to_date : |
13335 { |
13709 { |
13336 symbol_c *last_type_symbol = NULL; |
13710 symbol_c *last_type_symbol = NULL; |
13337 |
13711 |
13338 { |
13712 { |
|
13713 identifier_c IN_param_name("IN"); |
13339 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13714 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13340 symbol_c *IN_param_value = &this->default_variable_name; |
13715 symbol_c *IN_param_value = &this->default_variable_name; |
13341 |
13716 |
13342 symbol_c *IN_type_symbol = param_data_type; |
13717 symbol_c *IN_type_symbol = param_data_type; |
13343 last_type_symbol = param_data_type; |
13718 last_type_symbol = param_data_type; |
13347 |
13722 |
13348 function_name = (symbol_c*)(new pragma_c("__date_and_time_to_date")); |
13723 function_name = (symbol_c*)(new pragma_c("__date_and_time_to_date")); |
13349 |
13724 |
13350 if (IN_type_symbol == NULL) |
13725 if (IN_type_symbol == NULL) |
13351 IN_type_symbol = last_type_symbol; |
13726 IN_type_symbol = last_type_symbol; |
13352 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13727 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13353 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
13728 symbol_c * return_type_symbol = &search_constant_type_c::date_type_name; |
13354 break; |
13729 break; |
13355 |
13730 |
13356 } |
13731 } |
13357 |
13732 |
13368 case function_abs : |
13743 case function_abs : |
13369 { |
13744 { |
13370 symbol_c *last_type_symbol = NULL; |
13745 symbol_c *last_type_symbol = NULL; |
13371 |
13746 |
13372 { |
13747 { |
|
13748 identifier_c IN_param_name("IN"); |
13373 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13749 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13374 symbol_c *IN_param_value = &this->default_variable_name; |
13750 symbol_c *IN_param_value = &this->default_variable_name; |
13375 |
13751 |
13376 symbol_c *IN_type_symbol = param_data_type; |
13752 symbol_c *IN_type_symbol = param_data_type; |
13377 last_type_symbol = param_data_type; |
13753 last_type_symbol = param_data_type; |
13381 |
13757 |
13382 function_name = (symbol_c*)(new pragma_c("__abs_")); |
13758 function_name = (symbol_c*)(new pragma_c("__abs_")); |
13383 |
13759 |
13384 if (IN_type_symbol == NULL) |
13760 if (IN_type_symbol == NULL) |
13385 IN_type_symbol = last_type_symbol; |
13761 IN_type_symbol = last_type_symbol; |
13386 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13762 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13387 symbol_c * return_type_symbol = IN_type_symbol; |
13763 symbol_c * return_type_symbol = IN_type_symbol; |
13388 function_type_suffix = IN_type_symbol; |
13764 function_type_suffix = IN_type_symbol; |
13389 break; |
13765 break; |
13390 |
13766 |
13391 } |
13767 } |
13403 case function_sqrt : |
13779 case function_sqrt : |
13404 { |
13780 { |
13405 symbol_c *last_type_symbol = NULL; |
13781 symbol_c *last_type_symbol = NULL; |
13406 |
13782 |
13407 { |
13783 { |
|
13784 identifier_c IN_param_name("IN"); |
13408 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13785 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13409 symbol_c *IN_param_value = &this->default_variable_name; |
13786 symbol_c *IN_param_value = &this->default_variable_name; |
13410 |
13787 |
13411 symbol_c *IN_type_symbol = param_data_type; |
13788 symbol_c *IN_type_symbol = param_data_type; |
13412 last_type_symbol = param_data_type; |
13789 last_type_symbol = param_data_type; |
13416 |
13793 |
13417 function_name = (symbol_c*)(new pragma_c("__sqrt_")); |
13794 function_name = (symbol_c*)(new pragma_c("__sqrt_")); |
13418 |
13795 |
13419 if (IN_type_symbol == NULL) |
13796 if (IN_type_symbol == NULL) |
13420 IN_type_symbol = last_type_symbol; |
13797 IN_type_symbol = last_type_symbol; |
13421 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13798 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13422 symbol_c * return_type_symbol = IN_type_symbol; |
13799 symbol_c * return_type_symbol = IN_type_symbol; |
13423 function_type_suffix = IN_type_symbol; |
13800 function_type_suffix = IN_type_symbol; |
13424 break; |
13801 break; |
13425 |
13802 |
13426 } |
13803 } |
13438 case function_ln : |
13815 case function_ln : |
13439 { |
13816 { |
13440 symbol_c *last_type_symbol = NULL; |
13817 symbol_c *last_type_symbol = NULL; |
13441 |
13818 |
13442 { |
13819 { |
|
13820 identifier_c IN_param_name("IN"); |
13443 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13821 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13444 symbol_c *IN_param_value = &this->default_variable_name; |
13822 symbol_c *IN_param_value = &this->default_variable_name; |
13445 |
13823 |
13446 symbol_c *IN_type_symbol = param_data_type; |
13824 symbol_c *IN_type_symbol = param_data_type; |
13447 last_type_symbol = param_data_type; |
13825 last_type_symbol = param_data_type; |
13451 |
13829 |
13452 function_name = (symbol_c*)(new pragma_c("__ln_")); |
13830 function_name = (symbol_c*)(new pragma_c("__ln_")); |
13453 |
13831 |
13454 if (IN_type_symbol == NULL) |
13832 if (IN_type_symbol == NULL) |
13455 IN_type_symbol = last_type_symbol; |
13833 IN_type_symbol = last_type_symbol; |
13456 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13834 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13457 symbol_c * return_type_symbol = IN_type_symbol; |
13835 symbol_c * return_type_symbol = IN_type_symbol; |
13458 function_type_suffix = IN_type_symbol; |
13836 function_type_suffix = IN_type_symbol; |
13459 break; |
13837 break; |
13460 |
13838 |
13461 } |
13839 } |
13473 case function_log : |
13851 case function_log : |
13474 { |
13852 { |
13475 symbol_c *last_type_symbol = NULL; |
13853 symbol_c *last_type_symbol = NULL; |
13476 |
13854 |
13477 { |
13855 { |
|
13856 identifier_c IN_param_name("IN"); |
13478 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13857 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13479 symbol_c *IN_param_value = &this->default_variable_name; |
13858 symbol_c *IN_param_value = &this->default_variable_name; |
13480 |
13859 |
13481 symbol_c *IN_type_symbol = param_data_type; |
13860 symbol_c *IN_type_symbol = param_data_type; |
13482 last_type_symbol = param_data_type; |
13861 last_type_symbol = param_data_type; |
13486 |
13865 |
13487 function_name = (symbol_c*)(new pragma_c("__log_")); |
13866 function_name = (symbol_c*)(new pragma_c("__log_")); |
13488 |
13867 |
13489 if (IN_type_symbol == NULL) |
13868 if (IN_type_symbol == NULL) |
13490 IN_type_symbol = last_type_symbol; |
13869 IN_type_symbol = last_type_symbol; |
13491 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13870 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13492 symbol_c * return_type_symbol = IN_type_symbol; |
13871 symbol_c * return_type_symbol = IN_type_symbol; |
13493 function_type_suffix = IN_type_symbol; |
13872 function_type_suffix = IN_type_symbol; |
13494 break; |
13873 break; |
13495 |
13874 |
13496 } |
13875 } |
13508 case function_exp : |
13887 case function_exp : |
13509 { |
13888 { |
13510 symbol_c *last_type_symbol = NULL; |
13889 symbol_c *last_type_symbol = NULL; |
13511 |
13890 |
13512 { |
13891 { |
|
13892 identifier_c IN_param_name("IN"); |
13513 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13893 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13514 symbol_c *IN_param_value = &this->default_variable_name; |
13894 symbol_c *IN_param_value = &this->default_variable_name; |
13515 |
13895 |
13516 symbol_c *IN_type_symbol = param_data_type; |
13896 symbol_c *IN_type_symbol = param_data_type; |
13517 last_type_symbol = param_data_type; |
13897 last_type_symbol = param_data_type; |
13521 |
13901 |
13522 function_name = (symbol_c*)(new pragma_c("__exp_")); |
13902 function_name = (symbol_c*)(new pragma_c("__exp_")); |
13523 |
13903 |
13524 if (IN_type_symbol == NULL) |
13904 if (IN_type_symbol == NULL) |
13525 IN_type_symbol = last_type_symbol; |
13905 IN_type_symbol = last_type_symbol; |
13526 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13906 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13527 symbol_c * return_type_symbol = IN_type_symbol; |
13907 symbol_c * return_type_symbol = IN_type_symbol; |
13528 function_type_suffix = IN_type_symbol; |
13908 function_type_suffix = IN_type_symbol; |
13529 break; |
13909 break; |
13530 |
13910 |
13531 } |
13911 } |
13543 case function_sin : |
13923 case function_sin : |
13544 { |
13924 { |
13545 symbol_c *last_type_symbol = NULL; |
13925 symbol_c *last_type_symbol = NULL; |
13546 |
13926 |
13547 { |
13927 { |
|
13928 identifier_c IN_param_name("IN"); |
13548 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13929 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13549 symbol_c *IN_param_value = &this->default_variable_name; |
13930 symbol_c *IN_param_value = &this->default_variable_name; |
13550 |
13931 |
13551 symbol_c *IN_type_symbol = param_data_type; |
13932 symbol_c *IN_type_symbol = param_data_type; |
13552 last_type_symbol = param_data_type; |
13933 last_type_symbol = param_data_type; |
13556 |
13937 |
13557 function_name = (symbol_c*)(new pragma_c("__sin_")); |
13938 function_name = (symbol_c*)(new pragma_c("__sin_")); |
13558 |
13939 |
13559 if (IN_type_symbol == NULL) |
13940 if (IN_type_symbol == NULL) |
13560 IN_type_symbol = last_type_symbol; |
13941 IN_type_symbol = last_type_symbol; |
13561 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13942 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13562 symbol_c * return_type_symbol = IN_type_symbol; |
13943 symbol_c * return_type_symbol = IN_type_symbol; |
13563 function_type_suffix = IN_type_symbol; |
13944 function_type_suffix = IN_type_symbol; |
13564 break; |
13945 break; |
13565 |
13946 |
13566 } |
13947 } |
13578 case function_cos : |
13959 case function_cos : |
13579 { |
13960 { |
13580 symbol_c *last_type_symbol = NULL; |
13961 symbol_c *last_type_symbol = NULL; |
13581 |
13962 |
13582 { |
13963 { |
|
13964 identifier_c IN_param_name("IN"); |
13583 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13965 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13584 symbol_c *IN_param_value = &this->default_variable_name; |
13966 symbol_c *IN_param_value = &this->default_variable_name; |
13585 |
13967 |
13586 symbol_c *IN_type_symbol = param_data_type; |
13968 symbol_c *IN_type_symbol = param_data_type; |
13587 last_type_symbol = param_data_type; |
13969 last_type_symbol = param_data_type; |
13591 |
13973 |
13592 function_name = (symbol_c*)(new pragma_c("__cos_")); |
13974 function_name = (symbol_c*)(new pragma_c("__cos_")); |
13593 |
13975 |
13594 if (IN_type_symbol == NULL) |
13976 if (IN_type_symbol == NULL) |
13595 IN_type_symbol = last_type_symbol; |
13977 IN_type_symbol = last_type_symbol; |
13596 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13978 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13597 symbol_c * return_type_symbol = IN_type_symbol; |
13979 symbol_c * return_type_symbol = IN_type_symbol; |
13598 function_type_suffix = IN_type_symbol; |
13980 function_type_suffix = IN_type_symbol; |
13599 break; |
13981 break; |
13600 |
13982 |
13601 } |
13983 } |
13613 case function_tan : |
13995 case function_tan : |
13614 { |
13996 { |
13615 symbol_c *last_type_symbol = NULL; |
13997 symbol_c *last_type_symbol = NULL; |
13616 |
13998 |
13617 { |
13999 { |
|
14000 identifier_c IN_param_name("IN"); |
13618 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14001 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13619 symbol_c *IN_param_value = &this->default_variable_name; |
14002 symbol_c *IN_param_value = &this->default_variable_name; |
13620 |
14003 |
13621 symbol_c *IN_type_symbol = param_data_type; |
14004 symbol_c *IN_type_symbol = param_data_type; |
13622 last_type_symbol = param_data_type; |
14005 last_type_symbol = param_data_type; |
13626 |
14009 |
13627 function_name = (symbol_c*)(new pragma_c("__tan_")); |
14010 function_name = (symbol_c*)(new pragma_c("__tan_")); |
13628 |
14011 |
13629 if (IN_type_symbol == NULL) |
14012 if (IN_type_symbol == NULL) |
13630 IN_type_symbol = last_type_symbol; |
14013 IN_type_symbol = last_type_symbol; |
13631 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14014 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13632 symbol_c * return_type_symbol = IN_type_symbol; |
14015 symbol_c * return_type_symbol = IN_type_symbol; |
13633 function_type_suffix = IN_type_symbol; |
14016 function_type_suffix = IN_type_symbol; |
13634 break; |
14017 break; |
13635 |
14018 |
13636 } |
14019 } |
13648 case function_asin : |
14031 case function_asin : |
13649 { |
14032 { |
13650 symbol_c *last_type_symbol = NULL; |
14033 symbol_c *last_type_symbol = NULL; |
13651 |
14034 |
13652 { |
14035 { |
|
14036 identifier_c IN_param_name("IN"); |
13653 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14037 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13654 symbol_c *IN_param_value = &this->default_variable_name; |
14038 symbol_c *IN_param_value = &this->default_variable_name; |
13655 |
14039 |
13656 symbol_c *IN_type_symbol = param_data_type; |
14040 symbol_c *IN_type_symbol = param_data_type; |
13657 last_type_symbol = param_data_type; |
14041 last_type_symbol = param_data_type; |
13661 |
14045 |
13662 function_name = (symbol_c*)(new pragma_c("__asin_")); |
14046 function_name = (symbol_c*)(new pragma_c("__asin_")); |
13663 |
14047 |
13664 if (IN_type_symbol == NULL) |
14048 if (IN_type_symbol == NULL) |
13665 IN_type_symbol = last_type_symbol; |
14049 IN_type_symbol = last_type_symbol; |
13666 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14050 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13667 symbol_c * return_type_symbol = IN_type_symbol; |
14051 symbol_c * return_type_symbol = IN_type_symbol; |
13668 function_type_suffix = IN_type_symbol; |
14052 function_type_suffix = IN_type_symbol; |
13669 break; |
14053 break; |
13670 |
14054 |
13671 } |
14055 } |
13683 case function_acos : |
14067 case function_acos : |
13684 { |
14068 { |
13685 symbol_c *last_type_symbol = NULL; |
14069 symbol_c *last_type_symbol = NULL; |
13686 |
14070 |
13687 { |
14071 { |
|
14072 identifier_c IN_param_name("IN"); |
13688 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14073 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13689 symbol_c *IN_param_value = &this->default_variable_name; |
14074 symbol_c *IN_param_value = &this->default_variable_name; |
13690 |
14075 |
13691 symbol_c *IN_type_symbol = param_data_type; |
14076 symbol_c *IN_type_symbol = param_data_type; |
13692 last_type_symbol = param_data_type; |
14077 last_type_symbol = param_data_type; |
13696 |
14081 |
13697 function_name = (symbol_c*)(new pragma_c("__acos_")); |
14082 function_name = (symbol_c*)(new pragma_c("__acos_")); |
13698 |
14083 |
13699 if (IN_type_symbol == NULL) |
14084 if (IN_type_symbol == NULL) |
13700 IN_type_symbol = last_type_symbol; |
14085 IN_type_symbol = last_type_symbol; |
13701 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14086 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13702 symbol_c * return_type_symbol = IN_type_symbol; |
14087 symbol_c * return_type_symbol = IN_type_symbol; |
13703 function_type_suffix = IN_type_symbol; |
14088 function_type_suffix = IN_type_symbol; |
13704 break; |
14089 break; |
13705 |
14090 |
13706 } |
14091 } |
13718 case function_atan : |
14103 case function_atan : |
13719 { |
14104 { |
13720 symbol_c *last_type_symbol = NULL; |
14105 symbol_c *last_type_symbol = NULL; |
13721 |
14106 |
13722 { |
14107 { |
|
14108 identifier_c IN_param_name("IN"); |
13723 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14109 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13724 symbol_c *IN_param_value = &this->default_variable_name; |
14110 symbol_c *IN_param_value = &this->default_variable_name; |
13725 |
14111 |
13726 symbol_c *IN_type_symbol = param_data_type; |
14112 symbol_c *IN_type_symbol = param_data_type; |
13727 last_type_symbol = param_data_type; |
14113 last_type_symbol = param_data_type; |
13731 |
14117 |
13732 function_name = (symbol_c*)(new pragma_c("__atan_")); |
14118 function_name = (symbol_c*)(new pragma_c("__atan_")); |
13733 |
14119 |
13734 if (IN_type_symbol == NULL) |
14120 if (IN_type_symbol == NULL) |
13735 IN_type_symbol = last_type_symbol; |
14121 IN_type_symbol = last_type_symbol; |
13736 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14122 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
13737 symbol_c * return_type_symbol = IN_type_symbol; |
14123 symbol_c * return_type_symbol = IN_type_symbol; |
13738 function_type_suffix = IN_type_symbol; |
14124 function_type_suffix = IN_type_symbol; |
13739 break; |
14125 break; |
13740 |
14126 |
13741 } |
14127 } |
13753 case function_add : |
14139 case function_add : |
13754 { |
14140 { |
13755 symbol_c *last_type_symbol = NULL; |
14141 symbol_c *last_type_symbol = NULL; |
13756 |
14142 |
13757 { |
14143 { |
|
14144 identifier_c IN1_param_name("IN1"); |
13758 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14145 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13759 symbol_c *IN1_param_value = &this->default_variable_name; |
14146 symbol_c *IN1_param_value = &this->default_variable_name; |
13760 |
14147 |
13761 symbol_c *IN1_type_symbol = param_data_type; |
14148 symbol_c *IN1_type_symbol = param_data_type; |
13762 last_type_symbol = param_data_type; |
14149 last_type_symbol = param_data_type; |
13763 |
14150 |
13764 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14151 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
13765 { |
14152 { |
13766 |
14153 |
13767 { |
14154 { |
13768 identifier_c param_name("IN2"); |
14155 identifier_c IN2_param_name("IN2"); |
13769 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14156 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13770 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14157 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
13771 symbol_c *IN2_type_symbol = NULL; |
14158 symbol_c *IN2_type_symbol = NULL; |
13772 |
14159 |
13773 /* Get the value from a foo(<param_value>) style call */ |
14160 /* Get the value from a foo(<param_value>) style call */ |
13774 if (IN2_param_value == NULL) |
14161 if (IN2_param_value == NULL) |
13775 IN2_param_value = function_call_param_iterator.next_nf(); |
14162 IN2_param_value = function_call_param_iterator.next_nf(); |
13785 |
14172 |
13786 if (nb_param < 2) |
14173 if (nb_param < 2) |
13787 nb_param = 2; |
14174 nb_param = 2; |
13788 char* nb_param_str = new char[10]; |
14175 char* nb_param_str = new char[10]; |
13789 sprintf(nb_param_str, "%d", nb_param); |
14176 sprintf(nb_param_str, "%d", nb_param); |
13790 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
14177 identifier_c nb_param_name("nb_param"); |
|
14178 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) |
13791 |
14179 |
13792 if (IN1_type_symbol == NULL) |
14180 if (IN1_type_symbol == NULL) |
13793 IN1_type_symbol = last_type_symbol; |
14181 IN1_type_symbol = last_type_symbol; |
13794 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14182 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
13795 |
14183 |
13796 if (IN2_type_symbol == NULL) |
14184 if (IN2_type_symbol == NULL) |
13797 IN2_type_symbol = last_type_symbol; |
14185 IN2_type_symbol = last_type_symbol; |
13798 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14186 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
13799 |
14187 |
13800 int base_num = 3; |
14188 int base_num = 3; |
13801 symbol_c *param_value = NULL; |
14189 symbol_c *param_value = NULL; |
13802 do{ |
14190 do{ |
13803 char my_name[10]; |
14191 char my_name[10]; |
13813 if (param_value != NULL){ |
14201 if (param_value != NULL){ |
13814 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
14202 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
13815 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 ; |
14203 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 ; |
13816 |
14204 |
13817 /*Function specific CODE */ |
14205 /*Function specific CODE */ |
13818 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
14206 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
13819 } |
14207 } |
13820 |
14208 |
13821 }while(param_value != NULL); |
14209 }while(param_value != NULL); |
13822 symbol_c * return_type_symbol; |
14210 symbol_c * return_type_symbol; |
13823 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14211 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
13839 |
14227 |
13840 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol)) |
14228 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol)) |
13841 { |
14229 { |
13842 |
14230 |
13843 { |
14231 { |
13844 identifier_c param_name("IN2"); |
14232 identifier_c IN2_param_name("IN2"); |
13845 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14233 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13846 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14234 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
13847 symbol_c *IN2_type_symbol = NULL; |
14235 symbol_c *IN2_type_symbol = NULL; |
13848 |
14236 |
13849 /* Get the value from a foo(<param_value>) style call */ |
14237 /* Get the value from a foo(<param_value>) style call */ |
13850 if (IN2_param_value == NULL) |
14238 if (IN2_param_value == NULL) |
13851 IN2_param_value = function_call_param_iterator.next_nf(); |
14239 IN2_param_value = function_call_param_iterator.next_nf(); |
13859 |
14247 |
13860 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14248 function_name = (symbol_c*)(new pragma_c("__time_add")); |
13861 |
14249 |
13862 if (IN1_type_symbol == NULL) |
14250 if (IN1_type_symbol == NULL) |
13863 IN1_type_symbol = last_type_symbol; |
14251 IN1_type_symbol = last_type_symbol; |
13864 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14252 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
13865 |
14253 |
13866 if (IN2_type_symbol == NULL) |
14254 if (IN2_type_symbol == NULL) |
13867 IN2_type_symbol = last_type_symbol; |
14255 IN2_type_symbol = last_type_symbol; |
13868 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14256 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
13869 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
14257 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
13870 break; |
14258 break; |
13871 |
14259 |
13872 } |
14260 } |
13873 |
14261 |
13879 |
14267 |
13880 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol)) |
14268 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol)) |
13881 { |
14269 { |
13882 |
14270 |
13883 { |
14271 { |
13884 identifier_c param_name("IN2"); |
14272 identifier_c IN2_param_name("IN2"); |
13885 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14273 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13886 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14274 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
13887 symbol_c *IN2_type_symbol = NULL; |
14275 symbol_c *IN2_type_symbol = NULL; |
13888 |
14276 |
13889 /* Get the value from a foo(<param_value>) style call */ |
14277 /* Get the value from a foo(<param_value>) style call */ |
13890 if (IN2_param_value == NULL) |
14278 if (IN2_param_value == NULL) |
13891 IN2_param_value = function_call_param_iterator.next_nf(); |
14279 IN2_param_value = function_call_param_iterator.next_nf(); |
13899 |
14287 |
13900 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14288 function_name = (symbol_c*)(new pragma_c("__time_add")); |
13901 |
14289 |
13902 if (IN1_type_symbol == NULL) |
14290 if (IN1_type_symbol == NULL) |
13903 IN1_type_symbol = last_type_symbol; |
14291 IN1_type_symbol = last_type_symbol; |
13904 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14292 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
13905 |
14293 |
13906 if (IN2_type_symbol == NULL) |
14294 if (IN2_type_symbol == NULL) |
13907 IN2_type_symbol = last_type_symbol; |
14295 IN2_type_symbol = last_type_symbol; |
13908 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14296 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
13909 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
14297 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
13910 break; |
14298 break; |
13911 |
14299 |
13912 } |
14300 } |
13913 |
14301 |
13919 |
14307 |
13920 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14308 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
13921 { |
14309 { |
13922 |
14310 |
13923 { |
14311 { |
13924 identifier_c param_name("IN2"); |
14312 identifier_c IN2_param_name("IN2"); |
13925 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14313 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13926 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14314 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
13927 symbol_c *IN2_type_symbol = NULL; |
14315 symbol_c *IN2_type_symbol = NULL; |
13928 |
14316 |
13929 /* Get the value from a foo(<param_value>) style call */ |
14317 /* Get the value from a foo(<param_value>) style call */ |
13930 if (IN2_param_value == NULL) |
14318 if (IN2_param_value == NULL) |
13931 IN2_param_value = function_call_param_iterator.next_nf(); |
14319 IN2_param_value = function_call_param_iterator.next_nf(); |
13939 |
14327 |
13940 function_name = (symbol_c*)(new pragma_c("__time_add")); |
14328 function_name = (symbol_c*)(new pragma_c("__time_add")); |
13941 |
14329 |
13942 if (IN1_type_symbol == NULL) |
14330 if (IN1_type_symbol == NULL) |
13943 IN1_type_symbol = last_type_symbol; |
14331 IN1_type_symbol = last_type_symbol; |
13944 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14332 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
13945 |
14333 |
13946 if (IN2_type_symbol == NULL) |
14334 if (IN2_type_symbol == NULL) |
13947 IN2_type_symbol = last_type_symbol; |
14335 IN2_type_symbol = last_type_symbol; |
13948 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14336 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
13949 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14337 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
13950 break; |
14338 break; |
13951 |
14339 |
13952 } |
14340 } |
13953 |
14341 |
13970 case function_mul : |
14358 case function_mul : |
13971 { |
14359 { |
13972 symbol_c *last_type_symbol = NULL; |
14360 symbol_c *last_type_symbol = NULL; |
13973 |
14361 |
13974 { |
14362 { |
|
14363 identifier_c IN1_param_name("IN1"); |
13975 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14364 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13976 symbol_c *IN1_param_value = &this->default_variable_name; |
14365 symbol_c *IN1_param_value = &this->default_variable_name; |
13977 |
14366 |
13978 symbol_c *IN1_type_symbol = param_data_type; |
14367 symbol_c *IN1_type_symbol = param_data_type; |
13979 last_type_symbol = param_data_type; |
14368 last_type_symbol = param_data_type; |
13980 |
14369 |
13981 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14370 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
13982 { |
14371 { |
13983 |
14372 |
13984 { |
14373 { |
13985 identifier_c param_name("IN2"); |
14374 identifier_c IN2_param_name("IN2"); |
13986 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14375 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
13987 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14376 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
13988 symbol_c *IN2_type_symbol = NULL; |
14377 symbol_c *IN2_type_symbol = NULL; |
13989 |
14378 |
13990 /* Get the value from a foo(<param_value>) style call */ |
14379 /* Get the value from a foo(<param_value>) style call */ |
13991 if (IN2_param_value == NULL) |
14380 if (IN2_param_value == NULL) |
13992 IN2_param_value = function_call_param_iterator.next_nf(); |
14381 IN2_param_value = function_call_param_iterator.next_nf(); |
14002 |
14391 |
14003 if (nb_param < 2) |
14392 if (nb_param < 2) |
14004 nb_param = 2; |
14393 nb_param = 2; |
14005 char* nb_param_str = new char[10]; |
14394 char* nb_param_str = new char[10]; |
14006 sprintf(nb_param_str, "%d", nb_param); |
14395 sprintf(nb_param_str, "%d", nb_param); |
14007 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
14396 identifier_c nb_param_name("nb_param"); |
|
14397 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) |
14008 |
14398 |
14009 if (IN1_type_symbol == NULL) |
14399 if (IN1_type_symbol == NULL) |
14010 IN1_type_symbol = last_type_symbol; |
14400 IN1_type_symbol = last_type_symbol; |
14011 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14401 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14012 |
14402 |
14013 if (IN2_type_symbol == NULL) |
14403 if (IN2_type_symbol == NULL) |
14014 IN2_type_symbol = last_type_symbol; |
14404 IN2_type_symbol = last_type_symbol; |
14015 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14405 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14016 |
14406 |
14017 int base_num = 3; |
14407 int base_num = 3; |
14018 symbol_c *param_value = NULL; |
14408 symbol_c *param_value = NULL; |
14019 do{ |
14409 do{ |
14020 char my_name[10]; |
14410 char my_name[10]; |
14030 if (param_value != NULL){ |
14420 if (param_value != NULL){ |
14031 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
14421 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
14032 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 ; |
14422 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 ; |
14033 |
14423 |
14034 /*Function specific CODE */ |
14424 /*Function specific CODE */ |
14035 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
14425 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
14036 } |
14426 } |
14037 |
14427 |
14038 }while(param_value != NULL); |
14428 }while(param_value != NULL); |
14039 symbol_c * return_type_symbol; |
14429 symbol_c * return_type_symbol; |
14040 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14430 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14056 |
14446 |
14057 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14447 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14058 { |
14448 { |
14059 |
14449 |
14060 { |
14450 { |
14061 identifier_c param_name("IN2"); |
14451 identifier_c IN2_param_name("IN2"); |
14062 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14452 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14063 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14453 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14064 symbol_c *IN2_type_symbol = NULL; |
14454 symbol_c *IN2_type_symbol = NULL; |
14065 |
14455 |
14066 /* Get the value from a foo(<param_value>) style call */ |
14456 /* Get the value from a foo(<param_value>) style call */ |
14067 if (IN2_param_value == NULL) |
14457 if (IN2_param_value == NULL) |
14068 IN2_param_value = function_call_param_iterator.next_nf(); |
14458 IN2_param_value = function_call_param_iterator.next_nf(); |
14076 |
14466 |
14077 function_name = (symbol_c*)(new pragma_c("__time_mul")); |
14467 function_name = (symbol_c*)(new pragma_c("__time_mul")); |
14078 |
14468 |
14079 if (IN1_type_symbol == NULL) |
14469 if (IN1_type_symbol == NULL) |
14080 IN1_type_symbol = last_type_symbol; |
14470 IN1_type_symbol = last_type_symbol; |
14081 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14471 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14082 |
14472 |
14083 if (IN2_type_symbol == NULL) |
14473 if (IN2_type_symbol == NULL) |
14084 IN2_type_symbol = last_type_symbol; |
14474 IN2_type_symbol = last_type_symbol; |
14085 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14475 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14086 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14476 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14087 break; |
14477 break; |
14088 |
14478 |
14089 } |
14479 } |
14090 |
14480 |
14107 case function_sub : |
14497 case function_sub : |
14108 { |
14498 { |
14109 symbol_c *last_type_symbol = NULL; |
14499 symbol_c *last_type_symbol = NULL; |
14110 |
14500 |
14111 { |
14501 { |
|
14502 identifier_c IN1_param_name("IN1"); |
14112 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14503 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14113 symbol_c *IN1_param_value = &this->default_variable_name; |
14504 symbol_c *IN1_param_value = &this->default_variable_name; |
14114 |
14505 |
14115 symbol_c *IN1_type_symbol = param_data_type; |
14506 symbol_c *IN1_type_symbol = param_data_type; |
14116 last_type_symbol = param_data_type; |
14507 last_type_symbol = param_data_type; |
14117 |
14508 |
14118 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14509 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14119 { |
14510 { |
14120 |
14511 |
14121 { |
14512 { |
14122 identifier_c param_name("IN2"); |
14513 identifier_c IN2_param_name("IN2"); |
14123 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14514 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14124 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14515 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14125 symbol_c *IN2_type_symbol = NULL; |
14516 symbol_c *IN2_type_symbol = NULL; |
14126 |
14517 |
14127 /* Get the value from a foo(<param_value>) style call */ |
14518 /* Get the value from a foo(<param_value>) style call */ |
14128 if (IN2_param_value == NULL) |
14519 if (IN2_param_value == NULL) |
14129 IN2_param_value = function_call_param_iterator.next_nf(); |
14520 IN2_param_value = function_call_param_iterator.next_nf(); |
14137 |
14528 |
14138 function_name = (symbol_c*)(new pragma_c("__sub_")); |
14529 function_name = (symbol_c*)(new pragma_c("__sub_")); |
14139 |
14530 |
14140 if (IN1_type_symbol == NULL) |
14531 if (IN1_type_symbol == NULL) |
14141 IN1_type_symbol = last_type_symbol; |
14532 IN1_type_symbol = last_type_symbol; |
14142 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14533 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14143 |
14534 |
14144 if (IN2_type_symbol == NULL) |
14535 if (IN2_type_symbol == NULL) |
14145 IN2_type_symbol = last_type_symbol; |
14536 IN2_type_symbol = last_type_symbol; |
14146 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14537 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14147 symbol_c * return_type_symbol; |
14538 symbol_c * return_type_symbol; |
14148 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14539 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14149 return_type_symbol = &search_constant_type_c::lint_type_name; |
14540 return_type_symbol = &search_constant_type_c::lint_type_name; |
14150 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14541 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14151 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14542 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14164 |
14555 |
14165 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol)) |
14556 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol)) |
14166 { |
14557 { |
14167 |
14558 |
14168 { |
14559 { |
14169 identifier_c param_name("IN2"); |
14560 identifier_c IN2_param_name("IN2"); |
14170 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14561 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14171 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14562 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14172 symbol_c *IN2_type_symbol = NULL; |
14563 symbol_c *IN2_type_symbol = NULL; |
14173 |
14564 |
14174 /* Get the value from a foo(<param_value>) style call */ |
14565 /* Get the value from a foo(<param_value>) style call */ |
14175 if (IN2_param_value == NULL) |
14566 if (IN2_param_value == NULL) |
14176 IN2_param_value = function_call_param_iterator.next_nf(); |
14567 IN2_param_value = function_call_param_iterator.next_nf(); |
14184 |
14575 |
14185 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14576 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14186 |
14577 |
14187 if (IN1_type_symbol == NULL) |
14578 if (IN1_type_symbol == NULL) |
14188 IN1_type_symbol = last_type_symbol; |
14579 IN1_type_symbol = last_type_symbol; |
14189 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14580 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14190 |
14581 |
14191 if (IN2_type_symbol == NULL) |
14582 if (IN2_type_symbol == NULL) |
14192 IN2_type_symbol = last_type_symbol; |
14583 IN2_type_symbol = last_type_symbol; |
14193 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14584 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14194 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14585 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14195 break; |
14586 break; |
14196 |
14587 |
14197 } |
14588 } |
14198 |
14589 |
14204 |
14595 |
14205 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol)) |
14596 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::dt_type_name, last_type_symbol)) |
14206 { |
14597 { |
14207 |
14598 |
14208 { |
14599 { |
14209 identifier_c param_name("IN2"); |
14600 identifier_c IN2_param_name("IN2"); |
14210 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14601 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14211 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14602 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14212 symbol_c *IN2_type_symbol = NULL; |
14603 symbol_c *IN2_type_symbol = NULL; |
14213 |
14604 |
14214 /* Get the value from a foo(<param_value>) style call */ |
14605 /* Get the value from a foo(<param_value>) style call */ |
14215 if (IN2_param_value == NULL) |
14606 if (IN2_param_value == NULL) |
14216 IN2_param_value = function_call_param_iterator.next_nf(); |
14607 IN2_param_value = function_call_param_iterator.next_nf(); |
14224 |
14615 |
14225 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14616 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14226 |
14617 |
14227 if (IN1_type_symbol == NULL) |
14618 if (IN1_type_symbol == NULL) |
14228 IN1_type_symbol = last_type_symbol; |
14619 IN1_type_symbol = last_type_symbol; |
14229 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14620 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14230 |
14621 |
14231 if (IN2_type_symbol == NULL) |
14622 if (IN2_type_symbol == NULL) |
14232 IN2_type_symbol = last_type_symbol; |
14623 IN2_type_symbol = last_type_symbol; |
14233 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14624 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14234 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14625 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14235 break; |
14626 break; |
14236 |
14627 |
14237 } |
14628 } |
14238 |
14629 |
14241 |
14632 |
14242 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14633 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14243 |
14634 |
14244 if (IN1_type_symbol == NULL) |
14635 if (IN1_type_symbol == NULL) |
14245 IN1_type_symbol = last_type_symbol; |
14636 IN1_type_symbol = last_type_symbol; |
14246 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14637 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14247 |
14638 |
14248 if (IN2_type_symbol == NULL) |
14639 if (IN2_type_symbol == NULL) |
14249 IN2_type_symbol = last_type_symbol; |
14640 IN2_type_symbol = last_type_symbol; |
14250 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14641 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14251 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
14642 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
14252 break; |
14643 break; |
14253 |
14644 |
14254 } |
14645 } |
14255 |
14646 |
14261 |
14652 |
14262 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol)) |
14653 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::tod_type_name, last_type_symbol)) |
14263 { |
14654 { |
14264 |
14655 |
14265 { |
14656 { |
14266 identifier_c param_name("IN2"); |
14657 identifier_c IN2_param_name("IN2"); |
14267 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14658 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14268 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14659 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14269 symbol_c *IN2_type_symbol = NULL; |
14660 symbol_c *IN2_type_symbol = NULL; |
14270 |
14661 |
14271 /* Get the value from a foo(<param_value>) style call */ |
14662 /* Get the value from a foo(<param_value>) style call */ |
14272 if (IN2_param_value == NULL) |
14663 if (IN2_param_value == NULL) |
14273 IN2_param_value = function_call_param_iterator.next_nf(); |
14664 IN2_param_value = function_call_param_iterator.next_nf(); |
14281 |
14672 |
14282 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14673 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14283 |
14674 |
14284 if (IN1_type_symbol == NULL) |
14675 if (IN1_type_symbol == NULL) |
14285 IN1_type_symbol = last_type_symbol; |
14676 IN1_type_symbol = last_type_symbol; |
14286 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14677 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14287 |
14678 |
14288 if (IN2_type_symbol == NULL) |
14679 if (IN2_type_symbol == NULL) |
14289 IN2_type_symbol = last_type_symbol; |
14680 IN2_type_symbol = last_type_symbol; |
14290 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14681 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14291 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14682 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14292 break; |
14683 break; |
14293 |
14684 |
14294 } |
14685 } |
14295 |
14686 |
14298 |
14689 |
14299 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14690 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14300 |
14691 |
14301 if (IN1_type_symbol == NULL) |
14692 if (IN1_type_symbol == NULL) |
14302 IN1_type_symbol = last_type_symbol; |
14693 IN1_type_symbol = last_type_symbol; |
14303 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14694 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14304 |
14695 |
14305 if (IN2_type_symbol == NULL) |
14696 if (IN2_type_symbol == NULL) |
14306 IN2_type_symbol = last_type_symbol; |
14697 IN2_type_symbol = last_type_symbol; |
14307 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14698 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14308 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
14699 symbol_c * return_type_symbol = &search_constant_type_c::tod_type_name; |
14309 break; |
14700 break; |
14310 |
14701 |
14311 } |
14702 } |
14312 |
14703 |
14318 |
14709 |
14319 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14710 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14320 { |
14711 { |
14321 |
14712 |
14322 { |
14713 { |
14323 identifier_c param_name("IN2"); |
14714 identifier_c IN2_param_name("IN2"); |
14324 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14715 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14325 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14716 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14326 symbol_c *IN2_type_symbol = NULL; |
14717 symbol_c *IN2_type_symbol = NULL; |
14327 |
14718 |
14328 /* Get the value from a foo(<param_value>) style call */ |
14719 /* Get the value from a foo(<param_value>) style call */ |
14329 if (IN2_param_value == NULL) |
14720 if (IN2_param_value == NULL) |
14330 IN2_param_value = function_call_param_iterator.next_nf(); |
14721 IN2_param_value = function_call_param_iterator.next_nf(); |
14338 |
14729 |
14339 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14730 function_name = (symbol_c*)(new pragma_c("__time_sub")); |
14340 |
14731 |
14341 if (IN1_type_symbol == NULL) |
14732 if (IN1_type_symbol == NULL) |
14342 IN1_type_symbol = last_type_symbol; |
14733 IN1_type_symbol = last_type_symbol; |
14343 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14734 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14344 |
14735 |
14345 if (IN2_type_symbol == NULL) |
14736 if (IN2_type_symbol == NULL) |
14346 IN2_type_symbol = last_type_symbol; |
14737 IN2_type_symbol = last_type_symbol; |
14347 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14738 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14348 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14739 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14349 break; |
14740 break; |
14350 |
14741 |
14351 } |
14742 } |
14352 |
14743 |
14369 case function_div : |
14760 case function_div : |
14370 { |
14761 { |
14371 symbol_c *last_type_symbol = NULL; |
14762 symbol_c *last_type_symbol = NULL; |
14372 |
14763 |
14373 { |
14764 { |
|
14765 identifier_c IN1_param_name("IN1"); |
14374 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14766 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14375 symbol_c *IN1_param_value = &this->default_variable_name; |
14767 symbol_c *IN1_param_value = &this->default_variable_name; |
14376 |
14768 |
14377 symbol_c *IN1_type_symbol = param_data_type; |
14769 symbol_c *IN1_type_symbol = param_data_type; |
14378 last_type_symbol = param_data_type; |
14770 last_type_symbol = param_data_type; |
14379 |
14771 |
14380 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14772 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14381 { |
14773 { |
14382 |
14774 |
14383 { |
14775 { |
14384 identifier_c param_name("IN2"); |
14776 identifier_c IN2_param_name("IN2"); |
14385 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14777 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14386 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14778 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14387 symbol_c *IN2_type_symbol = NULL; |
14779 symbol_c *IN2_type_symbol = NULL; |
14388 |
14780 |
14389 /* Get the value from a foo(<param_value>) style call */ |
14781 /* Get the value from a foo(<param_value>) style call */ |
14390 if (IN2_param_value == NULL) |
14782 if (IN2_param_value == NULL) |
14391 IN2_param_value = function_call_param_iterator.next_nf(); |
14783 IN2_param_value = function_call_param_iterator.next_nf(); |
14399 |
14791 |
14400 function_name = (symbol_c*)(new pragma_c("__div_")); |
14792 function_name = (symbol_c*)(new pragma_c("__div_")); |
14401 |
14793 |
14402 if (IN1_type_symbol == NULL) |
14794 if (IN1_type_symbol == NULL) |
14403 IN1_type_symbol = last_type_symbol; |
14795 IN1_type_symbol = last_type_symbol; |
14404 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14796 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14405 |
14797 |
14406 if (IN2_type_symbol == NULL) |
14798 if (IN2_type_symbol == NULL) |
14407 IN2_type_symbol = last_type_symbol; |
14799 IN2_type_symbol = last_type_symbol; |
14408 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14800 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14409 symbol_c * return_type_symbol; |
14801 symbol_c * return_type_symbol; |
14410 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14802 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14411 return_type_symbol = &search_constant_type_c::lint_type_name; |
14803 return_type_symbol = &search_constant_type_c::lint_type_name; |
14412 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14804 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14413 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14805 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14426 |
14818 |
14427 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14819 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::time_type_name, last_type_symbol)) |
14428 { |
14820 { |
14429 |
14821 |
14430 { |
14822 { |
14431 identifier_c param_name("IN2"); |
14823 identifier_c IN2_param_name("IN2"); |
14432 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14824 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14433 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14825 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14434 symbol_c *IN2_type_symbol = NULL; |
14826 symbol_c *IN2_type_symbol = NULL; |
14435 |
14827 |
14436 /* Get the value from a foo(<param_value>) style call */ |
14828 /* Get the value from a foo(<param_value>) style call */ |
14437 if (IN2_param_value == NULL) |
14829 if (IN2_param_value == NULL) |
14438 IN2_param_value = function_call_param_iterator.next_nf(); |
14830 IN2_param_value = function_call_param_iterator.next_nf(); |
14446 |
14838 |
14447 function_name = (symbol_c*)(new pragma_c("__time_div")); |
14839 function_name = (symbol_c*)(new pragma_c("__time_div")); |
14448 |
14840 |
14449 if (IN1_type_symbol == NULL) |
14841 if (IN1_type_symbol == NULL) |
14450 IN1_type_symbol = last_type_symbol; |
14842 IN1_type_symbol = last_type_symbol; |
14451 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14843 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14452 |
14844 |
14453 if (IN2_type_symbol == NULL) |
14845 if (IN2_type_symbol == NULL) |
14454 IN2_type_symbol = last_type_symbol; |
14846 IN2_type_symbol = last_type_symbol; |
14455 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14847 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14456 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14848 symbol_c * return_type_symbol = &search_constant_type_c::time_type_name; |
14457 break; |
14849 break; |
14458 |
14850 |
14459 } |
14851 } |
14460 |
14852 |
14477 case function_mod : |
14869 case function_mod : |
14478 { |
14870 { |
14479 symbol_c *last_type_symbol = NULL; |
14871 symbol_c *last_type_symbol = NULL; |
14480 |
14872 |
14481 { |
14873 { |
|
14874 identifier_c IN1_param_name("IN1"); |
14482 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14875 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14483 symbol_c *IN1_param_value = &this->default_variable_name; |
14876 symbol_c *IN1_param_value = &this->default_variable_name; |
14484 |
14877 |
14485 symbol_c *IN1_type_symbol = param_data_type; |
14878 symbol_c *IN1_type_symbol = param_data_type; |
14486 last_type_symbol = param_data_type; |
14879 last_type_symbol = param_data_type; |
14487 |
14880 |
14488 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14881 if(IN1_type_symbol == NULL || search_expression_type->is_num_type(IN1_type_symbol)) |
14489 { |
14882 { |
14490 |
14883 |
14491 { |
14884 { |
14492 identifier_c param_name("IN2"); |
14885 identifier_c IN2_param_name("IN2"); |
14493 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14886 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14494 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14887 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14495 symbol_c *IN2_type_symbol = NULL; |
14888 symbol_c *IN2_type_symbol = NULL; |
14496 |
14889 |
14497 /* Get the value from a foo(<param_value>) style call */ |
14890 /* Get the value from a foo(<param_value>) style call */ |
14498 if (IN2_param_value == NULL) |
14891 if (IN2_param_value == NULL) |
14499 IN2_param_value = function_call_param_iterator.next_nf(); |
14892 IN2_param_value = function_call_param_iterator.next_nf(); |
14507 |
14900 |
14508 function_name = (symbol_c*)(new pragma_c("__mod_")); |
14901 function_name = (symbol_c*)(new pragma_c("__mod_")); |
14509 |
14902 |
14510 if (IN1_type_symbol == NULL) |
14903 if (IN1_type_symbol == NULL) |
14511 IN1_type_symbol = last_type_symbol; |
14904 IN1_type_symbol = last_type_symbol; |
14512 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14905 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14513 |
14906 |
14514 if (IN2_type_symbol == NULL) |
14907 if (IN2_type_symbol == NULL) |
14515 IN2_type_symbol = last_type_symbol; |
14908 IN2_type_symbol = last_type_symbol; |
14516 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14909 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14517 symbol_c * return_type_symbol; |
14910 symbol_c * return_type_symbol; |
14518 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14911 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14519 return_type_symbol = &search_constant_type_c::lint_type_name; |
14912 return_type_symbol = &search_constant_type_c::lint_type_name; |
14520 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14913 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14521 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14914 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14545 case function_expt : |
14938 case function_expt : |
14546 { |
14939 { |
14547 symbol_c *last_type_symbol = NULL; |
14940 symbol_c *last_type_symbol = NULL; |
14548 |
14941 |
14549 { |
14942 { |
|
14943 identifier_c IN1_param_name("IN1"); |
14550 /* 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 */ |
14551 symbol_c *IN1_param_value = &this->default_variable_name; |
14945 symbol_c *IN1_param_value = &this->default_variable_name; |
14552 |
14946 |
14553 symbol_c *IN1_type_symbol = param_data_type; |
14947 symbol_c *IN1_type_symbol = param_data_type; |
14554 last_type_symbol = param_data_type; |
14948 last_type_symbol = param_data_type; |
14555 |
14949 |
14556 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)) |
14557 { |
14951 { |
14558 |
14952 |
14559 { |
14953 { |
14560 identifier_c param_name("IN2"); |
14954 identifier_c IN2_param_name("IN2"); |
14561 /* 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 */ |
14562 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
14956 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14563 symbol_c *IN2_type_symbol = NULL; |
14957 symbol_c *IN2_type_symbol = NULL; |
14564 |
14958 |
14565 /* Get the value from a foo(<param_value>) style call */ |
14959 /* Get the value from a foo(<param_value>) style call */ |
14566 if (IN2_param_value == NULL) |
14960 if (IN2_param_value == NULL) |
14567 IN2_param_value = function_call_param_iterator.next_nf(); |
14961 IN2_param_value = function_call_param_iterator.next_nf(); |
14575 |
14969 |
14576 function_name = (symbol_c*)(new pragma_c("__expt_")); |
14970 function_name = (symbol_c*)(new pragma_c("__expt_")); |
14577 |
14971 |
14578 if (IN1_type_symbol == NULL) |
14972 if (IN1_type_symbol == NULL) |
14579 IN1_type_symbol = last_type_symbol; |
14973 IN1_type_symbol = last_type_symbol; |
14580 ADD_PARAM_LIST(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) |
14581 |
14975 |
14582 if (IN2_type_symbol == NULL) |
14976 if (IN2_type_symbol == NULL) |
14583 IN2_type_symbol = last_type_symbol; |
14977 IN2_type_symbol = last_type_symbol; |
14584 ADD_PARAM_LIST(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) |
14585 symbol_c * return_type_symbol; |
14979 symbol_c * return_type_symbol; |
14586 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14980 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14587 return_type_symbol = &search_constant_type_c::lint_type_name; |
14981 return_type_symbol = &search_constant_type_c::lint_type_name; |
14588 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14982 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14589 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14983 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14613 case function_move : |
15007 case function_move : |
14614 { |
15008 { |
14615 symbol_c *last_type_symbol = NULL; |
15009 symbol_c *last_type_symbol = NULL; |
14616 |
15010 |
14617 { |
15011 { |
14618 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15012 identifier_c IN_param_name("IN"); |
14619 symbol_c *IN_param_value = &this->default_variable_name; |
15013 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14620 |
15014 symbol_c *IN_param_value = &this->default_variable_name; |
14621 symbol_c *IN_type_symbol = param_data_type; |
15015 |
14622 last_type_symbol = param_data_type; |
15016 symbol_c *IN_type_symbol = param_data_type; |
14623 |
15017 last_type_symbol = param_data_type; |
14624 |
15018 |
14625 { |
15019 |
14626 |
15020 { |
14627 function_name = (symbol_c*)(new pragma_c("__move_")); |
15021 |
14628 |
15022 function_name = (symbol_c*)(new pragma_c("__move_")); |
14629 if (IN_type_symbol == NULL) |
15023 |
14630 IN_type_symbol = last_type_symbol; |
15024 if (IN_type_symbol == NULL) |
14631 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15025 IN_type_symbol = last_type_symbol; |
|
15026 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14632 symbol_c * return_type_symbol; |
15027 symbol_c * return_type_symbol; |
14633 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15028 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14634 return_type_symbol = &search_constant_type_c::lint_type_name; |
15029 return_type_symbol = &search_constant_type_c::lint_type_name; |
14635 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
15030 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
14636 return_type_symbol = &search_constant_type_c::lreal_type_name; |
15031 return_type_symbol = &search_constant_type_c::lreal_type_name; |
14654 case function_shl : |
15049 case function_shl : |
14655 { |
15050 { |
14656 symbol_c *last_type_symbol = NULL; |
15051 symbol_c *last_type_symbol = NULL; |
14657 |
15052 |
14658 { |
15053 { |
|
15054 identifier_c IN_param_name("IN"); |
14659 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15055 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14660 symbol_c *IN_param_value = &this->default_variable_name; |
15056 symbol_c *IN_param_value = &this->default_variable_name; |
14661 |
15057 |
14662 symbol_c *IN_type_symbol = param_data_type; |
15058 symbol_c *IN_type_symbol = param_data_type; |
14663 last_type_symbol = param_data_type; |
15059 last_type_symbol = param_data_type; |
14664 |
15060 |
14665 if(IN_type_symbol == NULL || search_expression_type->is_binary_type(IN_type_symbol)) |
15061 if(IN_type_symbol == NULL || search_expression_type->is_binary_type(IN_type_symbol)) |
14666 { |
15062 { |
14667 |
15063 |
14668 { |
15064 { |
14669 identifier_c param_name("N"); |
15065 identifier_c N_param_name("N"); |
14670 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15066 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14671 symbol_c *N_param_value = function_call_param_iterator.search_f(¶m_name); |
15067 symbol_c *N_param_value = function_call_param_iterator.search_f(&N_param_name); |
14672 symbol_c *N_type_symbol = NULL; |
15068 symbol_c *N_type_symbol = NULL; |
14673 |
15069 |
14674 /* Get the value from a foo(<param_value>) style call */ |
15070 /* Get the value from a foo(<param_value>) style call */ |
14675 if (N_param_value == NULL) |
15071 if (N_param_value == NULL) |
14676 N_param_value = function_call_param_iterator.next_nf(); |
15072 N_param_value = function_call_param_iterator.next_nf(); |
14684 |
15080 |
14685 function_name = (symbol_c*)(new pragma_c("__shl_")); |
15081 function_name = (symbol_c*)(new pragma_c("__shl_")); |
14686 |
15082 |
14687 if (IN_type_symbol == NULL) |
15083 if (IN_type_symbol == NULL) |
14688 IN_type_symbol = last_type_symbol; |
15084 IN_type_symbol = last_type_symbol; |
14689 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15085 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14690 |
15086 |
14691 if (N_type_symbol == NULL) |
15087 if (N_type_symbol == NULL) |
14692 N_type_symbol = last_type_symbol; |
15088 N_type_symbol = last_type_symbol; |
14693 ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15089 ADD_PARAM_LIST(&N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
14694 symbol_c * return_type_symbol = IN_type_symbol; |
15090 symbol_c * return_type_symbol = IN_type_symbol; |
14695 function_type_suffix = IN_type_symbol; |
15091 function_type_suffix = IN_type_symbol; |
14696 break; |
15092 break; |
14697 |
15093 |
14698 } |
15094 } |
14716 case function_shr : |
15112 case function_shr : |
14717 { |
15113 { |
14718 symbol_c *last_type_symbol = NULL; |
15114 symbol_c *last_type_symbol = NULL; |
14719 |
15115 |
14720 { |
15116 { |
|
15117 identifier_c IN_param_name("IN"); |
14721 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15118 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14722 symbol_c *IN_param_value = &this->default_variable_name; |
15119 symbol_c *IN_param_value = &this->default_variable_name; |
14723 |
15120 |
14724 symbol_c *IN_type_symbol = param_data_type; |
15121 symbol_c *IN_type_symbol = param_data_type; |
14725 last_type_symbol = param_data_type; |
15122 last_type_symbol = param_data_type; |
14726 |
15123 |
14727 if(IN_type_symbol == NULL || search_expression_type->is_binary_type(IN_type_symbol)) |
15124 if(IN_type_symbol == NULL || search_expression_type->is_binary_type(IN_type_symbol)) |
14728 { |
15125 { |
14729 |
15126 |
14730 { |
15127 { |
14731 identifier_c param_name("N"); |
15128 identifier_c N_param_name("N"); |
14732 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15129 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14733 symbol_c *N_param_value = function_call_param_iterator.search_f(¶m_name); |
15130 symbol_c *N_param_value = function_call_param_iterator.search_f(&N_param_name); |
14734 symbol_c *N_type_symbol = NULL; |
15131 symbol_c *N_type_symbol = NULL; |
14735 |
15132 |
14736 /* Get the value from a foo(<param_value>) style call */ |
15133 /* Get the value from a foo(<param_value>) style call */ |
14737 if (N_param_value == NULL) |
15134 if (N_param_value == NULL) |
14738 N_param_value = function_call_param_iterator.next_nf(); |
15135 N_param_value = function_call_param_iterator.next_nf(); |
14746 |
15143 |
14747 function_name = (symbol_c*)(new pragma_c("__shr_")); |
15144 function_name = (symbol_c*)(new pragma_c("__shr_")); |
14748 |
15145 |
14749 if (IN_type_symbol == NULL) |
15146 if (IN_type_symbol == NULL) |
14750 IN_type_symbol = last_type_symbol; |
15147 IN_type_symbol = last_type_symbol; |
14751 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15148 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14752 |
15149 |
14753 if (N_type_symbol == NULL) |
15150 if (N_type_symbol == NULL) |
14754 N_type_symbol = last_type_symbol; |
15151 N_type_symbol = last_type_symbol; |
14755 ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15152 ADD_PARAM_LIST(&N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
14756 symbol_c * return_type_symbol = IN_type_symbol; |
15153 symbol_c * return_type_symbol = IN_type_symbol; |
14757 function_type_suffix = IN_type_symbol; |
15154 function_type_suffix = IN_type_symbol; |
14758 break; |
15155 break; |
14759 |
15156 |
14760 } |
15157 } |
14778 case function_ror : |
15175 case function_ror : |
14779 { |
15176 { |
14780 symbol_c *last_type_symbol = NULL; |
15177 symbol_c *last_type_symbol = NULL; |
14781 |
15178 |
14782 { |
15179 { |
|
15180 identifier_c IN_param_name("IN"); |
14783 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15181 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14784 symbol_c *IN_param_value = &this->default_variable_name; |
15182 symbol_c *IN_param_value = &this->default_variable_name; |
14785 |
15183 |
14786 symbol_c *IN_type_symbol = param_data_type; |
15184 symbol_c *IN_type_symbol = param_data_type; |
14787 last_type_symbol = param_data_type; |
15185 last_type_symbol = param_data_type; |
14788 |
15186 |
14789 if(IN_type_symbol == NULL || search_expression_type->is_nbinary_type(IN_type_symbol)) |
15187 if(IN_type_symbol == NULL || search_expression_type->is_nbinary_type(IN_type_symbol)) |
14790 { |
15188 { |
14791 |
15189 |
14792 { |
15190 { |
14793 identifier_c param_name("N"); |
15191 identifier_c N_param_name("N"); |
14794 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15192 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14795 symbol_c *N_param_value = function_call_param_iterator.search_f(¶m_name); |
15193 symbol_c *N_param_value = function_call_param_iterator.search_f(&N_param_name); |
14796 symbol_c *N_type_symbol = NULL; |
15194 symbol_c *N_type_symbol = NULL; |
14797 |
15195 |
14798 /* Get the value from a foo(<param_value>) style call */ |
15196 /* Get the value from a foo(<param_value>) style call */ |
14799 if (N_param_value == NULL) |
15197 if (N_param_value == NULL) |
14800 N_param_value = function_call_param_iterator.next_nf(); |
15198 N_param_value = function_call_param_iterator.next_nf(); |
14808 |
15206 |
14809 function_name = (symbol_c*)(new pragma_c("__ror_")); |
15207 function_name = (symbol_c*)(new pragma_c("__ror_")); |
14810 |
15208 |
14811 if (IN_type_symbol == NULL) |
15209 if (IN_type_symbol == NULL) |
14812 IN_type_symbol = last_type_symbol; |
15210 IN_type_symbol = last_type_symbol; |
14813 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15211 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14814 |
15212 |
14815 if (N_type_symbol == NULL) |
15213 if (N_type_symbol == NULL) |
14816 N_type_symbol = last_type_symbol; |
15214 N_type_symbol = last_type_symbol; |
14817 ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15215 ADD_PARAM_LIST(&N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
14818 symbol_c * return_type_symbol = IN_type_symbol; |
15216 symbol_c * return_type_symbol = IN_type_symbol; |
14819 function_type_suffix = IN_type_symbol; |
15217 function_type_suffix = IN_type_symbol; |
14820 break; |
15218 break; |
14821 |
15219 |
14822 } |
15220 } |
14840 case function_rol : |
15238 case function_rol : |
14841 { |
15239 { |
14842 symbol_c *last_type_symbol = NULL; |
15240 symbol_c *last_type_symbol = NULL; |
14843 |
15241 |
14844 { |
15242 { |
|
15243 identifier_c IN_param_name("IN"); |
14845 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15244 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14846 symbol_c *IN_param_value = &this->default_variable_name; |
15245 symbol_c *IN_param_value = &this->default_variable_name; |
14847 |
15246 |
14848 symbol_c *IN_type_symbol = param_data_type; |
15247 symbol_c *IN_type_symbol = param_data_type; |
14849 last_type_symbol = param_data_type; |
15248 last_type_symbol = param_data_type; |
14850 |
15249 |
14851 if(IN_type_symbol == NULL || search_expression_type->is_nbinary_type(IN_type_symbol)) |
15250 if(IN_type_symbol == NULL || search_expression_type->is_nbinary_type(IN_type_symbol)) |
14852 { |
15251 { |
14853 |
15252 |
14854 { |
15253 { |
14855 identifier_c param_name("N"); |
15254 identifier_c N_param_name("N"); |
14856 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15255 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14857 symbol_c *N_param_value = function_call_param_iterator.search_f(¶m_name); |
15256 symbol_c *N_param_value = function_call_param_iterator.search_f(&N_param_name); |
14858 symbol_c *N_type_symbol = NULL; |
15257 symbol_c *N_type_symbol = NULL; |
14859 |
15258 |
14860 /* Get the value from a foo(<param_value>) style call */ |
15259 /* Get the value from a foo(<param_value>) style call */ |
14861 if (N_param_value == NULL) |
15260 if (N_param_value == NULL) |
14862 N_param_value = function_call_param_iterator.next_nf(); |
15261 N_param_value = function_call_param_iterator.next_nf(); |
14870 |
15269 |
14871 function_name = (symbol_c*)(new pragma_c("__rol_")); |
15270 function_name = (symbol_c*)(new pragma_c("__rol_")); |
14872 |
15271 |
14873 if (IN_type_symbol == NULL) |
15272 if (IN_type_symbol == NULL) |
14874 IN_type_symbol = last_type_symbol; |
15273 IN_type_symbol = last_type_symbol; |
14875 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15274 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
14876 |
15275 |
14877 if (N_type_symbol == NULL) |
15276 if (N_type_symbol == NULL) |
14878 N_type_symbol = last_type_symbol; |
15277 N_type_symbol = last_type_symbol; |
14879 ADD_PARAM_LIST(N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
15278 ADD_PARAM_LIST(&N_param_name, N_param_value, N_type_symbol, function_param_iterator_c::direction_in) |
14880 symbol_c * return_type_symbol = IN_type_symbol; |
15279 symbol_c * return_type_symbol = IN_type_symbol; |
14881 function_type_suffix = IN_type_symbol; |
15280 function_type_suffix = IN_type_symbol; |
14882 break; |
15281 break; |
14883 |
15282 |
14884 } |
15283 } |
14902 case function_and : |
15301 case function_and : |
14903 { |
15302 { |
14904 symbol_c *last_type_symbol = NULL; |
15303 symbol_c *last_type_symbol = NULL; |
14905 |
15304 |
14906 { |
15305 { |
|
15306 identifier_c IN1_param_name("IN1"); |
14907 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15307 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14908 symbol_c *IN1_param_value = &this->default_variable_name; |
15308 symbol_c *IN1_param_value = &this->default_variable_name; |
14909 |
15309 |
14910 symbol_c *IN1_type_symbol = param_data_type; |
15310 symbol_c *IN1_type_symbol = param_data_type; |
14911 last_type_symbol = param_data_type; |
15311 last_type_symbol = param_data_type; |
14912 |
15312 |
14913 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15313 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
14914 { |
15314 { |
14915 |
15315 |
14916 { |
15316 { |
14917 identifier_c param_name("IN2"); |
15317 identifier_c IN2_param_name("IN2"); |
14918 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15318 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
14919 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
15319 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
14920 symbol_c *IN2_type_symbol = NULL; |
15320 symbol_c *IN2_type_symbol = NULL; |
14921 |
15321 |
14922 /* Get the value from a foo(<param_value>) style call */ |
15322 /* Get the value from a foo(<param_value>) style call */ |
14923 if (IN2_param_value == NULL) |
15323 if (IN2_param_value == NULL) |
14924 IN2_param_value = function_call_param_iterator.next_nf(); |
15324 IN2_param_value = function_call_param_iterator.next_nf(); |
14934 |
15334 |
14935 if (nb_param < 2) |
15335 if (nb_param < 2) |
14936 nb_param = 2; |
15336 nb_param = 2; |
14937 char* nb_param_str = new char[10]; |
15337 char* nb_param_str = new char[10]; |
14938 sprintf(nb_param_str, "%d", nb_param); |
15338 sprintf(nb_param_str, "%d", nb_param); |
14939 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15339 identifier_c nb_param_name("nb_param"); |
|
15340 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) |
14940 |
15341 |
14941 if (IN1_type_symbol == NULL) |
15342 if (IN1_type_symbol == NULL) |
14942 IN1_type_symbol = last_type_symbol; |
15343 IN1_type_symbol = last_type_symbol; |
14943 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15344 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
14944 |
15345 |
14945 if (IN2_type_symbol == NULL) |
15346 if (IN2_type_symbol == NULL) |
14946 IN2_type_symbol = last_type_symbol; |
15347 IN2_type_symbol = last_type_symbol; |
14947 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15348 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
14948 |
15349 |
14949 int base_num = 3; |
15350 int base_num = 3; |
14950 symbol_c *param_value = NULL; |
15351 symbol_c *param_value = NULL; |
14951 do{ |
15352 do{ |
14952 char my_name[10]; |
15353 char my_name[10]; |
14962 if (param_value != NULL){ |
15363 if (param_value != NULL){ |
14963 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15364 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
14964 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 ; |
15365 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 ; |
14965 |
15366 |
14966 /*Function specific CODE */ |
15367 /*Function specific CODE */ |
14967 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15368 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
14968 } |
15369 } |
14969 |
15370 |
14970 }while(param_value != NULL); |
15371 }while(param_value != NULL); |
14971 symbol_c * return_type_symbol; |
15372 symbol_c * return_type_symbol; |
14972 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15373 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
14997 case function_or : |
15398 case function_or : |
14998 { |
15399 { |
14999 symbol_c *last_type_symbol = NULL; |
15400 symbol_c *last_type_symbol = NULL; |
15000 |
15401 |
15001 { |
15402 { |
|
15403 identifier_c IN1_param_name("IN1"); |
15002 /* 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 */ |
15003 symbol_c *IN1_param_value = &this->default_variable_name; |
15405 symbol_c *IN1_param_value = &this->default_variable_name; |
15004 |
15406 |
15005 symbol_c *IN1_type_symbol = param_data_type; |
15407 symbol_c *IN1_type_symbol = param_data_type; |
15006 last_type_symbol = param_data_type; |
15408 last_type_symbol = param_data_type; |
15007 |
15409 |
15008 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15410 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15009 { |
15411 { |
15010 |
15412 |
15011 { |
15413 { |
15012 identifier_c param_name("IN2"); |
15414 identifier_c IN2_param_name("IN2"); |
15013 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15415 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15014 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
15416 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15015 symbol_c *IN2_type_symbol = NULL; |
15417 symbol_c *IN2_type_symbol = NULL; |
15016 |
15418 |
15017 /* Get the value from a foo(<param_value>) style call */ |
15419 /* Get the value from a foo(<param_value>) style call */ |
15018 if (IN2_param_value == NULL) |
15420 if (IN2_param_value == NULL) |
15019 IN2_param_value = function_call_param_iterator.next_nf(); |
15421 IN2_param_value = function_call_param_iterator.next_nf(); |
15029 |
15431 |
15030 if (nb_param < 2) |
15432 if (nb_param < 2) |
15031 nb_param = 2; |
15433 nb_param = 2; |
15032 char* nb_param_str = new char[10]; |
15434 char* nb_param_str = new char[10]; |
15033 sprintf(nb_param_str, "%d", nb_param); |
15435 sprintf(nb_param_str, "%d", nb_param); |
15034 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15436 identifier_c nb_param_name("nb_param"); |
|
15437 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) |
15035 |
15438 |
15036 if (IN1_type_symbol == NULL) |
15439 if (IN1_type_symbol == NULL) |
15037 IN1_type_symbol = last_type_symbol; |
15440 IN1_type_symbol = last_type_symbol; |
15038 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15441 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15039 |
15442 |
15040 if (IN2_type_symbol == NULL) |
15443 if (IN2_type_symbol == NULL) |
15041 IN2_type_symbol = last_type_symbol; |
15444 IN2_type_symbol = last_type_symbol; |
15042 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15445 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15043 |
15446 |
15044 int base_num = 3; |
15447 int base_num = 3; |
15045 symbol_c *param_value = NULL; |
15448 symbol_c *param_value = NULL; |
15046 do{ |
15449 do{ |
15047 char my_name[10]; |
15450 char my_name[10]; |
15057 if (param_value != NULL){ |
15460 if (param_value != NULL){ |
15058 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15461 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15059 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 ; |
15462 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 ; |
15060 |
15463 |
15061 /*Function specific CODE */ |
15464 /*Function specific CODE */ |
15062 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15465 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15063 } |
15466 } |
15064 |
15467 |
15065 }while(param_value != NULL); |
15468 }while(param_value != NULL); |
15066 symbol_c * return_type_symbol; |
15469 symbol_c * return_type_symbol; |
15067 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15470 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15092 case function_xor : |
15495 case function_xor : |
15093 { |
15496 { |
15094 symbol_c *last_type_symbol = NULL; |
15497 symbol_c *last_type_symbol = NULL; |
15095 |
15498 |
15096 { |
15499 { |
|
15500 identifier_c IN1_param_name("IN1"); |
15097 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15501 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15098 symbol_c *IN1_param_value = &this->default_variable_name; |
15502 symbol_c *IN1_param_value = &this->default_variable_name; |
15099 |
15503 |
15100 symbol_c *IN1_type_symbol = param_data_type; |
15504 symbol_c *IN1_type_symbol = param_data_type; |
15101 last_type_symbol = param_data_type; |
15505 last_type_symbol = param_data_type; |
15102 |
15506 |
15103 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15507 if(IN1_type_symbol == NULL || search_expression_type->is_binary_type(IN1_type_symbol)) |
15104 { |
15508 { |
15105 |
15509 |
15106 { |
15510 { |
15107 identifier_c param_name("IN2"); |
15511 identifier_c IN2_param_name("IN2"); |
15108 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15512 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15109 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
15513 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15110 symbol_c *IN2_type_symbol = NULL; |
15514 symbol_c *IN2_type_symbol = NULL; |
15111 |
15515 |
15112 /* Get the value from a foo(<param_value>) style call */ |
15516 /* Get the value from a foo(<param_value>) style call */ |
15113 if (IN2_param_value == NULL) |
15517 if (IN2_param_value == NULL) |
15114 IN2_param_value = function_call_param_iterator.next_nf(); |
15518 IN2_param_value = function_call_param_iterator.next_nf(); |
15124 |
15528 |
15125 if (nb_param < 2) |
15529 if (nb_param < 2) |
15126 nb_param = 2; |
15530 nb_param = 2; |
15127 char* nb_param_str = new char[10]; |
15531 char* nb_param_str = new char[10]; |
15128 sprintf(nb_param_str, "%d", nb_param); |
15532 sprintf(nb_param_str, "%d", nb_param); |
15129 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15533 identifier_c nb_param_name("nb_param"); |
|
15534 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) |
15130 |
15535 |
15131 if (IN1_type_symbol == NULL) |
15536 if (IN1_type_symbol == NULL) |
15132 IN1_type_symbol = last_type_symbol; |
15537 IN1_type_symbol = last_type_symbol; |
15133 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15538 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15134 |
15539 |
15135 if (IN2_type_symbol == NULL) |
15540 if (IN2_type_symbol == NULL) |
15136 IN2_type_symbol = last_type_symbol; |
15541 IN2_type_symbol = last_type_symbol; |
15137 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15542 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15138 |
15543 |
15139 int base_num = 3; |
15544 int base_num = 3; |
15140 symbol_c *param_value = NULL; |
15545 symbol_c *param_value = NULL; |
15141 do{ |
15546 do{ |
15142 char my_name[10]; |
15547 char my_name[10]; |
15152 if (param_value != NULL){ |
15557 if (param_value != NULL){ |
15153 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15558 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15154 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 ; |
15559 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 ; |
15155 |
15560 |
15156 /*Function specific CODE */ |
15561 /*Function specific CODE */ |
15157 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15562 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15158 } |
15563 } |
15159 |
15564 |
15160 }while(param_value != NULL); |
15565 }while(param_value != NULL); |
15161 symbol_c * return_type_symbol; |
15566 symbol_c * return_type_symbol; |
15162 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15567 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15187 case function_not : |
15592 case function_not : |
15188 { |
15593 { |
15189 symbol_c *last_type_symbol = NULL; |
15594 symbol_c *last_type_symbol = NULL; |
15190 |
15595 |
15191 { |
15596 { |
|
15597 identifier_c IN_param_name("IN"); |
15192 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15598 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15193 symbol_c *IN_param_value = &this->default_variable_name; |
15599 symbol_c *IN_param_value = &this->default_variable_name; |
15194 |
15600 |
15195 symbol_c *IN_type_symbol = param_data_type; |
15601 symbol_c *IN_type_symbol = param_data_type; |
15196 last_type_symbol = param_data_type; |
15602 last_type_symbol = param_data_type; |
15200 |
15606 |
15201 function_name = (symbol_c*)(new pragma_c("__not_")); |
15607 function_name = (symbol_c*)(new pragma_c("__not_")); |
15202 |
15608 |
15203 if (IN_type_symbol == NULL) |
15609 if (IN_type_symbol == NULL) |
15204 IN_type_symbol = last_type_symbol; |
15610 IN_type_symbol = last_type_symbol; |
15205 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15611 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15206 symbol_c * return_type_symbol = IN_type_symbol; |
15612 symbol_c * return_type_symbol = IN_type_symbol; |
15207 function_type_suffix = return_type_symbol; |
15613 function_type_suffix = return_type_symbol; |
15208 break; |
15614 break; |
15209 |
15615 |
15210 } |
15616 } |
15222 case function_sel : |
15628 case function_sel : |
15223 { |
15629 { |
15224 symbol_c *last_type_symbol = NULL; |
15630 symbol_c *last_type_symbol = NULL; |
15225 |
15631 |
15226 { |
15632 { |
|
15633 identifier_c G_param_name("G"); |
15227 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15634 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15228 symbol_c *G_param_value = &this->default_variable_name; |
15635 symbol_c *G_param_value = &this->default_variable_name; |
15229 |
15636 |
15230 symbol_c *G_type_symbol = param_data_type; |
15637 symbol_c *G_type_symbol = param_data_type; |
15231 last_type_symbol = param_data_type; |
15638 last_type_symbol = param_data_type; |
15232 |
15639 |
15233 if(G_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) |
15640 if(G_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::bool_type_name, last_type_symbol)) |
15234 { |
15641 { |
15235 |
15642 |
15236 { |
15643 { |
15237 identifier_c param_name("IN0"); |
15644 identifier_c IN0_param_name("IN0"); |
15238 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15645 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15239 symbol_c *IN0_param_value = function_call_param_iterator.search_f(¶m_name); |
15646 symbol_c *IN0_param_value = function_call_param_iterator.search_f(&IN0_param_name); |
15240 symbol_c *IN0_type_symbol = NULL; |
15647 symbol_c *IN0_type_symbol = NULL; |
15241 |
15648 |
15242 /* Get the value from a foo(<param_value>) style call */ |
15649 /* Get the value from a foo(<param_value>) style call */ |
15243 if (IN0_param_value == NULL) |
15650 if (IN0_param_value == NULL) |
15244 IN0_param_value = function_call_param_iterator.next_nf(); |
15651 IN0_param_value = function_call_param_iterator.next_nf(); |
15249 |
15656 |
15250 |
15657 |
15251 { |
15658 { |
15252 |
15659 |
15253 { |
15660 { |
15254 identifier_c param_name("IN1"); |
15661 identifier_c IN1_param_name("IN1"); |
15255 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15662 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15256 symbol_c *IN1_param_value = function_call_param_iterator.search_f(¶m_name); |
15663 symbol_c *IN1_param_value = function_call_param_iterator.search_f(&IN1_param_name); |
15257 symbol_c *IN1_type_symbol = NULL; |
15664 symbol_c *IN1_type_symbol = NULL; |
15258 |
15665 |
15259 /* Get the value from a foo(<param_value>) style call */ |
15666 /* Get the value from a foo(<param_value>) style call */ |
15260 if (IN1_param_value == NULL) |
15667 if (IN1_param_value == NULL) |
15261 IN1_param_value = function_call_param_iterator.next_nf(); |
15668 IN1_param_value = function_call_param_iterator.next_nf(); |
15269 |
15676 |
15270 function_name = (symbol_c*)(new pragma_c("__sel_")); |
15677 function_name = (symbol_c*)(new pragma_c("__sel_")); |
15271 |
15678 |
15272 if (G_type_symbol == NULL) |
15679 if (G_type_symbol == NULL) |
15273 G_type_symbol = last_type_symbol; |
15680 G_type_symbol = last_type_symbol; |
15274 ADD_PARAM_LIST(G_param_value, G_type_symbol, function_param_iterator_c::direction_in) |
15681 ADD_PARAM_LIST(&G_param_name, G_param_value, G_type_symbol, function_param_iterator_c::direction_in) |
15275 |
15682 |
15276 if (IN0_type_symbol == NULL) |
15683 if (IN0_type_symbol == NULL) |
15277 IN0_type_symbol = last_type_symbol; |
15684 IN0_type_symbol = last_type_symbol; |
15278 ADD_PARAM_LIST(IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) |
15685 ADD_PARAM_LIST(&IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) |
15279 |
15686 |
15280 if (IN1_type_symbol == NULL) |
15687 if (IN1_type_symbol == NULL) |
15281 IN1_type_symbol = last_type_symbol; |
15688 IN1_type_symbol = last_type_symbol; |
15282 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15689 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15283 symbol_c * return_type_symbol; |
15690 symbol_c * return_type_symbol; |
15284 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15691 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15285 return_type_symbol = &search_constant_type_c::lint_type_name; |
15692 return_type_symbol = &search_constant_type_c::lint_type_name; |
15286 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
15693 else if (search_expression_type->is_literal_real_type(last_type_symbol)) |
15287 return_type_symbol = &search_constant_type_c::lreal_type_name; |
15694 return_type_symbol = &search_constant_type_c::lreal_type_name; |
15317 case function_max : |
15724 case function_max : |
15318 { |
15725 { |
15319 symbol_c *last_type_symbol = NULL; |
15726 symbol_c *last_type_symbol = NULL; |
15320 |
15727 |
15321 { |
15728 { |
|
15729 identifier_c IN1_param_name("IN1"); |
15322 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15730 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15323 symbol_c *IN1_param_value = &this->default_variable_name; |
15731 symbol_c *IN1_param_value = &this->default_variable_name; |
15324 |
15732 |
15325 symbol_c *IN1_type_symbol = param_data_type; |
15733 symbol_c *IN1_type_symbol = param_data_type; |
15326 last_type_symbol = param_data_type; |
15734 last_type_symbol = param_data_type; |
15327 |
15735 |
15328 |
15736 |
15329 { |
15737 { |
15330 |
15738 |
15331 { |
15739 { |
15332 identifier_c param_name("IN2"); |
15740 identifier_c IN2_param_name("IN2"); |
15333 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15741 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15334 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
15742 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15335 symbol_c *IN2_type_symbol = NULL; |
15743 symbol_c *IN2_type_symbol = NULL; |
15336 |
15744 |
15337 /* Get the value from a foo(<param_value>) style call */ |
15745 /* Get the value from a foo(<param_value>) style call */ |
15338 if (IN2_param_value == NULL) |
15746 if (IN2_param_value == NULL) |
15339 IN2_param_value = function_call_param_iterator.next_nf(); |
15747 IN2_param_value = function_call_param_iterator.next_nf(); |
15349 |
15757 |
15350 if (nb_param < 2) |
15758 if (nb_param < 2) |
15351 nb_param = 2; |
15759 nb_param = 2; |
15352 char* nb_param_str = new char[10]; |
15760 char* nb_param_str = new char[10]; |
15353 sprintf(nb_param_str, "%d", nb_param); |
15761 sprintf(nb_param_str, "%d", nb_param); |
15354 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15762 identifier_c nb_param_name("nb_param"); |
|
15763 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) |
15355 |
15764 |
15356 if (IN1_type_symbol == NULL) |
15765 if (IN1_type_symbol == NULL) |
15357 IN1_type_symbol = last_type_symbol; |
15766 IN1_type_symbol = last_type_symbol; |
15358 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15767 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15359 |
15768 |
15360 if (IN2_type_symbol == NULL) |
15769 if (IN2_type_symbol == NULL) |
15361 IN2_type_symbol = last_type_symbol; |
15770 IN2_type_symbol = last_type_symbol; |
15362 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15771 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15363 |
15772 |
15364 int base_num = 3; |
15773 int base_num = 3; |
15365 symbol_c *param_value = NULL; |
15774 symbol_c *param_value = NULL; |
15366 do{ |
15775 do{ |
15367 char my_name[10]; |
15776 char my_name[10]; |
15377 if (param_value != NULL){ |
15786 if (param_value != NULL){ |
15378 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15787 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15379 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 ; |
15788 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 ; |
15380 |
15789 |
15381 /*Function specific CODE */ |
15790 /*Function specific CODE */ |
15382 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15791 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15383 } |
15792 } |
15384 |
15793 |
15385 }while(param_value != NULL); |
15794 }while(param_value != NULL); |
15386 symbol_c * return_type_symbol; |
15795 symbol_c * return_type_symbol; |
15387 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15796 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15414 case function_min : |
15823 case function_min : |
15415 { |
15824 { |
15416 symbol_c *last_type_symbol = NULL; |
15825 symbol_c *last_type_symbol = NULL; |
15417 |
15826 |
15418 { |
15827 { |
|
15828 identifier_c IN1_param_name("IN1"); |
15419 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15829 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15420 symbol_c *IN1_param_value = &this->default_variable_name; |
15830 symbol_c *IN1_param_value = &this->default_variable_name; |
15421 |
15831 |
15422 symbol_c *IN1_type_symbol = param_data_type; |
15832 symbol_c *IN1_type_symbol = param_data_type; |
15423 last_type_symbol = param_data_type; |
15833 last_type_symbol = param_data_type; |
15424 |
15834 |
15425 |
15835 |
15426 { |
15836 { |
15427 |
15837 |
15428 { |
15838 { |
15429 identifier_c param_name("IN2"); |
15839 identifier_c IN2_param_name("IN2"); |
15430 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15840 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15431 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
15841 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15432 symbol_c *IN2_type_symbol = NULL; |
15842 symbol_c *IN2_type_symbol = NULL; |
15433 |
15843 |
15434 /* Get the value from a foo(<param_value>) style call */ |
15844 /* Get the value from a foo(<param_value>) style call */ |
15435 if (IN2_param_value == NULL) |
15845 if (IN2_param_value == NULL) |
15436 IN2_param_value = function_call_param_iterator.next_nf(); |
15846 IN2_param_value = function_call_param_iterator.next_nf(); |
15446 |
15856 |
15447 if (nb_param < 2) |
15857 if (nb_param < 2) |
15448 nb_param = 2; |
15858 nb_param = 2; |
15449 char* nb_param_str = new char[10]; |
15859 char* nb_param_str = new char[10]; |
15450 sprintf(nb_param_str, "%d", nb_param); |
15860 sprintf(nb_param_str, "%d", nb_param); |
15451 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
15861 identifier_c nb_param_name("nb_param"); |
|
15862 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) |
15452 |
15863 |
15453 if (IN1_type_symbol == NULL) |
15864 if (IN1_type_symbol == NULL) |
15454 IN1_type_symbol = last_type_symbol; |
15865 IN1_type_symbol = last_type_symbol; |
15455 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15866 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15456 |
15867 |
15457 if (IN2_type_symbol == NULL) |
15868 if (IN2_type_symbol == NULL) |
15458 IN2_type_symbol = last_type_symbol; |
15869 IN2_type_symbol = last_type_symbol; |
15459 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15870 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15460 |
15871 |
15461 int base_num = 3; |
15872 int base_num = 3; |
15462 symbol_c *param_value = NULL; |
15873 symbol_c *param_value = NULL; |
15463 do{ |
15874 do{ |
15464 char my_name[10]; |
15875 char my_name[10]; |
15474 if (param_value != NULL){ |
15885 if (param_value != NULL){ |
15475 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15886 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15476 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 ; |
15887 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 ; |
15477 |
15888 |
15478 /*Function specific CODE */ |
15889 /*Function specific CODE */ |
15479 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15890 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15480 } |
15891 } |
15481 |
15892 |
15482 }while(param_value != NULL); |
15893 }while(param_value != NULL); |
15483 symbol_c * return_type_symbol; |
15894 symbol_c * return_type_symbol; |
15484 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15895 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15511 case function_limit : |
15922 case function_limit : |
15512 { |
15923 { |
15513 symbol_c *last_type_symbol = NULL; |
15924 symbol_c *last_type_symbol = NULL; |
15514 |
15925 |
15515 { |
15926 { |
|
15927 identifier_c MN_param_name("MN"); |
15516 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15928 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15517 symbol_c *MN_param_value = &this->default_variable_name; |
15929 symbol_c *MN_param_value = &this->default_variable_name; |
15518 |
15930 |
15519 symbol_c *MN_type_symbol = param_data_type; |
15931 symbol_c *MN_type_symbol = param_data_type; |
15520 last_type_symbol = param_data_type; |
15932 last_type_symbol = param_data_type; |
15521 |
15933 |
15522 |
15934 |
15523 { |
15935 { |
15524 |
15936 |
15525 { |
15937 { |
15526 identifier_c param_name("IN"); |
15938 identifier_c IN_param_name("IN"); |
15527 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15939 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15528 symbol_c *IN_param_value = function_call_param_iterator.search_f(¶m_name); |
15940 symbol_c *IN_param_value = function_call_param_iterator.search_f(&IN_param_name); |
15529 symbol_c *IN_type_symbol = NULL; |
15941 symbol_c *IN_type_symbol = NULL; |
15530 |
15942 |
15531 /* Get the value from a foo(<param_value>) style call */ |
15943 /* Get the value from a foo(<param_value>) style call */ |
15532 if (IN_param_value == NULL) |
15944 if (IN_param_value == NULL) |
15533 IN_param_value = function_call_param_iterator.next_nf(); |
15945 IN_param_value = function_call_param_iterator.next_nf(); |
15538 |
15950 |
15539 |
15951 |
15540 { |
15952 { |
15541 |
15953 |
15542 { |
15954 { |
15543 identifier_c param_name("MX"); |
15955 identifier_c MX_param_name("MX"); |
15544 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15956 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15545 symbol_c *MX_param_value = function_call_param_iterator.search_f(¶m_name); |
15957 symbol_c *MX_param_value = function_call_param_iterator.search_f(&MX_param_name); |
15546 symbol_c *MX_type_symbol = NULL; |
15958 symbol_c *MX_type_symbol = NULL; |
15547 |
15959 |
15548 /* Get the value from a foo(<param_value>) style call */ |
15960 /* Get the value from a foo(<param_value>) style call */ |
15549 if (MX_param_value == NULL) |
15961 if (MX_param_value == NULL) |
15550 MX_param_value = function_call_param_iterator.next_nf(); |
15962 MX_param_value = function_call_param_iterator.next_nf(); |
15558 |
15970 |
15559 function_name = (symbol_c*)(new pragma_c("__limit_")); |
15971 function_name = (symbol_c*)(new pragma_c("__limit_")); |
15560 |
15972 |
15561 if (MN_type_symbol == NULL) |
15973 if (MN_type_symbol == NULL) |
15562 MN_type_symbol = last_type_symbol; |
15974 MN_type_symbol = last_type_symbol; |
15563 ADD_PARAM_LIST(MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in) |
15975 ADD_PARAM_LIST(&MN_param_name, MN_param_value, MN_type_symbol, function_param_iterator_c::direction_in) |
15564 |
15976 |
15565 if (IN_type_symbol == NULL) |
15977 if (IN_type_symbol == NULL) |
15566 IN_type_symbol = last_type_symbol; |
15978 IN_type_symbol = last_type_symbol; |
15567 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15979 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
15568 |
15980 |
15569 if (MX_type_symbol == NULL) |
15981 if (MX_type_symbol == NULL) |
15570 MX_type_symbol = last_type_symbol; |
15982 MX_type_symbol = last_type_symbol; |
15571 ADD_PARAM_LIST(MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in) |
15983 ADD_PARAM_LIST(&MX_param_name, MX_param_value, MX_type_symbol, function_param_iterator_c::direction_in) |
15572 symbol_c * return_type_symbol = IN_type_symbol; |
15984 symbol_c * return_type_symbol = IN_type_symbol; |
15573 function_type_suffix = IN_type_symbol; |
15985 function_type_suffix = IN_type_symbol; |
15574 break; |
15986 break; |
15575 |
15987 |
15576 } |
15988 } |
15600 case function_mux : |
16012 case function_mux : |
15601 { |
16013 { |
15602 symbol_c *last_type_symbol = NULL; |
16014 symbol_c *last_type_symbol = NULL; |
15603 |
16015 |
15604 { |
16016 { |
|
16017 identifier_c K_param_name("K"); |
15605 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16018 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15606 symbol_c *K_param_value = &this->default_variable_name; |
16019 symbol_c *K_param_value = &this->default_variable_name; |
15607 |
16020 |
15608 symbol_c *K_type_symbol = param_data_type; |
16021 symbol_c *K_type_symbol = param_data_type; |
15609 last_type_symbol = param_data_type; |
16022 last_type_symbol = param_data_type; |
15610 |
16023 |
15611 if(K_type_symbol == NULL || search_expression_type->is_integer_type(K_type_symbol)) |
16024 if(K_type_symbol == NULL || search_expression_type->is_integer_type(K_type_symbol)) |
15612 { |
16025 { |
15613 |
16026 |
15614 { |
16027 { |
15615 identifier_c param_name("IN0"); |
16028 identifier_c IN0_param_name("IN0"); |
15616 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16029 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15617 symbol_c *IN0_param_value = function_call_param_iterator.search_f(¶m_name); |
16030 symbol_c *IN0_param_value = function_call_param_iterator.search_f(&IN0_param_name); |
15618 symbol_c *IN0_type_symbol = NULL; |
16031 symbol_c *IN0_type_symbol = NULL; |
15619 |
16032 |
15620 /* Get the value from a foo(<param_value>) style call */ |
16033 /* Get the value from a foo(<param_value>) style call */ |
15621 if (IN0_param_value == NULL) |
16034 if (IN0_param_value == NULL) |
15622 IN0_param_value = function_call_param_iterator.next_nf(); |
16035 IN0_param_value = function_call_param_iterator.next_nf(); |
15627 |
16040 |
15628 |
16041 |
15629 { |
16042 { |
15630 |
16043 |
15631 { |
16044 { |
15632 identifier_c param_name("IN1"); |
16045 identifier_c IN1_param_name("IN1"); |
15633 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16046 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15634 symbol_c *IN1_param_value = function_call_param_iterator.search_f(¶m_name); |
16047 symbol_c *IN1_param_value = function_call_param_iterator.search_f(&IN1_param_name); |
15635 symbol_c *IN1_type_symbol = NULL; |
16048 symbol_c *IN1_type_symbol = NULL; |
15636 |
16049 |
15637 /* Get the value from a foo(<param_value>) style call */ |
16050 /* Get the value from a foo(<param_value>) style call */ |
15638 if (IN1_param_value == NULL) |
16051 if (IN1_param_value == NULL) |
15639 IN1_param_value = function_call_param_iterator.next_nf(); |
16052 IN1_param_value = function_call_param_iterator.next_nf(); |
15649 |
16062 |
15650 if (nb_param < 3) |
16063 if (nb_param < 3) |
15651 nb_param = 3; |
16064 nb_param = 3; |
15652 char* nb_param_str = new char[10]; |
16065 char* nb_param_str = new char[10]; |
15653 sprintf(nb_param_str, "%d", nb_param); |
16066 sprintf(nb_param_str, "%d", nb_param); |
15654 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16067 identifier_c nb_param_name("nb_param"); |
|
16068 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) |
15655 |
16069 |
15656 if (K_type_symbol == NULL) |
16070 if (K_type_symbol == NULL) |
15657 K_type_symbol = last_type_symbol; |
16071 K_type_symbol = last_type_symbol; |
15658 ADD_PARAM_LIST(K_param_value, K_type_symbol, function_param_iterator_c::direction_in) |
16072 ADD_PARAM_LIST(&K_param_name, K_param_value, K_type_symbol, function_param_iterator_c::direction_in) |
15659 |
16073 |
15660 if (IN0_type_symbol == NULL) |
16074 if (IN0_type_symbol == NULL) |
15661 IN0_type_symbol = last_type_symbol; |
16075 IN0_type_symbol = last_type_symbol; |
15662 ADD_PARAM_LIST(IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) |
16076 ADD_PARAM_LIST(&IN0_param_name, IN0_param_value, IN0_type_symbol, function_param_iterator_c::direction_in) |
15663 |
16077 |
15664 if (IN1_type_symbol == NULL) |
16078 if (IN1_type_symbol == NULL) |
15665 IN1_type_symbol = last_type_symbol; |
16079 IN1_type_symbol = last_type_symbol; |
15666 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16080 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15667 |
16081 |
15668 int base_num = 2; |
16082 int base_num = 2; |
15669 symbol_c *param_value = NULL; |
16083 symbol_c *param_value = NULL; |
15670 do{ |
16084 do{ |
15671 char my_name[10]; |
16085 char my_name[10]; |
15681 if (param_value != NULL){ |
16095 if (param_value != NULL){ |
15682 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16096 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15683 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 ; |
16097 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 ; |
15684 |
16098 |
15685 /*Function specific CODE */ |
16099 /*Function specific CODE */ |
15686 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16100 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15687 } |
16101 } |
15688 |
16102 |
15689 }while(param_value != NULL); |
16103 }while(param_value != NULL); |
15690 symbol_c * return_type_symbol; |
16104 symbol_c * return_type_symbol; |
15691 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
16105 if (search_expression_type->is_literal_integer_type(last_type_symbol)) |
15724 case function_gt : |
16138 case function_gt : |
15725 { |
16139 { |
15726 symbol_c *last_type_symbol = NULL; |
16140 symbol_c *last_type_symbol = NULL; |
15727 |
16141 |
15728 { |
16142 { |
|
16143 identifier_c IN1_param_name("IN1"); |
15729 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16144 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15730 symbol_c *IN1_param_value = &this->default_variable_name; |
16145 symbol_c *IN1_param_value = &this->default_variable_name; |
15731 |
16146 |
15732 symbol_c *IN1_type_symbol = param_data_type; |
16147 symbol_c *IN1_type_symbol = param_data_type; |
15733 last_type_symbol = param_data_type; |
16148 last_type_symbol = param_data_type; |
15734 |
16149 |
15735 |
16150 |
15736 { |
16151 { |
15737 |
16152 |
15738 { |
16153 { |
15739 identifier_c param_name("IN2"); |
16154 identifier_c IN2_param_name("IN2"); |
15740 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16155 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15741 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
16156 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15742 symbol_c *IN2_type_symbol = NULL; |
16157 symbol_c *IN2_type_symbol = NULL; |
15743 |
16158 |
15744 /* Get the value from a foo(<param_value>) style call */ |
16159 /* Get the value from a foo(<param_value>) style call */ |
15745 if (IN2_param_value == NULL) |
16160 if (IN2_param_value == NULL) |
15746 IN2_param_value = function_call_param_iterator.next_nf(); |
16161 IN2_param_value = function_call_param_iterator.next_nf(); |
15756 |
16171 |
15757 if (nb_param < 2) |
16172 if (nb_param < 2) |
15758 nb_param = 2; |
16173 nb_param = 2; |
15759 char* nb_param_str = new char[10]; |
16174 char* nb_param_str = new char[10]; |
15760 sprintf(nb_param_str, "%d", nb_param); |
16175 sprintf(nb_param_str, "%d", nb_param); |
15761 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16176 identifier_c nb_param_name("nb_param"); |
|
16177 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) |
15762 |
16178 |
15763 if (IN1_type_symbol == NULL) |
16179 if (IN1_type_symbol == NULL) |
15764 IN1_type_symbol = last_type_symbol; |
16180 IN1_type_symbol = last_type_symbol; |
15765 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16181 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15766 |
16182 |
15767 if (IN2_type_symbol == NULL) |
16183 if (IN2_type_symbol == NULL) |
15768 IN2_type_symbol = last_type_symbol; |
16184 IN2_type_symbol = last_type_symbol; |
15769 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16185 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15770 |
16186 |
15771 int base_num = 3; |
16187 int base_num = 3; |
15772 symbol_c *param_value = NULL; |
16188 symbol_c *param_value = NULL; |
15773 do{ |
16189 do{ |
15774 char my_name[10]; |
16190 char my_name[10]; |
15784 if (param_value != NULL){ |
16200 if (param_value != NULL){ |
15785 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16201 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15786 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 ; |
16202 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 ; |
15787 |
16203 |
15788 /*Function specific CODE */ |
16204 /*Function specific CODE */ |
15789 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16205 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15790 } |
16206 } |
15791 |
16207 |
15792 }while(param_value != NULL); |
16208 }while(param_value != NULL); |
15793 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16209 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
15794 function_type_suffix = last_type_symbol; |
16210 function_type_suffix = last_type_symbol; |
15815 case function_ge : |
16231 case function_ge : |
15816 { |
16232 { |
15817 symbol_c *last_type_symbol = NULL; |
16233 symbol_c *last_type_symbol = NULL; |
15818 |
16234 |
15819 { |
16235 { |
|
16236 identifier_c IN1_param_name("IN1"); |
15820 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16237 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15821 symbol_c *IN1_param_value = &this->default_variable_name; |
16238 symbol_c *IN1_param_value = &this->default_variable_name; |
15822 |
16239 |
15823 symbol_c *IN1_type_symbol = param_data_type; |
16240 symbol_c *IN1_type_symbol = param_data_type; |
15824 last_type_symbol = param_data_type; |
16241 last_type_symbol = param_data_type; |
15825 |
16242 |
15826 |
16243 |
15827 { |
16244 { |
15828 |
16245 |
15829 { |
16246 { |
15830 identifier_c param_name("IN2"); |
16247 identifier_c IN2_param_name("IN2"); |
15831 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16248 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15832 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
16249 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15833 symbol_c *IN2_type_symbol = NULL; |
16250 symbol_c *IN2_type_symbol = NULL; |
15834 |
16251 |
15835 /* Get the value from a foo(<param_value>) style call */ |
16252 /* Get the value from a foo(<param_value>) style call */ |
15836 if (IN2_param_value == NULL) |
16253 if (IN2_param_value == NULL) |
15837 IN2_param_value = function_call_param_iterator.next_nf(); |
16254 IN2_param_value = function_call_param_iterator.next_nf(); |
15847 |
16264 |
15848 if (nb_param < 2) |
16265 if (nb_param < 2) |
15849 nb_param = 2; |
16266 nb_param = 2; |
15850 char* nb_param_str = new char[10]; |
16267 char* nb_param_str = new char[10]; |
15851 sprintf(nb_param_str, "%d", nb_param); |
16268 sprintf(nb_param_str, "%d", nb_param); |
15852 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16269 identifier_c nb_param_name("nb_param"); |
|
16270 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) |
15853 |
16271 |
15854 if (IN1_type_symbol == NULL) |
16272 if (IN1_type_symbol == NULL) |
15855 IN1_type_symbol = last_type_symbol; |
16273 IN1_type_symbol = last_type_symbol; |
15856 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16274 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15857 |
16275 |
15858 if (IN2_type_symbol == NULL) |
16276 if (IN2_type_symbol == NULL) |
15859 IN2_type_symbol = last_type_symbol; |
16277 IN2_type_symbol = last_type_symbol; |
15860 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16278 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15861 |
16279 |
15862 int base_num = 3; |
16280 int base_num = 3; |
15863 symbol_c *param_value = NULL; |
16281 symbol_c *param_value = NULL; |
15864 do{ |
16282 do{ |
15865 char my_name[10]; |
16283 char my_name[10]; |
15875 if (param_value != NULL){ |
16293 if (param_value != NULL){ |
15876 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16294 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15877 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 ; |
16295 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 ; |
15878 |
16296 |
15879 /*Function specific CODE */ |
16297 /*Function specific CODE */ |
15880 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16298 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15881 } |
16299 } |
15882 |
16300 |
15883 }while(param_value != NULL); |
16301 }while(param_value != NULL); |
15884 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16302 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
15885 function_type_suffix = last_type_symbol; |
16303 function_type_suffix = last_type_symbol; |
15906 case function_eq : |
16324 case function_eq : |
15907 { |
16325 { |
15908 symbol_c *last_type_symbol = NULL; |
16326 symbol_c *last_type_symbol = NULL; |
15909 |
16327 |
15910 { |
16328 { |
|
16329 identifier_c IN1_param_name("IN1"); |
15911 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16330 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15912 symbol_c *IN1_param_value = &this->default_variable_name; |
16331 symbol_c *IN1_param_value = &this->default_variable_name; |
15913 |
16332 |
15914 symbol_c *IN1_type_symbol = param_data_type; |
16333 symbol_c *IN1_type_symbol = param_data_type; |
15915 last_type_symbol = param_data_type; |
16334 last_type_symbol = param_data_type; |
15916 |
16335 |
15917 |
16336 |
15918 { |
16337 { |
15919 |
16338 |
15920 { |
16339 { |
15921 identifier_c param_name("IN2"); |
16340 identifier_c IN2_param_name("IN2"); |
15922 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16341 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
15923 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
16342 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
15924 symbol_c *IN2_type_symbol = NULL; |
16343 symbol_c *IN2_type_symbol = NULL; |
15925 |
16344 |
15926 /* Get the value from a foo(<param_value>) style call */ |
16345 /* Get the value from a foo(<param_value>) style call */ |
15927 if (IN2_param_value == NULL) |
16346 if (IN2_param_value == NULL) |
15928 IN2_param_value = function_call_param_iterator.next_nf(); |
16347 IN2_param_value = function_call_param_iterator.next_nf(); |
15938 |
16357 |
15939 if (nb_param < 2) |
16358 if (nb_param < 2) |
15940 nb_param = 2; |
16359 nb_param = 2; |
15941 char* nb_param_str = new char[10]; |
16360 char* nb_param_str = new char[10]; |
15942 sprintf(nb_param_str, "%d", nb_param); |
16361 sprintf(nb_param_str, "%d", nb_param); |
15943 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16362 identifier_c nb_param_name("nb_param"); |
|
16363 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) |
15944 |
16364 |
15945 if (IN1_type_symbol == NULL) |
16365 if (IN1_type_symbol == NULL) |
15946 IN1_type_symbol = last_type_symbol; |
16366 IN1_type_symbol = last_type_symbol; |
15947 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16367 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
15948 |
16368 |
15949 if (IN2_type_symbol == NULL) |
16369 if (IN2_type_symbol == NULL) |
15950 IN2_type_symbol = last_type_symbol; |
16370 IN2_type_symbol = last_type_symbol; |
15951 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16371 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
15952 |
16372 |
15953 int base_num = 3; |
16373 int base_num = 3; |
15954 symbol_c *param_value = NULL; |
16374 symbol_c *param_value = NULL; |
15955 do{ |
16375 do{ |
15956 char my_name[10]; |
16376 char my_name[10]; |
15966 if (param_value != NULL){ |
16386 if (param_value != NULL){ |
15967 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16387 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
15968 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 ; |
16388 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 ; |
15969 |
16389 |
15970 /*Function specific CODE */ |
16390 /*Function specific CODE */ |
15971 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16391 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
15972 } |
16392 } |
15973 |
16393 |
15974 }while(param_value != NULL); |
16394 }while(param_value != NULL); |
15975 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16395 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
15976 function_type_suffix = last_type_symbol; |
16396 function_type_suffix = last_type_symbol; |
15997 case function_lt : |
16417 case function_lt : |
15998 { |
16418 { |
15999 symbol_c *last_type_symbol = NULL; |
16419 symbol_c *last_type_symbol = NULL; |
16000 |
16420 |
16001 { |
16421 { |
|
16422 identifier_c IN1_param_name("IN1"); |
16002 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16423 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16003 symbol_c *IN1_param_value = &this->default_variable_name; |
16424 symbol_c *IN1_param_value = &this->default_variable_name; |
16004 |
16425 |
16005 symbol_c *IN1_type_symbol = param_data_type; |
16426 symbol_c *IN1_type_symbol = param_data_type; |
16006 last_type_symbol = param_data_type; |
16427 last_type_symbol = param_data_type; |
16007 |
16428 |
16008 |
16429 |
16009 { |
16430 { |
16010 |
16431 |
16011 { |
16432 { |
16012 identifier_c param_name("IN2"); |
16433 identifier_c IN2_param_name("IN2"); |
16013 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16434 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16014 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
16435 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16015 symbol_c *IN2_type_symbol = NULL; |
16436 symbol_c *IN2_type_symbol = NULL; |
16016 |
16437 |
16017 /* Get the value from a foo(<param_value>) style call */ |
16438 /* Get the value from a foo(<param_value>) style call */ |
16018 if (IN2_param_value == NULL) |
16439 if (IN2_param_value == NULL) |
16019 IN2_param_value = function_call_param_iterator.next_nf(); |
16440 IN2_param_value = function_call_param_iterator.next_nf(); |
16029 |
16450 |
16030 if (nb_param < 2) |
16451 if (nb_param < 2) |
16031 nb_param = 2; |
16452 nb_param = 2; |
16032 char* nb_param_str = new char[10]; |
16453 char* nb_param_str = new char[10]; |
16033 sprintf(nb_param_str, "%d", nb_param); |
16454 sprintf(nb_param_str, "%d", nb_param); |
16034 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16455 identifier_c nb_param_name("nb_param"); |
|
16456 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 |
16457 |
16036 if (IN1_type_symbol == NULL) |
16458 if (IN1_type_symbol == NULL) |
16037 IN1_type_symbol = last_type_symbol; |
16459 IN1_type_symbol = last_type_symbol; |
16038 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16460 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16039 |
16461 |
16040 if (IN2_type_symbol == NULL) |
16462 if (IN2_type_symbol == NULL) |
16041 IN2_type_symbol = last_type_symbol; |
16463 IN2_type_symbol = last_type_symbol; |
16042 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16464 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16043 |
16465 |
16044 int base_num = 3; |
16466 int base_num = 3; |
16045 symbol_c *param_value = NULL; |
16467 symbol_c *param_value = NULL; |
16046 do{ |
16468 do{ |
16047 char my_name[10]; |
16469 char my_name[10]; |
16057 if (param_value != NULL){ |
16479 if (param_value != NULL){ |
16058 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16480 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16059 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 ; |
16481 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 ; |
16060 |
16482 |
16061 /*Function specific CODE */ |
16483 /*Function specific CODE */ |
16062 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16484 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16063 } |
16485 } |
16064 |
16486 |
16065 }while(param_value != NULL); |
16487 }while(param_value != NULL); |
16066 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16488 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16067 function_type_suffix = last_type_symbol; |
16489 function_type_suffix = last_type_symbol; |
16088 case function_le : |
16510 case function_le : |
16089 { |
16511 { |
16090 symbol_c *last_type_symbol = NULL; |
16512 symbol_c *last_type_symbol = NULL; |
16091 |
16513 |
16092 { |
16514 { |
|
16515 identifier_c IN1_param_name("IN1"); |
16093 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16516 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16094 symbol_c *IN1_param_value = &this->default_variable_name; |
16517 symbol_c *IN1_param_value = &this->default_variable_name; |
16095 |
16518 |
16096 symbol_c *IN1_type_symbol = param_data_type; |
16519 symbol_c *IN1_type_symbol = param_data_type; |
16097 last_type_symbol = param_data_type; |
16520 last_type_symbol = param_data_type; |
16098 |
16521 |
16099 |
16522 |
16100 { |
16523 { |
16101 |
16524 |
16102 { |
16525 { |
16103 identifier_c param_name("IN2"); |
16526 identifier_c IN2_param_name("IN2"); |
16104 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16527 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16105 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
16528 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16106 symbol_c *IN2_type_symbol = NULL; |
16529 symbol_c *IN2_type_symbol = NULL; |
16107 |
16530 |
16108 /* Get the value from a foo(<param_value>) style call */ |
16531 /* Get the value from a foo(<param_value>) style call */ |
16109 if (IN2_param_value == NULL) |
16532 if (IN2_param_value == NULL) |
16110 IN2_param_value = function_call_param_iterator.next_nf(); |
16533 IN2_param_value = function_call_param_iterator.next_nf(); |
16120 |
16543 |
16121 if (nb_param < 2) |
16544 if (nb_param < 2) |
16122 nb_param = 2; |
16545 nb_param = 2; |
16123 char* nb_param_str = new char[10]; |
16546 char* nb_param_str = new char[10]; |
16124 sprintf(nb_param_str, "%d", nb_param); |
16547 sprintf(nb_param_str, "%d", nb_param); |
16125 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16548 identifier_c nb_param_name("nb_param"); |
|
16549 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) |
16126 |
16550 |
16127 if (IN1_type_symbol == NULL) |
16551 if (IN1_type_symbol == NULL) |
16128 IN1_type_symbol = last_type_symbol; |
16552 IN1_type_symbol = last_type_symbol; |
16129 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16553 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16130 |
16554 |
16131 if (IN2_type_symbol == NULL) |
16555 if (IN2_type_symbol == NULL) |
16132 IN2_type_symbol = last_type_symbol; |
16556 IN2_type_symbol = last_type_symbol; |
16133 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16557 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16134 |
16558 |
16135 int base_num = 3; |
16559 int base_num = 3; |
16136 symbol_c *param_value = NULL; |
16560 symbol_c *param_value = NULL; |
16137 do{ |
16561 do{ |
16138 char my_name[10]; |
16562 char my_name[10]; |
16148 if (param_value != NULL){ |
16572 if (param_value != NULL){ |
16149 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16573 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16150 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 ; |
16574 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 ; |
16151 |
16575 |
16152 /*Function specific CODE */ |
16576 /*Function specific CODE */ |
16153 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16577 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16154 } |
16578 } |
16155 |
16579 |
16156 }while(param_value != NULL); |
16580 }while(param_value != NULL); |
16157 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16581 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16158 function_type_suffix = last_type_symbol; |
16582 function_type_suffix = last_type_symbol; |
16179 case function_ne : |
16603 case function_ne : |
16180 { |
16604 { |
16181 symbol_c *last_type_symbol = NULL; |
16605 symbol_c *last_type_symbol = NULL; |
16182 |
16606 |
16183 { |
16607 { |
|
16608 identifier_c IN1_param_name("IN1"); |
16184 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16609 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16185 symbol_c *IN1_param_value = &this->default_variable_name; |
16610 symbol_c *IN1_param_value = &this->default_variable_name; |
16186 |
16611 |
16187 symbol_c *IN1_type_symbol = param_data_type; |
16612 symbol_c *IN1_type_symbol = param_data_type; |
16188 last_type_symbol = param_data_type; |
16613 last_type_symbol = param_data_type; |
16189 |
16614 |
16190 |
16615 |
16191 { |
16616 { |
16192 |
16617 |
16193 { |
16618 { |
16194 identifier_c param_name("IN2"); |
16619 identifier_c IN2_param_name("IN2"); |
16195 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16620 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16196 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
16621 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16197 symbol_c *IN2_type_symbol = NULL; |
16622 symbol_c *IN2_type_symbol = NULL; |
16198 |
16623 |
16199 /* Get the value from a foo(<param_value>) style call */ |
16624 /* Get the value from a foo(<param_value>) style call */ |
16200 if (IN2_param_value == NULL) |
16625 if (IN2_param_value == NULL) |
16201 IN2_param_value = function_call_param_iterator.next_nf(); |
16626 IN2_param_value = function_call_param_iterator.next_nf(); |
16211 |
16636 |
16212 if (nb_param < 2) |
16637 if (nb_param < 2) |
16213 nb_param = 2; |
16638 nb_param = 2; |
16214 char* nb_param_str = new char[10]; |
16639 char* nb_param_str = new char[10]; |
16215 sprintf(nb_param_str, "%d", nb_param); |
16640 sprintf(nb_param_str, "%d", nb_param); |
16216 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
16641 identifier_c nb_param_name("nb_param"); |
|
16642 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) |
16217 |
16643 |
16218 if (IN1_type_symbol == NULL) |
16644 if (IN1_type_symbol == NULL) |
16219 IN1_type_symbol = last_type_symbol; |
16645 IN1_type_symbol = last_type_symbol; |
16220 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16646 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16221 |
16647 |
16222 if (IN2_type_symbol == NULL) |
16648 if (IN2_type_symbol == NULL) |
16223 IN2_type_symbol = last_type_symbol; |
16649 IN2_type_symbol = last_type_symbol; |
16224 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16650 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16225 |
16651 |
16226 int base_num = 3; |
16652 int base_num = 3; |
16227 symbol_c *param_value = NULL; |
16653 symbol_c *param_value = NULL; |
16228 do{ |
16654 do{ |
16229 char my_name[10]; |
16655 char my_name[10]; |
16239 if (param_value != NULL){ |
16665 if (param_value != NULL){ |
16240 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16666 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16241 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 ; |
16667 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 ; |
16242 |
16668 |
16243 /*Function specific CODE */ |
16669 /*Function specific CODE */ |
16244 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16670 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16245 } |
16671 } |
16246 |
16672 |
16247 }while(param_value != NULL); |
16673 }while(param_value != NULL); |
16248 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16674 symbol_c * return_type_symbol = &search_constant_type_c::bool_type_name; |
16249 function_type_suffix = last_type_symbol; |
16675 function_type_suffix = last_type_symbol; |
16270 case function_len : |
16696 case function_len : |
16271 { |
16697 { |
16272 symbol_c *last_type_symbol = NULL; |
16698 symbol_c *last_type_symbol = NULL; |
16273 |
16699 |
16274 { |
16700 { |
|
16701 identifier_c IN_param_name("IN"); |
16275 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16702 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16276 symbol_c *IN_param_value = &this->default_variable_name; |
16703 symbol_c *IN_param_value = &this->default_variable_name; |
16277 |
16704 |
16278 symbol_c *IN_type_symbol = param_data_type; |
16705 symbol_c *IN_type_symbol = param_data_type; |
16279 last_type_symbol = param_data_type; |
16706 last_type_symbol = param_data_type; |
16283 |
16710 |
16284 function_name = (symbol_c*)(new pragma_c("__len")); |
16711 function_name = (symbol_c*)(new pragma_c("__len")); |
16285 |
16712 |
16286 if (IN_type_symbol == NULL) |
16713 if (IN_type_symbol == NULL) |
16287 IN_type_symbol = last_type_symbol; |
16714 IN_type_symbol = last_type_symbol; |
16288 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16715 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16289 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
16716 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
16290 break; |
16717 break; |
16291 |
16718 |
16292 } |
16719 } |
16293 |
16720 |
16304 case function_left : |
16731 case function_left : |
16305 { |
16732 { |
16306 symbol_c *last_type_symbol = NULL; |
16733 symbol_c *last_type_symbol = NULL; |
16307 |
16734 |
16308 { |
16735 { |
|
16736 identifier_c IN_param_name("IN"); |
16309 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16737 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16310 symbol_c *IN_param_value = &this->default_variable_name; |
16738 symbol_c *IN_param_value = &this->default_variable_name; |
16311 |
16739 |
16312 symbol_c *IN_type_symbol = param_data_type; |
16740 symbol_c *IN_type_symbol = param_data_type; |
16313 last_type_symbol = param_data_type; |
16741 last_type_symbol = param_data_type; |
16314 |
16742 |
16315 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16743 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16316 { |
16744 { |
16317 |
16745 |
16318 { |
16746 { |
16319 identifier_c param_name("L"); |
16747 identifier_c L_param_name("L"); |
16320 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16748 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16321 symbol_c *L_param_value = function_call_param_iterator.search_f(¶m_name); |
16749 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
16322 symbol_c *L_type_symbol = NULL; |
16750 symbol_c *L_type_symbol = NULL; |
16323 |
16751 |
16324 /* Get the value from a foo(<param_value>) style call */ |
16752 /* Get the value from a foo(<param_value>) style call */ |
16325 if (L_param_value == NULL) |
16753 if (L_param_value == NULL) |
16326 L_param_value = function_call_param_iterator.next_nf(); |
16754 L_param_value = function_call_param_iterator.next_nf(); |
16334 |
16762 |
16335 function_name = (symbol_c*)(new pragma_c("__left")); |
16763 function_name = (symbol_c*)(new pragma_c("__left")); |
16336 |
16764 |
16337 if (IN_type_symbol == NULL) |
16765 if (IN_type_symbol == NULL) |
16338 IN_type_symbol = last_type_symbol; |
16766 IN_type_symbol = last_type_symbol; |
16339 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16767 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16340 |
16768 |
16341 if (L_type_symbol == NULL) |
16769 if (L_type_symbol == NULL) |
16342 L_type_symbol = last_type_symbol; |
16770 L_type_symbol = last_type_symbol; |
16343 ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16771 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16344 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16772 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16345 break; |
16773 break; |
16346 |
16774 |
16347 } |
16775 } |
16348 |
16776 |
16365 case function_right : |
16793 case function_right : |
16366 { |
16794 { |
16367 symbol_c *last_type_symbol = NULL; |
16795 symbol_c *last_type_symbol = NULL; |
16368 |
16796 |
16369 { |
16797 { |
|
16798 identifier_c IN_param_name("IN"); |
16370 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16799 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16371 symbol_c *IN_param_value = &this->default_variable_name; |
16800 symbol_c *IN_param_value = &this->default_variable_name; |
16372 |
16801 |
16373 symbol_c *IN_type_symbol = param_data_type; |
16802 symbol_c *IN_type_symbol = param_data_type; |
16374 last_type_symbol = param_data_type; |
16803 last_type_symbol = param_data_type; |
16375 |
16804 |
16376 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16805 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16377 { |
16806 { |
16378 |
16807 |
16379 { |
16808 { |
16380 identifier_c param_name("L"); |
16809 identifier_c L_param_name("L"); |
16381 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16810 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16382 symbol_c *L_param_value = function_call_param_iterator.search_f(¶m_name); |
16811 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
16383 symbol_c *L_type_symbol = NULL; |
16812 symbol_c *L_type_symbol = NULL; |
16384 |
16813 |
16385 /* Get the value from a foo(<param_value>) style call */ |
16814 /* Get the value from a foo(<param_value>) style call */ |
16386 if (L_param_value == NULL) |
16815 if (L_param_value == NULL) |
16387 L_param_value = function_call_param_iterator.next_nf(); |
16816 L_param_value = function_call_param_iterator.next_nf(); |
16395 |
16824 |
16396 function_name = (symbol_c*)(new pragma_c("__right")); |
16825 function_name = (symbol_c*)(new pragma_c("__right")); |
16397 |
16826 |
16398 if (IN_type_symbol == NULL) |
16827 if (IN_type_symbol == NULL) |
16399 IN_type_symbol = last_type_symbol; |
16828 IN_type_symbol = last_type_symbol; |
16400 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16829 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16401 |
16830 |
16402 if (L_type_symbol == NULL) |
16831 if (L_type_symbol == NULL) |
16403 L_type_symbol = last_type_symbol; |
16832 L_type_symbol = last_type_symbol; |
16404 ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16833 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16405 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16834 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16406 break; |
16835 break; |
16407 |
16836 |
16408 } |
16837 } |
16409 |
16838 |
16426 case function_mid : |
16855 case function_mid : |
16427 { |
16856 { |
16428 symbol_c *last_type_symbol = NULL; |
16857 symbol_c *last_type_symbol = NULL; |
16429 |
16858 |
16430 { |
16859 { |
|
16860 identifier_c IN_param_name("IN"); |
16431 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16861 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16432 symbol_c *IN_param_value = &this->default_variable_name; |
16862 symbol_c *IN_param_value = &this->default_variable_name; |
16433 |
16863 |
16434 symbol_c *IN_type_symbol = param_data_type; |
16864 symbol_c *IN_type_symbol = param_data_type; |
16435 last_type_symbol = param_data_type; |
16865 last_type_symbol = param_data_type; |
16436 |
16866 |
16437 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16867 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16438 { |
16868 { |
16439 |
16869 |
16440 { |
16870 { |
16441 identifier_c param_name("L"); |
16871 identifier_c L_param_name("L"); |
16442 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16872 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16443 symbol_c *L_param_value = function_call_param_iterator.search_f(¶m_name); |
16873 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
16444 symbol_c *L_type_symbol = NULL; |
16874 symbol_c *L_type_symbol = NULL; |
16445 |
16875 |
16446 /* Get the value from a foo(<param_value>) style call */ |
16876 /* Get the value from a foo(<param_value>) style call */ |
16447 if (L_param_value == NULL) |
16877 if (L_param_value == NULL) |
16448 L_param_value = function_call_param_iterator.next_nf(); |
16878 L_param_value = function_call_param_iterator.next_nf(); |
16453 |
16883 |
16454 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
16884 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
16455 { |
16885 { |
16456 |
16886 |
16457 { |
16887 { |
16458 identifier_c param_name("P"); |
16888 identifier_c P_param_name("P"); |
16459 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16889 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16460 symbol_c *P_param_value = function_call_param_iterator.search_f(¶m_name); |
16890 symbol_c *P_param_value = function_call_param_iterator.search_f(&P_param_name); |
16461 symbol_c *P_type_symbol = NULL; |
16891 symbol_c *P_type_symbol = NULL; |
16462 |
16892 |
16463 /* Get the value from a foo(<param_value>) style call */ |
16893 /* Get the value from a foo(<param_value>) style call */ |
16464 if (P_param_value == NULL) |
16894 if (P_param_value == NULL) |
16465 P_param_value = function_call_param_iterator.next_nf(); |
16895 P_param_value = function_call_param_iterator.next_nf(); |
16473 |
16903 |
16474 function_name = (symbol_c*)(new pragma_c("__mid")); |
16904 function_name = (symbol_c*)(new pragma_c("__mid")); |
16475 |
16905 |
16476 if (IN_type_symbol == NULL) |
16906 if (IN_type_symbol == NULL) |
16477 IN_type_symbol = last_type_symbol; |
16907 IN_type_symbol = last_type_symbol; |
16478 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16908 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16479 |
16909 |
16480 if (L_type_symbol == NULL) |
16910 if (L_type_symbol == NULL) |
16481 L_type_symbol = last_type_symbol; |
16911 L_type_symbol = last_type_symbol; |
16482 ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16912 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16483 |
16913 |
16484 if (P_type_symbol == NULL) |
16914 if (P_type_symbol == NULL) |
16485 P_type_symbol = last_type_symbol; |
16915 P_type_symbol = last_type_symbol; |
16486 ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
16916 ADD_PARAM_LIST(&P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
16487 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16917 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16488 break; |
16918 break; |
16489 |
16919 |
16490 } |
16920 } |
16491 |
16921 |
16514 case function_concat : |
16944 case function_concat : |
16515 { |
16945 { |
16516 symbol_c *last_type_symbol = NULL; |
16946 symbol_c *last_type_symbol = NULL; |
16517 |
16947 |
16518 { |
16948 { |
|
16949 identifier_c IN1_param_name("IN1"); |
16519 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16950 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16520 symbol_c *IN1_param_value = &this->default_variable_name; |
16951 symbol_c *IN1_param_value = &this->default_variable_name; |
16521 |
16952 |
16522 symbol_c *IN1_type_symbol = param_data_type; |
16953 symbol_c *IN1_type_symbol = param_data_type; |
16523 last_type_symbol = param_data_type; |
16954 last_type_symbol = param_data_type; |
16524 |
16955 |
16525 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol)) |
16956 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::date_type_name, last_type_symbol)) |
16526 { |
16957 { |
16527 |
16958 |
16528 { |
16959 { |
16529 identifier_c param_name("IN2"); |
16960 identifier_c IN2_param_name("IN2"); |
16530 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16961 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16531 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
16962 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16532 symbol_c *IN2_type_symbol = NULL; |
16963 symbol_c *IN2_type_symbol = NULL; |
16533 |
16964 |
16534 /* Get the value from a foo(<param_value>) style call */ |
16965 /* Get the value from a foo(<param_value>) style call */ |
16535 if (IN2_param_value == NULL) |
16966 if (IN2_param_value == NULL) |
16536 IN2_param_value = function_call_param_iterator.next_nf(); |
16967 IN2_param_value = function_call_param_iterator.next_nf(); |
16544 |
16975 |
16545 function_name = (symbol_c*)(new pragma_c("__time_add")); |
16976 function_name = (symbol_c*)(new pragma_c("__time_add")); |
16546 |
16977 |
16547 if (IN1_type_symbol == NULL) |
16978 if (IN1_type_symbol == NULL) |
16548 IN1_type_symbol = last_type_symbol; |
16979 IN1_type_symbol = last_type_symbol; |
16549 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16980 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16550 |
16981 |
16551 if (IN2_type_symbol == NULL) |
16982 if (IN2_type_symbol == NULL) |
16552 IN2_type_symbol = last_type_symbol; |
16983 IN2_type_symbol = last_type_symbol; |
16553 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16984 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16554 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
16985 symbol_c * return_type_symbol = &search_constant_type_c::dt_type_name; |
16555 break; |
16986 break; |
16556 |
16987 |
16557 } |
16988 } |
16558 |
16989 |
16564 |
16995 |
16565 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16996 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16566 { |
16997 { |
16567 |
16998 |
16568 { |
16999 { |
16569 identifier_c param_name("IN2"); |
17000 identifier_c IN2_param_name("IN2"); |
16570 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17001 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16571 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
17002 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16572 symbol_c *IN2_type_symbol = NULL; |
17003 symbol_c *IN2_type_symbol = NULL; |
16573 |
17004 |
16574 /* Get the value from a foo(<param_value>) style call */ |
17005 /* Get the value from a foo(<param_value>) style call */ |
16575 if (IN2_param_value == NULL) |
17006 if (IN2_param_value == NULL) |
16576 IN2_param_value = function_call_param_iterator.next_nf(); |
17007 IN2_param_value = function_call_param_iterator.next_nf(); |
16586 |
17017 |
16587 if (nb_param < 2) |
17018 if (nb_param < 2) |
16588 nb_param = 2; |
17019 nb_param = 2; |
16589 char* nb_param_str = new char[10]; |
17020 char* nb_param_str = new char[10]; |
16590 sprintf(nb_param_str, "%d", nb_param); |
17021 sprintf(nb_param_str, "%d", nb_param); |
16591 ADD_PARAM_LIST((symbol_c*)(new integer_c((const char *)nb_param_str)), (symbol_c*)(new int_type_name_c()), function_param_iterator_c::direction_in) |
17022 identifier_c nb_param_name("nb_param"); |
|
17023 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) |
16592 |
17024 |
16593 if (IN1_type_symbol == NULL) |
17025 if (IN1_type_symbol == NULL) |
16594 IN1_type_symbol = last_type_symbol; |
17026 IN1_type_symbol = last_type_symbol; |
16595 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17027 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16596 |
17028 |
16597 if (IN2_type_symbol == NULL) |
17029 if (IN2_type_symbol == NULL) |
16598 IN2_type_symbol = last_type_symbol; |
17030 IN2_type_symbol = last_type_symbol; |
16599 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17031 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16600 |
17032 |
16601 int base_num = 3; |
17033 int base_num = 3; |
16602 symbol_c *param_value = NULL; |
17034 symbol_c *param_value = NULL; |
16603 do{ |
17035 do{ |
16604 char my_name[10]; |
17036 char my_name[10]; |
16614 if (param_value != NULL){ |
17046 if (param_value != NULL){ |
16615 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
17047 symbol_c *current_type_symbol = search_expression_type->get_type(param_value); |
16616 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 ; |
17048 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 ; |
16617 |
17049 |
16618 /*Function specific CODE */ |
17050 /*Function specific CODE */ |
16619 ADD_PARAM_LIST(param_value, current_type_symbol, function_param_iterator_c::direction_in) |
17051 ADD_PARAM_LIST(¶m_name, param_value, current_type_symbol, function_param_iterator_c::direction_in) |
16620 } |
17052 } |
16621 |
17053 |
16622 }while(param_value != NULL); |
17054 }while(param_value != NULL); |
16623 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17055 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16624 break; |
17056 break; |
16644 case function_insert : |
17076 case function_insert : |
16645 { |
17077 { |
16646 symbol_c *last_type_symbol = NULL; |
17078 symbol_c *last_type_symbol = NULL; |
16647 |
17079 |
16648 { |
17080 { |
|
17081 identifier_c IN1_param_name("IN1"); |
16649 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17082 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16650 symbol_c *IN1_param_value = &this->default_variable_name; |
17083 symbol_c *IN1_param_value = &this->default_variable_name; |
16651 |
17084 |
16652 symbol_c *IN1_type_symbol = param_data_type; |
17085 symbol_c *IN1_type_symbol = param_data_type; |
16653 last_type_symbol = param_data_type; |
17086 last_type_symbol = param_data_type; |
16654 |
17087 |
16655 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17088 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16656 { |
17089 { |
16657 |
17090 |
16658 { |
17091 { |
16659 identifier_c param_name("IN2"); |
17092 identifier_c IN2_param_name("IN2"); |
16660 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17093 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16661 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
17094 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16662 symbol_c *IN2_type_symbol = NULL; |
17095 symbol_c *IN2_type_symbol = NULL; |
16663 |
17096 |
16664 /* Get the value from a foo(<param_value>) style call */ |
17097 /* Get the value from a foo(<param_value>) style call */ |
16665 if (IN2_param_value == NULL) |
17098 if (IN2_param_value == NULL) |
16666 IN2_param_value = function_call_param_iterator.next_nf(); |
17099 IN2_param_value = function_call_param_iterator.next_nf(); |
16671 |
17104 |
16672 if(IN2_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17105 if(IN2_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16673 { |
17106 { |
16674 |
17107 |
16675 { |
17108 { |
16676 identifier_c param_name("P"); |
17109 identifier_c P_param_name("P"); |
16677 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17110 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16678 symbol_c *P_param_value = function_call_param_iterator.search_f(¶m_name); |
17111 symbol_c *P_param_value = function_call_param_iterator.search_f(&P_param_name); |
16679 symbol_c *P_type_symbol = NULL; |
17112 symbol_c *P_type_symbol = NULL; |
16680 |
17113 |
16681 /* Get the value from a foo(<param_value>) style call */ |
17114 /* Get the value from a foo(<param_value>) style call */ |
16682 if (P_param_value == NULL) |
17115 if (P_param_value == NULL) |
16683 P_param_value = function_call_param_iterator.next_nf(); |
17116 P_param_value = function_call_param_iterator.next_nf(); |
16691 |
17124 |
16692 function_name = (symbol_c*)(new pragma_c("__insert")); |
17125 function_name = (symbol_c*)(new pragma_c("__insert")); |
16693 |
17126 |
16694 if (IN1_type_symbol == NULL) |
17127 if (IN1_type_symbol == NULL) |
16695 IN1_type_symbol = last_type_symbol; |
17128 IN1_type_symbol = last_type_symbol; |
16696 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17129 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16697 |
17130 |
16698 if (IN2_type_symbol == NULL) |
17131 if (IN2_type_symbol == NULL) |
16699 IN2_type_symbol = last_type_symbol; |
17132 IN2_type_symbol = last_type_symbol; |
16700 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17133 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16701 |
17134 |
16702 if (P_type_symbol == NULL) |
17135 if (P_type_symbol == NULL) |
16703 P_type_symbol = last_type_symbol; |
17136 P_type_symbol = last_type_symbol; |
16704 ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17137 ADD_PARAM_LIST(&P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
16705 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17138 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16706 break; |
17139 break; |
16707 |
17140 |
16708 } |
17141 } |
16709 |
17142 |
16732 case function_delete : |
17165 case function_delete : |
16733 { |
17166 { |
16734 symbol_c *last_type_symbol = NULL; |
17167 symbol_c *last_type_symbol = NULL; |
16735 |
17168 |
16736 { |
17169 { |
|
17170 identifier_c IN_param_name("IN"); |
16737 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17171 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16738 symbol_c *IN_param_value = &this->default_variable_name; |
17172 symbol_c *IN_param_value = &this->default_variable_name; |
16739 |
17173 |
16740 symbol_c *IN_type_symbol = param_data_type; |
17174 symbol_c *IN_type_symbol = param_data_type; |
16741 last_type_symbol = param_data_type; |
17175 last_type_symbol = param_data_type; |
16742 |
17176 |
16743 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17177 if(IN_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16744 { |
17178 { |
16745 |
17179 |
16746 { |
17180 { |
16747 identifier_c param_name("L"); |
17181 identifier_c L_param_name("L"); |
16748 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17182 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16749 symbol_c *L_param_value = function_call_param_iterator.search_f(¶m_name); |
17183 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
16750 symbol_c *L_type_symbol = NULL; |
17184 symbol_c *L_type_symbol = NULL; |
16751 |
17185 |
16752 /* Get the value from a foo(<param_value>) style call */ |
17186 /* Get the value from a foo(<param_value>) style call */ |
16753 if (L_param_value == NULL) |
17187 if (L_param_value == NULL) |
16754 L_param_value = function_call_param_iterator.next_nf(); |
17188 L_param_value = function_call_param_iterator.next_nf(); |
16759 |
17193 |
16760 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
17194 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
16761 { |
17195 { |
16762 |
17196 |
16763 { |
17197 { |
16764 identifier_c param_name("P"); |
17198 identifier_c P_param_name("P"); |
16765 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17199 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16766 symbol_c *P_param_value = function_call_param_iterator.search_f(¶m_name); |
17200 symbol_c *P_param_value = function_call_param_iterator.search_f(&P_param_name); |
16767 symbol_c *P_type_symbol = NULL; |
17201 symbol_c *P_type_symbol = NULL; |
16768 |
17202 |
16769 /* Get the value from a foo(<param_value>) style call */ |
17203 /* Get the value from a foo(<param_value>) style call */ |
16770 if (P_param_value == NULL) |
17204 if (P_param_value == NULL) |
16771 P_param_value = function_call_param_iterator.next_nf(); |
17205 P_param_value = function_call_param_iterator.next_nf(); |
16779 |
17213 |
16780 function_name = (symbol_c*)(new pragma_c("__delete")); |
17214 function_name = (symbol_c*)(new pragma_c("__delete")); |
16781 |
17215 |
16782 if (IN_type_symbol == NULL) |
17216 if (IN_type_symbol == NULL) |
16783 IN_type_symbol = last_type_symbol; |
17217 IN_type_symbol = last_type_symbol; |
16784 ADD_PARAM_LIST(IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
17218 ADD_PARAM_LIST(&IN_param_name, IN_param_value, IN_type_symbol, function_param_iterator_c::direction_in) |
16785 |
17219 |
16786 if (L_type_symbol == NULL) |
17220 if (L_type_symbol == NULL) |
16787 L_type_symbol = last_type_symbol; |
17221 L_type_symbol = last_type_symbol; |
16788 ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
17222 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16789 |
17223 |
16790 if (P_type_symbol == NULL) |
17224 if (P_type_symbol == NULL) |
16791 P_type_symbol = last_type_symbol; |
17225 P_type_symbol = last_type_symbol; |
16792 ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17226 ADD_PARAM_LIST(&P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
16793 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17227 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16794 break; |
17228 break; |
16795 |
17229 |
16796 } |
17230 } |
16797 |
17231 |
16820 case function_replace : |
17254 case function_replace : |
16821 { |
17255 { |
16822 symbol_c *last_type_symbol = NULL; |
17256 symbol_c *last_type_symbol = NULL; |
16823 |
17257 |
16824 { |
17258 { |
|
17259 identifier_c IN1_param_name("IN1"); |
16825 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17260 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16826 symbol_c *IN1_param_value = &this->default_variable_name; |
17261 symbol_c *IN1_param_value = &this->default_variable_name; |
16827 |
17262 |
16828 symbol_c *IN1_type_symbol = param_data_type; |
17263 symbol_c *IN1_type_symbol = param_data_type; |
16829 last_type_symbol = param_data_type; |
17264 last_type_symbol = param_data_type; |
16830 |
17265 |
16831 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17266 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16832 { |
17267 { |
16833 |
17268 |
16834 { |
17269 { |
16835 identifier_c param_name("IN2"); |
17270 identifier_c IN2_param_name("IN2"); |
16836 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17271 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16837 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
17272 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16838 symbol_c *IN2_type_symbol = NULL; |
17273 symbol_c *IN2_type_symbol = NULL; |
16839 |
17274 |
16840 /* Get the value from a foo(<param_value>) style call */ |
17275 /* Get the value from a foo(<param_value>) style call */ |
16841 if (IN2_param_value == NULL) |
17276 if (IN2_param_value == NULL) |
16842 IN2_param_value = function_call_param_iterator.next_nf(); |
17277 IN2_param_value = function_call_param_iterator.next_nf(); |
16847 |
17282 |
16848 if(IN2_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17283 if(IN2_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16849 { |
17284 { |
16850 |
17285 |
16851 { |
17286 { |
16852 identifier_c param_name("L"); |
17287 identifier_c L_param_name("L"); |
16853 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17288 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16854 symbol_c *L_param_value = function_call_param_iterator.search_f(¶m_name); |
17289 symbol_c *L_param_value = function_call_param_iterator.search_f(&L_param_name); |
16855 symbol_c *L_type_symbol = NULL; |
17290 symbol_c *L_type_symbol = NULL; |
16856 |
17291 |
16857 /* Get the value from a foo(<param_value>) style call */ |
17292 /* Get the value from a foo(<param_value>) style call */ |
16858 if (L_param_value == NULL) |
17293 if (L_param_value == NULL) |
16859 L_param_value = function_call_param_iterator.next_nf(); |
17294 L_param_value = function_call_param_iterator.next_nf(); |
16864 |
17299 |
16865 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
17300 if(L_type_symbol == NULL || search_expression_type->is_integer_type(L_type_symbol)) |
16866 { |
17301 { |
16867 |
17302 |
16868 { |
17303 { |
16869 identifier_c param_name("P"); |
17304 identifier_c P_param_name("P"); |
16870 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17305 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16871 symbol_c *P_param_value = function_call_param_iterator.search_f(¶m_name); |
17306 symbol_c *P_param_value = function_call_param_iterator.search_f(&P_param_name); |
16872 symbol_c *P_type_symbol = NULL; |
17307 symbol_c *P_type_symbol = NULL; |
16873 |
17308 |
16874 /* Get the value from a foo(<param_value>) style call */ |
17309 /* Get the value from a foo(<param_value>) style call */ |
16875 if (P_param_value == NULL) |
17310 if (P_param_value == NULL) |
16876 P_param_value = function_call_param_iterator.next_nf(); |
17311 P_param_value = function_call_param_iterator.next_nf(); |
16884 |
17319 |
16885 function_name = (symbol_c*)(new pragma_c("__replace")); |
17320 function_name = (symbol_c*)(new pragma_c("__replace")); |
16886 |
17321 |
16887 if (IN1_type_symbol == NULL) |
17322 if (IN1_type_symbol == NULL) |
16888 IN1_type_symbol = last_type_symbol; |
17323 IN1_type_symbol = last_type_symbol; |
16889 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17324 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16890 |
17325 |
16891 if (IN2_type_symbol == NULL) |
17326 if (IN2_type_symbol == NULL) |
16892 IN2_type_symbol = last_type_symbol; |
17327 IN2_type_symbol = last_type_symbol; |
16893 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17328 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16894 |
17329 |
16895 if (L_type_symbol == NULL) |
17330 if (L_type_symbol == NULL) |
16896 L_type_symbol = last_type_symbol; |
17331 L_type_symbol = last_type_symbol; |
16897 ADD_PARAM_LIST(L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
17332 ADD_PARAM_LIST(&L_param_name, L_param_value, L_type_symbol, function_param_iterator_c::direction_in) |
16898 |
17333 |
16899 if (P_type_symbol == NULL) |
17334 if (P_type_symbol == NULL) |
16900 P_type_symbol = last_type_symbol; |
17335 P_type_symbol = last_type_symbol; |
16901 ADD_PARAM_LIST(P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
17336 ADD_PARAM_LIST(&P_param_name, P_param_value, P_type_symbol, function_param_iterator_c::direction_in) |
16902 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
17337 symbol_c * return_type_symbol = &search_constant_type_c::string_type_name; |
16903 break; |
17338 break; |
16904 |
17339 |
16905 } |
17340 } |
16906 |
17341 |
16935 case function_find : |
17370 case function_find : |
16936 { |
17371 { |
16937 symbol_c *last_type_symbol = NULL; |
17372 symbol_c *last_type_symbol = NULL; |
16938 |
17373 |
16939 { |
17374 { |
|
17375 identifier_c IN1_param_name("IN1"); |
16940 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17376 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16941 symbol_c *IN1_param_value = &this->default_variable_name; |
17377 symbol_c *IN1_param_value = &this->default_variable_name; |
16942 |
17378 |
16943 symbol_c *IN1_type_symbol = param_data_type; |
17379 symbol_c *IN1_type_symbol = param_data_type; |
16944 last_type_symbol = param_data_type; |
17380 last_type_symbol = param_data_type; |
16945 |
17381 |
16946 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
17382 if(IN1_type_symbol == NULL || search_expression_type->is_same_type(&search_constant_type_c::string_type_name, last_type_symbol)) |
16947 { |
17383 { |
16948 |
17384 |
16949 { |
17385 { |
16950 identifier_c param_name("IN2"); |
17386 identifier_c IN2_param_name("IN2"); |
16951 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
17387 /* Get the value from a foo(<param_name> = <param_value>) style call */ |
16952 symbol_c *IN2_param_value = function_call_param_iterator.search_f(¶m_name); |
17388 symbol_c *IN2_param_value = function_call_param_iterator.search_f(&IN2_param_name); |
16953 symbol_c *IN2_type_symbol = NULL; |
17389 symbol_c *IN2_type_symbol = NULL; |
16954 |
17390 |
16955 /* Get the value from a foo(<param_value>) style call */ |
17391 /* Get the value from a foo(<param_value>) style call */ |
16956 if (IN2_param_value == NULL) |
17392 if (IN2_param_value == NULL) |
16957 IN2_param_value = function_call_param_iterator.next_nf(); |
17393 IN2_param_value = function_call_param_iterator.next_nf(); |
16965 |
17401 |
16966 function_name = (symbol_c*)(new pragma_c("__find")); |
17402 function_name = (symbol_c*)(new pragma_c("__find")); |
16967 |
17403 |
16968 if (IN1_type_symbol == NULL) |
17404 if (IN1_type_symbol == NULL) |
16969 IN1_type_symbol = last_type_symbol; |
17405 IN1_type_symbol = last_type_symbol; |
16970 ADD_PARAM_LIST(IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
17406 ADD_PARAM_LIST(&IN1_param_name, IN1_param_value, IN1_type_symbol, function_param_iterator_c::direction_in) |
16971 |
17407 |
16972 if (IN2_type_symbol == NULL) |
17408 if (IN2_type_symbol == NULL) |
16973 IN2_type_symbol = last_type_symbol; |
17409 IN2_type_symbol = last_type_symbol; |
16974 ADD_PARAM_LIST(IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
17410 ADD_PARAM_LIST(&IN2_param_name, IN2_param_value, IN2_type_symbol, function_param_iterator_c::direction_in) |
16975 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
17411 symbol_c * return_type_symbol = &search_constant_type_c::int_type_name; |
16976 break; |
17412 break; |
16977 |
17413 |
16978 } |
17414 } |
16979 |
17415 |