#include <stdio.h>
#include <elf.h>
#include <sym.h>

#define NSECTS 32
FILE * in;
int verbose = 1;
int mtabindex;
Elf32_Ehdr header;
Elf32_Shdr sectHeader[32];
long sstabStart;	/* start of string table for sections */
HDRR debugHeader;

char * typeNames[] = {
	"nil",
	"global",
	"static",
	"parm",
	"local",
	"label",
	"proc",
	"block",
	"end",
	"member",
	"typedef",
	"file",
	"regreloc",
	"forward",
	"staticproc",
	"constant"
};

void usage( void )
{
	fprintf( stderr, "usage: mdump file\n" );
	exit( 1 );
}

void DumpFileHeader()
{
	register int i;

	if ( fread( &header, sizeof( header ), 1, in ) != 1 )
	{
		fprintf( stderr, "Can't read header\n" );
		fclose( in );
		exit( 1 );
	}

	if ( 	(header.e_ident[0] != 0x7f) ||
		(header.e_ident[1] != 'E') ||
		(header.e_ident[2] != 'L') ||
		(header.e_ident[3] != 'F') )
		{
			fprintf( stderr, "Not an ELF file...\n" );
			exit( 1 );
		}
	if ( verbose )
	{
		if ( header.e_ident[4] == 1 )
			printf( "32 bit " );
		if ( header.e_ident[5] == 1 )
			printf( "LSB " );
		else if ( header.e_ident[5] == 2 )
			printf( "MSB " );
		printf( "ELF file\n" );
		printf( "Type %x\n", header.e_type );
		printf( "Entry %x\n", header.e_entry );
		printf( "Progheader Offset %x\n", header.e_phoff );
		printf( "Sectheader Offset %x\n", header.e_shoff );
		printf( "Num progentries %x\n", header.e_phnum );
		printf( "Num segentries %d\n", header.e_shnum );
		printf( "Sectheader Index %x\n", header.e_shstrndx );
	}
}

void ReadSection( int sectNum )
{
	if ( fread( &sectHeader[sectNum], sizeof( Elf32_Shdr ), 1, in ) != 1 )
	{
		fprintf( stderr, "Can't read section header\n" );
		fclose( in );
		exit( 1 );
	}
}

void ShowSectionName( int index )
{
	char sectnamebuf[32], *s;

	if ( fseek( in, sstabStart + sectHeader[index].sh_name, SEEK_SET ) )
		fprintf( stderr, "Seek error to address %lx\n", 
			sstabStart + sectHeader[index].sh_name );
	else
	{
		int c;

		s = sectnamebuf;
		while ( c = getc( in ) )
			*s++ = c;
		*s = 0;
		printf( "Section %d name is %s\n", index, sectnamebuf );
		if ( !strcmp( sectnamebuf, ".mdebug" ) )
		{
			mtabindex = index;
			printf( "Section type %x\n", sectHeader[index].sh_type );
		}
	}
}

DumpRawBits( int lines )
{
	char buf[16];
	register int i, j;

	for ( i = 0; i < lines; ++i )
	{
		fread( buf, 16, 1, in );
		for ( j = 0; j < 16; ++j )
			printf( "%02x ", buf[j] & 0xff );
		printf( "\n" );
		for ( j = 0; j < 16; ++j )
			printf( "%c  ", isprint( buf[j] ) ? buf[j] : ' ' );
		printf( "\n" );
	}
}

