io_status short_list::asciiOut(ostream& out)
{
out << "OID_T:\n";
my_oid().asciiOut(out);
out << "\n";
for ( int i=1; i<=v_sz; i++ ) {
handler* hd_ptr = get_component(i);
(*hd_ptr) -> asciiOut(out);
out << "\n";
delete hd_ptr;
}
return done;
}
io_status dl_list::asciiOut(ostream& out)
{
/*
MESSAGE(cerr, "HEAD");
v_dl_list_head.asciiOut(out); cerr << "\n";
MESSAGE(cerr, "TAIL");
v_dl_list_tail.asciiOut(out); cerr << "\n";
*/
out << "OID_T:\n";
my_oid().asciiOut(out);
out << "\n";
if ( v_sz == 0 ) return done;
oid_t* cell_ptr = &v_dl_list_head;
for ( unsigned int i=1; i<=v_sz; i++ ) {
if ( cell_ptr == 0 ) {
throw(stringException("broken chain"));
}
if ( cell_ptr -> icode() == 0 ) {
debug(cerr, i);
debug(cerr, v_sz);
throw(stringException("dl_list::get_component(): broken chain"));
}
dl_list_cell_handler cell(*cell_ptr, storage_ptr);
cell -> asciiOut(cerr); cerr << "\n";
cell_ptr = &cell -> get_forward_ptr();
}
return done;
}
io_status tuple::asciiOut(ostream& out)
{
out << "OID_T:\n";
my_oid().asciiOut(out);
out << "\n";
// debug(cerr, v_sz);
for ( unsigned int i=1; i<=v_sz; i++ ) {
handler* hd_ptr = get_component(i);
if ( hd_ptr == 0 )
continue;
(*hd_ptr) -> asciiOut(out);
out << "\n";
delete hd_ptr;
}
return done;
}