equal
deleted
inserted
replaced
125 void *visit(safelword_type_name_c *symbol) {return (void *)symbol;}; |
125 void *visit(safelword_type_name_c *symbol) {return (void *)symbol;}; |
126 void *visit(safedword_type_name_c *symbol) {return (void *)symbol;}; |
126 void *visit(safedword_type_name_c *symbol) {return (void *)symbol;}; |
127 void *visit(safestring_type_name_c *symbol) {return (void *)symbol;}; |
127 void *visit(safestring_type_name_c *symbol) {return (void *)symbol;}; |
128 void *visit(safewstring_type_name_c *symbol) {return (void *)symbol;}; |
128 void *visit(safewstring_type_name_c *symbol) {return (void *)symbol;}; |
129 |
129 |
|
130 void *visit(void_type_name_c *symbol) {return (void *)symbol;}; |
|
131 |
130 /********************************/ |
132 /********************************/ |
131 /* B 1.3.3 - Derived data types */ |
133 /* B 1.3.3 - Derived data types */ |
132 /********************************/ |
134 /********************************/ |
133 /* simple_type_name ':' simple_spec_init */ |
135 /* simple_type_name ':' simple_spec_init */ |
134 void *visit(simple_type_declaration_c *symbol) {return symbol->simple_type_name;} |
136 void *visit(simple_type_declaration_c *symbol) {return symbol->simple_type_name;} |
257 void *visit(safeword_type_name_c *symbol) {return (void *)"SAFEWORD"; }; |
259 void *visit(safeword_type_name_c *symbol) {return (void *)"SAFEWORD"; }; |
258 void *visit(safelword_type_name_c *symbol) {return (void *)"SAFELWORD"; }; |
260 void *visit(safelword_type_name_c *symbol) {return (void *)"SAFELWORD"; }; |
259 void *visit(safedword_type_name_c *symbol) {return (void *)"SAFEDWORD"; }; |
261 void *visit(safedword_type_name_c *symbol) {return (void *)"SAFEDWORD"; }; |
260 void *visit(safestring_type_name_c *symbol) {return (void *)"SAFESTRING"; }; |
262 void *visit(safestring_type_name_c *symbol) {return (void *)"SAFESTRING"; }; |
261 void *visit(safewstring_type_name_c *symbol) {return (void *)"SAFEWSTRING"; }; |
263 void *visit(safewstring_type_name_c *symbol) {return (void *)"SAFEWSTRING"; }; |
|
264 |
|
265 void *visit(void_type_name_c *symbol) {return (void *)"VOID"; }; |
262 |
266 |
263 /********************************/ |
267 /********************************/ |
264 /* B.1.3.2 - Generic data types */ |
268 /* B.1.3.2 - Generic data types */ |
265 /********************************/ |
269 /********************************/ |
266 void *visit(generic_type_any_c *symbol) {return (void *)"ANY"; }; |
270 void *visit(generic_type_any_c *symbol) {return (void *)"ANY"; }; |
1350 |
1354 |
1351 |
1355 |
1352 |
1356 |
1353 |
1357 |
1354 |
1358 |
|
1359 |
|
1360 bool get_datatype_info_c::is_VOID(symbol_c *type_symbol) { |
|
1361 if (type_symbol == NULL) {return false;} |
|
1362 if (typeid(*type_symbol) == typeid(void_type_name_c)) {return true;} |
|
1363 return false; |
|
1364 } |
|
1365 |
|
1366 |
|
1367 |
|
1368 |
|
1369 |
|
1370 |
|
1371 |
|
1372 |
|
1373 |
1355 /* Can't we do away with this?? */ |
1374 /* Can't we do away with this?? */ |
1356 bool get_datatype_info_c::is_ANY_REAL_literal(symbol_c *type_symbol) { |
1375 bool get_datatype_info_c::is_ANY_REAL_literal(symbol_c *type_symbol) { |
1357 if (type_symbol == NULL) {return true;} /* Please make sure things will work correctly before changing this to false!! */ |
1376 if (type_symbol == NULL) {return true;} /* Please make sure things will work correctly before changing this to false!! */ |
1358 if (typeid(*type_symbol) == typeid(real_c)) {return true;} |
1377 if (typeid(*type_symbol) == typeid(real_c)) {return true;} |
1359 if (typeid(*type_symbol) == typeid(neg_real_c)) {return true;} |
1378 if (typeid(*type_symbol) == typeid(neg_real_c)) {return true;} |