void DumpFile( void )
{
	FDR fH;
	register int c, file;
	long nextFile;

	printf( "\nFile info:\n" );
	if ( !debugHeader.ifdMax )
	{
		printf( "This file had no file info\n" );
		return;
	}

	if ( fseek( in, debugHeader.cbFdOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}
	nextFile = ftell( in );
	for ( file = 0; file < debugHeader.ifdMax; ++ file )
	{
		printf( "File %d\n", file );
		if ( fread( &fH, sizeof( FDR ), 1, in ) != 1 )
		{
			fprintf( stderr, "Couldn't read file header\n" );
			return;
		}
		nextFile = ftell( in );
		printf( "Mem addr = %08x\n", fH.adr );
		if ( fseek( in, debugHeader.cbSsOffset + fH.rss + fH.issBase, SEEK_SET ) )
		{
			fprintf( stderr, "Seek failed in input file\n" );
			return;
		}
		printf( "File name = " );
		while ( (c = fgetc( in )) )
			putchar( c );
		printf( "\n" );

		printf( "Strings, base = %d, count = %d\n", fH.issBase, fH.cbSs );
		printf( "Symbols, base = %d, count = %d\n", fH.isymBase, fH.csym );
		printf( "Line # entries, base = %d, count = %d\n", fH.ilineBase, fH.cline );
		printf( "Opts, base = %d, count = %d\n", fH.ioptBase, fH.copt );
		printf( "Procs, base = %d, count = %d\n", fH.ipdFirst, fH.cpd );
		printf( "Aux, base = %d, count = %d\n", fH.iauxBase, fH.caux );
		printf( "Fds, base = %d, count = %d\n", fH.rfdBase, fH.crfd );
		printf( "Lines, offset = %d, size = %d\n", fH.cbLineOffset, fH.cbLine );
		fseek( in, nextFile, SEEK_SET );
	}
}

void DumpLocalStrings( void )
{
	register int i, chars = 0;

	printf( "\nLocal Strings:\n" );
	if ( !debugHeader.issMax )
	{
		printf( "This file had no local strings\n" );
		return;
	}

	if ( fseek( in, debugHeader.cbSsOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}

	for ( i = 0; ; ++i )
	{
		int c;

		printf( "(%d) start %d: ", i, chars );
		while ( c = fgetc( in ) )
		{
			putchar( c );
			++chars;
		}
		printf( "\n" );
		++chars;
		if ( chars >= debugHeader.issMax )
			break;
	}
}

void DumpExtStrings( void )
{
	register int i, chars = 0;

	printf( "\nExt Strings:\n" );
	if ( !debugHeader.issExtMax )
	{
		printf( "This file had no ext strings\n" );
		return;
	}

	if ( fseek( in, debugHeader.cbSsExtOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}
	for ( i = 0; ; ++i )
	{
		int c;

		printf( "(%d) start %d: ", i, chars );
		while ( c = fgetc( in ) )
		{
			putchar( c );
			++chars;
		}
		printf( "\n" );
		++chars;
		if ( chars >= debugHeader.issExtMax )
			break;
	}
}

void DumpLocals( void )
{
	register int i;
	SYMR symbol;
	long whereIwas;

	printf( "\nLocal Symbols:\n" );
	if ( !debugHeader.isymMax )
	{
		printf( "This file had no local symbols\n" );
		return;
	}

	if ( fseek( in, debugHeader.cbSymOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}

	for ( i = 0; i < debugHeader.isymMax; ++i )
	{
		int c;

		if ( fread( &symbol, sizeof( SYMR ), 1, in ) != 1 )
		{
			fprintf( stderr, "Read failed in DumpLocals\n" );
			return;
		}
		whereIwas = ftell( in );
		fseek( in, debugHeader.cbSsOffset + symbol.iss, 0 );
		printf( "Symbol %d:\n", i );
		printf( "sym string index %d\tsym value %x\tsym type %s (%d)\n",
			symbol.iss, symbol.value, typeNames[symbol.st],
			symbol.st );
		printf( "sym class %d\tsym index %d\n",
			symbol.sc,
			symbol.index == 0xfffff ? -1 : symbol.index );
		fseek( in, whereIwas, 0 );
		printf( "\n" );
	}
	
}

void DumpLineInfo( void )
{
	register int i;
	EXTR symbol;
	long whereIwas;

	printf( "\nLine Info:\n" );
	if ( !debugHeader.cbLine )
	{
		printf( "This file had no line info\n" );
		return;
	}

	if ( fseek( in, debugHeader.cbLineOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}

	printf( "%d bytes valid:\n", debugHeader.cbLine );
	DumpRawBits( (debugHeader.cbLine + 16) / 16 );
}

void DumpGlobals( void )
{
	register int i;
	EXTR symbol;
	long whereIwas;

	printf( "\nGlobal Symbols:\n" );
	if ( !debugHeader.iextMax )
	{
		printf( "This file had no global symbols\n" );
		return;
	}

	if ( fseek( in, debugHeader.cbExtOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}

	for ( i = 0; i < debugHeader.iextMax; ++i )
	{
		int c;

		if ( fread( &symbol, sizeof( EXTR ), 1, in ) != 1 )
		{
			fprintf( stderr, "Read failed in DumpGlobals\n" );
			return;
		}
		whereIwas = ftell( in );
		fseek( in, debugHeader.cbSsExtOffset + symbol.asym.iss, 0 );
		printf( "Symbol name = " );
		while ( (c = fgetc( in )) )
			putchar( c );
		printf( "\n" );
		printf( "sym string index %d\tsym value %x\tsym type %s\n",
			symbol.asym.iss, symbol.asym.value,
			typeNames[symbol.asym.st] );
		printf( "sym class %d\tsym index %d\tsym ifd %d\n",
			symbol.asym.sc,
			symbol.asym.index == 0xfffff ? -1 : symbol.asym.index,
			symbol.ifd );
		fseek( in, whereIwas, 0 );
		printf( "\n" );
	}
}

void DumpAux( void )
{
	register int i;

	printf( "\nAux Symbols:\n" );
	if ( !debugHeader.iauxMax )
	{
		printf( "This file had no aux symbols\n" );
		return;
	}
	if ( fseek( in, debugHeader.cbAuxOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}

	for ( i = 0; i < debugHeader.iauxMax; ++i )
	{
		AUXU a;

		if ( fread( &a, sizeof( AUXU ), 1, in ) != 1 )
		{
			fprintf( stderr, "Read failed in DumpAux\n" );
			return;
		}
		printf( "%08x\n", a );
	}
}

void DumpRelInfo( void )
{
	register int i;

	printf( "\nRel Files:\n" );
	if ( !debugHeader.crfd )
	{
		printf( "This file had no rel files\n" );
		return;
	}
	if ( fseek( in, debugHeader.cbRfdOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}

	for ( i = 0; i < debugHeader.crfd; ++i )
	{
		RNDXR r;

		if ( fread( &r, sizeof( RNDXR ), 1, in ) != 1 )
		{
			fprintf( stderr, "Read failed in DumpRelInfo\n" );
			return;
		}
		printf( "rfd %d, string index %d\n", r.rfd, r.index );
	}
}

void DumpProcs( void )
{
	register int i;

	printf( "\nProcs:\n" );
	if ( !debugHeader.ipdMax )
	{
		printf( "This file had no procs\n" );
		return;
	}
	if ( fseek( in, debugHeader.cbPdOffset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		return;
	}

	for ( i = 0; i < debugHeader.ipdMax; ++i )
	{
		PDR r;

		if ( fread( &r, sizeof( PDR ), 1, in ) != 1 )
		{
			fprintf( stderr, "Read failed in DumpProcs\n" );
			return;
		}
		printf( "Proc %d:\n", i );
		printf( "\tStarts %08x 1st sym %d 1st line rec %d range %d:%d\n",
			r.adr, r.isym, r.iline, r.lnLow, r.lnHigh );
	}

}

void DumpDebug( void )
{
	if ( !mtabindex )
	{
		printf( "This file has no .mdebug section\n" );
		fclose( in );
		exit( 0 );
	}
	printf( ".mdebug is section %d at offset %04x\n", mtabindex,
		sectHeader[mtabindex].sh_offset );
	if ( fseek( in, sectHeader[mtabindex].sh_offset, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in input file\n" );
		exit( 1 );
	}
	if ( fread( &debugHeader, sizeof( HDRR ), 1, in ) != 1 )
	{
		fprintf( stderr, "Couldn't read debug record\n" );
		exit( 1 );
	}
	printf( "magic = %04x\n", debugHeader.magic );
	printf( "vstanp = %04x\n", debugHeader.vstamp );
	printf( "line tab size = %d\n", debugHeader.ilineMax );
	printf( "bytes per line = %d\n", debugHeader.cbLine );
	printf( "offset of line info = %04x\n", debugHeader.cbLineOffset );
	printf( "dense # tab size = %d\t", debugHeader.idnMax );
	printf( "offset of dense # = %04x\n", debugHeader.cbDnOffset );
	printf( "proc tab size = %d\t", debugHeader.ipdMax );
	printf( "proc tab offset = %04x\n", debugHeader.cbPdOffset );
	printf( "local sym size = %d\t", debugHeader.isymMax );
	printf( "local sym offset = %04x\n", debugHeader.cbSymOffset );
	printf( "opt sym size = %d\t", debugHeader.ioptMax );
	printf( "opt sym offset = %04x\n", debugHeader.cbOptOffset );
	printf( "aux sym size = %d\t", debugHeader.iauxMax );
	printf( "aux sym offset = %04x\n", debugHeader.cbAuxOffset );
	printf( "local strings size = %d\t", debugHeader.issMax );
	printf( "local strings offset = %04x\n", debugHeader.cbSsOffset );
	printf( "ext strings size = %d\t", debugHeader.issExtMax );
	printf( "ext strings offset = %04x\n", debugHeader.cbSsExtOffset );
	printf( "file size = %d\t", debugHeader.ifdMax );
	printf( "file offset = %04x\n", debugHeader.cbFdOffset );
	printf( "rel file size = %d\t", debugHeader.crfd );
	printf( "rel file offset = %04x\n", debugHeader.cbRfdOffset );
	printf( "ext sym size = %d\t", debugHeader.iextMax );
	printf( "ext sym offset = %04x\n", debugHeader.cbExtOffset );

	DumpLocalStrings();
	DumpExtStrings();
	DumpFile();
	DumpGlobals();
	DumpLocals();
	DumpAux();
	DumpProcs();
	DumpRelInfo();
	DumpLineInfo();
}

main( int argc, char ** argv )
{
	register int i;

	if ( argc != 2 )
		usage();
	if ( (in = fopen( argv[1], "r" )) == NULL )
	{
		fprintf( stderr, "Can't open %s\n", argv[1] );
		exit( 1 );
	}

	DumpFileHeader();
	if ( header.e_shnum > NSECTS )
	{
		fprintf( stderr,
			"Sorry, can't deal with %d sections in this version\n",
			header.e_shnum );
		fclose( in );
		exit( 1 );
	}

	if ( fseek( in, header.e_shoff, SEEK_SET ) )
	{
		fprintf( stderr, "Seek failed in %s\n", argv[1] );
		fclose( in );
		exit( 1 );
	}

	for ( i = 0; i < header.e_shnum; ++i )
		ReadSection( i );

	sstabStart = sectHeader[header.e_shstrndx].sh_offset;
	for ( i = 0; i < header.e_shnum; ++i )
		ShowSectionName( i );

	DumpDebug();
	fclose( in );
}