| 3 |
|
|
| 4 |
|
#include "parse_tree.h" |
| 5 |
|
|
| 6 |
+ |
#ifdef IS_MPI |
| 7 |
+ |
#define __is_lex__ |
| 8 |
+ |
#include "../headers/mpiInterface.h" |
| 9 |
+ |
#endif |
| 10 |
+ |
|
| 11 |
|
void walk_down( struct node_tag* the_node, struct namespc the_namespc ); |
| 12 |
|
int mol_index; // keeps track of the number of molecules |
| 13 |
|
int comp_index; // keeps track of the number of components. |
| 32 |
|
|
| 33 |
|
mol_index = 0; |
| 34 |
|
comp_index = 0; |
| 35 |
< |
walk_down( head_node->next_stmt, global_namespc ); |
| 35 |
> |
walk_down( head_node->next_stmt, global_namespc ); // closed global namespace + exit |
| 36 |
> |
|
| 37 |
|
} |
| 38 |
|
|
| 39 |
|
/* |
| 230 |
|
exit(0); |
| 231 |
|
} |
| 232 |
|
|
| 233 |
< |
init_start_index( the_node, the_namespc ); |
| 233 |
> |
//init_start_index( the_node, the_namespc ); |
| 234 |
|
break; |
| 235 |
|
|
| 236 |
|
default: |
| 338 |
|
case STR_ASSN: |
| 339 |
|
fprintf( stderr, |
| 340 |
|
"%s", |
| 341 |
< |
err_node->the_data.asmt.rhs ); |
| 341 |
> |
err_node->the_data.asmt.rhs.str_ptr ); |
| 342 |
|
break; |
| 343 |
|
|
| 344 |
|
case INT_ASSN: |
| 345 |
|
fprintf( stderr, |
| 346 |
|
"%d", |
| 347 |
< |
err_node->the_data.asmt.rhs ); |
| 347 |
> |
err_node->the_data.asmt.rhs.i_val ); |
| 348 |
|
break; |
| 349 |
|
|
| 350 |
|
case DOUBLE_ASSN: |
| 351 |
|
fprintf( stderr, |
| 352 |
|
"%lf", |
| 353 |
< |
err_node->the_data.asmt.rhs ); |
| 353 |
> |
err_node->the_data.asmt.rhs.d_val ); |
| 354 |
|
break; |
| 355 |
|
} |
| 356 |
|
|
| 364 |
|
fprintf( stderr, |
| 365 |
|
"Parse tree error: position node error => ( %lf, %lf, %lf )\n" |
| 366 |
|
" -> %s\n", |
| 367 |
+ |
err_node->the_data.pos.x, |
| 368 |
+ |
err_node->the_data.pos.y, |
| 369 |
+ |
err_node->the_data.pos.z, |
| 370 |
|
err_msg ); |
| 371 |
|
break; |
| 372 |
|
|
| 374 |
|
fprintf( stderr, |
| 375 |
|
"Parse tree error: orientation node error => ( %lf, %lf, %lf )\n" |
| 376 |
|
" -> %s\n", |
| 377 |
+ |
err_node->the_data.ort.x, |
| 378 |
+ |
err_node->the_data.ort.y, |
| 379 |
+ |
err_node->the_data.ort.z, |
| 380 |
|
err_msg ); |
| 381 |
|
break; |
| 382 |
|
|
| 392 |
|
"Parse tree error: unknown node type -> %s\n", |
| 393 |
|
err_msg ); |
| 394 |
|
} |
| 395 |
+ |
|
| 396 |
+ |
#ifdef IS_MPI |
| 397 |
+ |
mpiInterfaceExit(); |
| 398 |
+ |
#endif |
| 399 |
+ |
|
| 400 |
|
} |
| 401 |
|
|
| 402 |
|
|