print_local.C Source File

00001 local void print_events(segment *s, real t)
00002 {
00003     PRI(4); cerr << "events for s = " << s << ":" << endl;
00004 
00005     tdyn *bn = s->get_first_event();
00006     PRI(4); cerr << "base node "; PRC(bn); PRC(bn->get_time());
00007     PRL(bn->format_label());
00008 
00009     tdyn *b = bn;
00010     while (b->get_time() < t) {
00011         PRI(8); PRC(b); PRL(b->get_time());
00012         if (b->get_next()) b = b->get_next();
00013     }
00014     PRI(8); PRC(b); PRC(b->get_time());
00015     if (b->get_next()) {
00016         PRL(b->get_next()->get_time());
00017     } else {
00018         cerr << "next = NULL" << endl << endl;
00019     }
00020 }
00021 
00022 local void print_details(worldbundle *wb, tdyn *p, real t)
00023 {
00024     // Re-locate node p at time t and print out relevent information
00025     // on the local worldline/segment/event structure.
00026 
00027     cerr << "details..." << endl;
00028 
00029     worldline *w = wb->find_worldline(p);
00030     segment *s = w->get_first_segment();
00031     segment *sprev = NULL;
00032 
00033     PRI(4); PRL(p->format_label());
00034     PRI(4); PRC(w); PRL(s);
00035 
00036     while (s->get_t_end() < t) {
00037         sprev = s;
00038         s = s->get_next();
00039     }
00040 
00041     PRI(4); PRL(s);
00042 
00043     PRI(4); PRC(t); PRC(s->get_t_start()); PRL(s->get_t_end());
00044     if (sprev) {
00045         PRI(4); PRC(sprev->get_t_start()); PRL(sprev->get_t_end());
00046         PRI(4); PRL(sprev->get_first_event());
00047     }
00048 
00049     print_events(s, t);
00050 }