--- branches/mmeineke/mdtools/BASS_parse/parse_tree.c 2002/07/09 18:40:59 10 +++ trunk/mdtools/BASS_parse/parse_tree.c 2002/10/09 22:29:40 131 @@ -27,7 +27,8 @@ void pt_me( struct node_tag* head_node ){ mol_index = 0; comp_index = 0; - walk_down( head_node->next_stmt, global_namespc ); + walk_down( head_node->next_stmt, global_namespc ); // closed global namespace + exit + } /* @@ -332,19 +333,19 @@ void print_tree_error( struct node_tag* err_node, char case STR_ASSN: fprintf( stderr, "%s", - err_node->the_data.asmt.rhs ); + err_node->the_data.asmt.rhs.str_ptr ); break; case INT_ASSN: fprintf( stderr, "%d", - err_node->the_data.asmt.rhs ); + err_node->the_data.asmt.rhs.i_val ); break; case DOUBLE_ASSN: fprintf( stderr, "%lf", - err_node->the_data.asmt.rhs ); + err_node->the_data.asmt.rhs.d_val ); break; } @@ -358,6 +359,9 @@ void print_tree_error( struct node_tag* err_node, char fprintf( stderr, "Parse tree error: position node error => ( %lf, %lf, %lf )\n" " -> %s\n", + err_node->the_data.pos.x, + err_node->the_data.pos.y, + err_node->the_data.pos.z, err_msg ); break; @@ -365,6 +369,9 @@ void print_tree_error( struct node_tag* err_node, char fprintf( stderr, "Parse tree error: orientation node error => ( %lf, %lf, %lf )\n" " -> %s\n", + err_node->the_data.ort.x, + err_node->the_data.ort.y, + err_node->the_data.ort.z, err_msg ); break; @@ -380,6 +387,11 @@ void print_tree_error( struct node_tag* err_node, char "Parse tree error: unknown node type -> %s\n", err_msg ); } + +#ifdef IS_MPI + mpiInterfaceExit(); +#endif + }