#include<stdio.h>
#include<conio.h>
#include<string.h>
#include<alloc.h>
#include<stdlib.h>
#include<ctype.h>
struct file_attr
{
  int name;
  int len;
  };

struct file
{
  char magic[10];
  int verno1;
  int verno2;
  int cp_c;
  int a_flags;
  int this_cl;
  int super_cl;
  int inter_c;
  int field_c;
  int meth_c;
  int attr_c;
  file_attr *fiattr;
  int f_name;
	};

struct field  //field_info
{
  int a_flag;
  int name;
  int dindex; //descriptor index
  int attr_c;
  void *attr_i; //only attr -> ConstantValue_attr(struct cvattr)
};

struct cvattr  //ConstantValue_attribute
{
  int name; //attribute name
  int len;  //attr length
  int cvindex; //valid index into the constant_pool table
};

struct meth_attr
{
  int name;
  int len;
  };

struct meth
{
  int a_flag;
  int name;
  int sign;
  int attr_c;
  meth_attr *mthattr;  //code_info
  };

struct guid
{
 unsigned char x1[4];
 unsigned char x2[2];
 unsigned char x3[2];
 unsigned char x4[8];
 };

int small( char *ss )
{
	return ss[0]*256+ss[1];
}

struct aaa
{
  int x1, x2;
};

struct bbb
{
  int x;
  char *ss;
};

struct ccc
{
	long x1,x2;
};

struct pool_info
{
  int tag;
  void *info;
  };

void abc( char *ss )
{
  static int k=0;
  FILE *fpo= fopen("z.txt", "a");
  fprintf(fpo, "%d=%s\n", k, ss);
  k++;
  fclose(fpo);
  }

pool_info *p;
char *get( int x, int y=1 )
{
 int jj;
 switch(p[x].tag)
 {
  case 7:
  case 8:
	 jj = ((aaa *)p[x].info)->x1;
	 return get ( jj );
  case 9:
  case 10:
  case 12:
	  if( y==1 )
		 {
			jj = ((aaa *)p[x].info)->x1;
			return get ( jj );
			}
	  else
		 {
			jj = ((aaa *)p[x].info)->x2;
			return get ( jj );
			}
  default :
	 return ((bbb *)p[x].info)->ss;
  }
}

char* signat(char **);
char* rtype( char **);

int main(int argc, char *argv[])
{
int debuginfo=0;
int ActiveXflag=0;
FILE *fp;
int offset[9];
int counter=0;
file fi;
int *iface;
fp = fopen(argv[1],"r+b");
if(fp==NULL)
 {
	printf("File not found\n");
	exit(0);
	}

char *aa=new char[100];
char *bb=new char[100];

offset[0]=0;
fread(aa,4,1,fp);  //Skip CAFEBABE
counter=4; aa[4]='\0';
strcpy( fi.magic, aa);

fread(aa,2,1,fp);    //Version Nos.
counter+=2;
fi.verno1=small(aa);
fread(aa,2,1,fp);    //Version Nos.
counter+=2;
fi.verno2=small(aa);

fread(aa,2,1,fp); //Constant pool size
counter+=2;
fi.cp_c=small(aa);
sprintf(bb, "Constant Pool Size=%d\n", fi.cp_c);
abc(bb);
p = new pool_info[fi.cp_c];
offset[1]=counter;
int k;int i;
for ( int j=1; j<fi.cp_c; j++)
{
	 i = fgetc(fp);
	 counter++;
 switch(i)
 {
  case 1:
	 bbb *s = new bbb;
	 fread(aa,2,1,fp); counter+=2;
	 s->x=small(aa);
	 fread(aa, s->x, 1, fp);  counter+=s->x;
	 aa[s->x]='\0';
	 s->ss = new char[s->x+1];
	 strcpy(s->ss, aa);
	 p[j].tag=1;
	 p[j].info = (void *)s;
	 sprintf(bb, "%s(%d)", ((bbb *)p[j].info)->ss, p[j].tag);
	 abc(bb);
	 break;
  case 3:
  case 4:
	 ccc *tem=new ccc;
	 fread(aa,4,1,fp); counter+=4;
	 tem->x1 = aa[2]*256+aa[3];
	 if(i==3)
		 p[j].tag=3;
	 else
		 p[j].tag=4;
	 p[j].info=(void *)tem;
	 sprintf(bb, "%ld(%d)", ((ccc *)p[j].info)->x1,p[j].tag);
	 abc(bb);
	 break;
  case 5 :
  case 6 :
	 ccc *tem2=new ccc;
	 fread(aa,4,1,fp); counter+=4;
	 tem2->x1 = aa[2]*256+aa[3];
	 fread(aa,4,1,fp); counter+=4;
	 tem2->x2 = aa[2]*256+aa[3];
	 if(i==5)
		 p[j].tag=5;
	 else
		 p[j].tag=6;
	 p[j].info=(void *)tem2;
	 sprintf(bb, "%ld..%ld(%d)", ((ccc *)p[j].info)->x1,((ccc *)p[j].info)->x2,p[j].tag);
	 abc(bb);
	 break;
  case 7:
  case 8:
	 aaa *temp;
	 temp=new aaa;
	 fread(aa,2,1,fp);
	 counter+=2;
	 temp->x1 = small(aa);
	 if(i==7)
		 p[j].tag=7;
	 else
		 p[j].tag=8;
	 p[j].info=(void *)temp;
	 sprintf(bb, "%d(%d)", ((aaa *)p[j].info)->x1,p[j].tag);
	 abc(bb);
	 break;
  case 9 :
  case 11:
  case 10:
  case 12:
	 aaa *temp1;
	 temp1 = new aaa;
	 fread(aa,2,1,fp);
	 counter+=2;
	 temp1->x1=small(aa);
	 fread(aa,2,1,fp);
	 counter+=2;
	 temp1->x2=small(aa);
	 if(i==9)  p[j].tag=9;
	 else if (i==10) p[j].tag=10;
	 else if (i==11) p[j].tag=11;
	 else p[j].tag=12;
	 p[j].info = (void *)temp1;
	 sprintf(bb,"%d..%d(%d)", ((aaa *)p[j].info)->x1, ((aaa *)p[j].info)->x2, p[j].tag);
	 abc(bb);
	 break;
  }
}

offset[2]=counter;
fread(aa, 2, 1, fp);   //Flags
counter+=2;
fi.a_flags = small(aa);

fread(aa, 2, 1, fp);   //this_class
counter+=2;
fi.this_cl=small(aa);

fread(aa, 2, 1, fp);   //super_class
counter+=2;
fi.super_cl=small(aa);

offset[3]=counter;
fread(aa, 2, 1, fp);   //interface
counter+=2;
fi.inter_c=small(aa);
if(fi.inter_c != 0)
 {
	iface = new int[fi.inter_c];
	for(i=0; i<fi.inter_c; i++)
	 {
		fread(aa,2,1,fp);
		iface[i] = small(aa);
		counter+=2;
		}
  }


offset[4]=counter;
fread(aa, 2, 1, fp);   //fields
counter+=2;
fi.field_c=small(aa);

field *fld=new field[fi.field_c];
for(i=0; i<fi.field_c; i++)
{
 fread ( aa, 2, 1, fp);
 counter+=2;
 fld[i].a_flag=small(aa);

 fread(aa, 2, 1, fp);
 counter+=2;
 fld[i].name=small(aa);

 fread(aa, 2, 1, fp);
 counter+=2;
 fld[i].dindex=small(aa);

 fread(aa, 2, 1, fp);
 counter+=2;
 fld[i].attr_c=small(aa);  //only attr is ConstantValur_attr

 if (fld[i].attr_c !=0)
 {
  cvattr *cva;
  fread(aa, 2, 1, fp);
  counter+=2;
  cva->name=small(aa);

  fread(aa, 4, 1, fp);
  counter+=4;
  cva->len=aa[2]*256+aa[3];

  fread(aa, 2, 1, fp);
  counter+=2;
  cva->cvindex = small(aa);

  fld[i].attr_i=(void *)cva;
  }

}

offset[5]=counter;

fread(aa, 2, 1, fp);   //methods
counter+=2;
fi.meth_c=small(aa);

meth *mth=new meth[fi.meth_c];

int jj;
for( j=0; j<fi.meth_c; j++ )  //fi.meth_c
{
 fread ( aa, 2, 1, fp);
 counter+=2;
 mth[j].a_flag=small(aa);

 fread(aa, 2, 1, fp);
 counter+=2;
 mth[j].name=small(aa);

 fread(aa, 2, 1, fp);
 counter+=2;
 mth[j].sign=small(aa);

 fread(aa, 2, 1, fp);
 counter+=2;
 mth[j].attr_c=small(aa);

 int name;
 mth[j].mthattr=new meth_attr[mth[j].attr_c];
for(int ii=0; ii<mth[j].attr_c; ii++)
{
 fread(aa, 2, 1, fp);
 counter+=2;
 name=small(aa);
 if(!strcmp("COM_ProxiesTo",get(name)))
 {
	mth[j].mthattr[ii].name=name;
	ActiveXflag=1;
	fread(aa, 4, 1, fp);
	counter+=4;
	mth[j].mthattr[ii].len=aa[2]*256+aa[3];
	for(i=0; i<mth[j].mthattr[ii].len; i++)
	  { fgetc(fp);	counter++; }
  }
 else
 {
	mth[j].mthattr[ii].name=name;
	fread(aa, 4, 1, fp);
	counter+=4;
	mth[j].mthattr[ii].len=aa[2]*256+aa[3];
	for(i=0; i<mth[j].mthattr[ii].len; i++)
	  {
		fgetc(fp);
		counter++;
		}
  }

}
}

offset[6]=counter;
fread(aa, 2, 1, fp);
counter+=2;
fi.attr_c=small(aa);

fi.fiattr=new file_attr[fi.attr_c];
int no_guid;
guid *gguid;
for(i=0; i<fi.attr_c; i++)
{
	fread(aa, 2, 1, fp);
	int name=small(aa);
	counter+=2;
	if(strcmp(get(name), "SourceFile")==0)
	{
	 fi.fiattr[i].name=name;

	 fread(aa, 4, 1, fp);  counter+=4;
	 fi.fiattr[i].len=aa[2]*256+aa[3];

	 fread(aa, 2, 1, fp); counter+=2;
	 fi.f_name = small(aa);
	}

	else if(strcmp(get(name), "COM_GuidPool")==0)
	{
	 fi.fiattr[i].name=name;
	 fread(aa, 4, 1, fp); counter+=4;
	 fi.fiattr[i].len=aa[2]*256+aa[3];

	 fread(aa, 2, 1, fp); counter+=2; //no. of guid
	 no_guid=small(aa);

	 gguid=new guid[no_guid];
	 for(j=0; j<no_guid; j++)
	 {
	  guid *gg;
	  fread(gg, 16, 1, fp);  counter+=16;
	  gguid[j]=*gg;
	 }
	}
	else
	{
	 fi.fiattr[i].name=name;
	 fread(aa, 4, 1, fp); counter+=4;
	 fi.fiattr[i].len=aa[2]*256+aa[3];
	 for(j=0; j<fi.fiattr[i].len; j++)
		{
		  fgetc(fp); counter++;
		}
	 }
}
fclose(fp);
//******************* Output data ***********************
char *d1[] = {
				  "Class Name       ",
				  "Size             ",
				  "Version          ",
				  "Access F\lags     ",
				  "Super Class Name ",
				  "Interface(s)     ",
				  "Source Filename  ",
				  "Debug Information",
				  "ActiveX Controls "
				  };

printf("\n*** jvm7 D1 Class/Interface Overview ***\n\n");
printf("Variable Name\t\tValue Reported\n");
printf("~~~~~~~~~~~~~~\t\t~~~~~~~~~~~~~~~\n");
printf("%s\t%s\n", d1[0], get( fi.this_cl));
printf("%s\t%d\n", d1[1], counter);
printf("%s\t%d.0%d\n", d1[2], fi.verno2, fi.verno1);
printf("%s\n", d1[3]);
printf("%s\t%s\n", d1[4], get( fi.super_cl));
if( !fi.inter_c )
	 printf("%s\t* None Defined *\n", d1[5]);
else
  {
	 printf("%s\t", d1[5]);
	 for(i=0; i<fi.inter_c; i++)
		printf("%s,",get(iface[i]));
	 }
printf("\n%s\t%s\n", d1[6], get(fi.f_name));

if(debuginfo==1)
	printf("%s\tYES\n", d1[7]);
else
	printf("%s\tNO\n", d1[7]);

if(ActiveXflag==1)
	printf("%s\tYES\n", d1[8]);
else
	printf("%s\tNO\n", d1[8]);

printf("\n*** jvm7 D2 Class/Interface Methods, Fields, & Classes ***\n\n");
printf("Methods (Invoked)\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
for(i=1; i<fi.cp_c; i++)
{
  if(p[i].tag == 10)
  {
	char *sign = new char[100];
	sign=get(((aaa *)p[i].info)->x2, 2);
	strcpy(bb,signat(&sign));
	sign++;
	strcpy(aa, rtype(&sign));
	printf("%s ",aa);
	printf("%s.%s%s\n",get(((aaa *)p[i].info)->x1),
			  get(((aaa *)p[i].info)->x2),bb);
	}
 }

printf("\nMethods (Interfaced)\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
printf("* NA *\n\n");

printf("Fields (Accessed and/or Modified)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
for(i=0; i<fi.field_c; i++)
 {
	strcpy(aa, get(fld[i].dindex));
	strcpy(bb, rtype(&aa));
	printf("%s %s\n", bb,get(fld[i].name));
 }

printf("\n\nMethods (Explicitely Declared by this Class/Interface)\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
for(i=0; i<fi.meth_c; i++)
  {
	char *sign = new char[100];
	sign=get(mth[i].sign);
	printf("Method[%04X]\t", i);
	strcpy(bb,signat(&sign));
	sign++;
	strcpy(aa, rtype(&sign));
	printf("%s ",aa);
	strcpy(aa, get(mth[i].name));
	printf("%s%s\n",aa, bb);
	}

printf("\n\n");

printf("Fields (Explicitely Declared by this Class/Interface)\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
printf("* NA *\n\n");

printf("Classes (Accessed by this Class/Interface)\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
for(i=1; i<fi.cp_c+1; i++)
{
	if(p[i].tag == 7)
	  printf("%s\n", get( i ));
}
printf("\n\n");


printf("COM_Guid's (Explicitly Declared by this Class/Interface)\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
for(j=0; j<no_guid; j++)
	 {
	  for(int k=3; k>=0; k--)
		  printf("%X", gguid[j].x1[k]);
	  printf("-");
	  for(k=1; k>=0; k--)
		  printf("%X", gguid[j].x2[k]);
	  printf("-");
	  for(k=1; k>=0; k--)
		  printf("%X", gguid[j].x3[k]);
	  printf("-");
	  for(k=0; k<8; k++)
		  printf("%X", gguid[j].x4[k]);
	  printf("\n");
	 }
printf("\n");
char *d3[] = {
			"ClassFile.magic              ",
			"ClassFile.minor_version      ",
			"ClassFile.major_version      ",
			"ClassFile.constant_pool_count",
			"ClassFile.Constant_pool      ",
			"ClassFile.access_flags       ",
			"ClassFile.this_class         ",
			"ClassFile.super_class        ",
			"ClassFile.interfaces_count   ",
			"ClassFile.interfaces",
			"ClassFile.fields_count       ",
			"ClassFile.fields",
			"ClassFile.methods_count      ",
			"ClassFile.methods            ",
			"ClassFile.attributes_count   ",
			"ClassFile.attributes         "
			};

printf("*** jvm7 D3 Class/Interface Root Data Structures ***\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
printf("offset     Bytes    Field Name                      Meaning\n");
printf("~~~~~~~   ~~~~~~~~ ~~~~~~~~~~~~~~                 ~~~~~~~~~~~\n");
int zz=offset[0];
printf("%06X   CAFEBABE  %s\n", zz, d3[0]);
printf("%06X   %04X   \t%s\tDecimal (%d)\n",zz+=4, fi.verno1, d3[1], fi.verno1);
printf("%06X   %04X   \t%s\tDecimal (%d)\n",zz+=2, fi.verno2, d3[2], fi.verno2);
printf("%06X   %04X   \t%s\tDecimal (%d)\n",zz+=2, fi.cp_c, d3[3], fi.cp_c);
printf("%06X      \t\t%s\tcp\n", zz+=2, d3[4]);
printf("%06X   %04X   \t%s\n", zz=offset[2], fi.a_flags, d3[5]);
printf("%06X   %04X   \t%s\t%s\n", zz+=2, fi.this_cl, d3[6], get(fi.this_cl));
printf("%06X   %04X   \t%s\t%s\n", zz+=2, fi.super_cl, d3[7], get( fi.super_cl));
printf("%06X   %04X   \t%s\tDecimal (%d)\n", zz=offset[3], fi.inter_c, d3[8], fi.inter_c);
printf("%06X      \t\t%s\t\t\t   interfaces\n", zz+=2, d3[9]);
printf("%06X   %04X   \t%s\tDecimal (%d)\n", zz=offset[4], fi.field_c, d3[10], fi.field_c);
printf("%06X      \t\t%s\t\t\t      fields\n", zz+=2, d3[11]);
printf("%06X   %04X   \t%s\tDecimal (%d)\n", zz=offset[5], fi.meth_c, d3[11], fi.meth_c);
printf("%06X      \t\t%s\t\t\t      Methods\n", zz+=2, d3[11]);
printf("%06X   %04X   \t%s\tDecimal (%d)\n", zz=offset[6], fi.attr_c, d3[12], fi.attr_c);
printf("%06X      \t\t%s\tattributes\n\n", zz+=2, d3[13]);

printf("*** jvm7 D3 Class/Interface Root Data Structures ***\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
printf("offset     Bytes    Field Name                      Meaning\n");
printf("~~~~~~~   ~~~~~~~~ ~~~~~~~~~~~~~~                 ~~~~~~~~~~~\n");
zz=offset[1]; char cc[20];
for(i=1; i<fi.cp_c; i++)
{
 switch(p[i].tag)
 {
  case 1 :
	  printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_Utf8\n", zz, 1, i);
	  zz++;  j=((bbb *)p[i].info)->x;
	  printf("%06X\t%04X\t\tcp[%04X].length\n", zz, j, i);  zz+=2;
	  printf("%06X\t\t\tcp[%04X].bytes\t\t%s\n\n", zz, i, ((bbb *)p[i].info)->ss);
	  zz+=j;
	  break;
  case 3 :
  case 4 :
	  if(p[i].tag==3)
			printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_integer\n", zz, 3, i);
	  else
			printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_float\n", zz, 4, i);
	  zz++; j=((ccc *)p[i].info)->x1;
	  printf("%06X\t%04X\t\tcp[%04X].bytes\n\n", zz, j, i);
	  zz+=4;
	  break;
  case 5 :
  case 6 :
	  if(p[i].tag==5)
		  printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_long\n", zz, 5, i);
	  else
		  printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_long\n", zz, 6, i);
		zz++; j=((ccc *)p[i].info)->x1;
	  printf("%06X\t%04X\t\tcp[%04X].high_bytes\n\n", zz, j, i);
	  zz+=4; j=((ccc *)p[i].info)->x1;
	  printf("%06X\t%04X\t\tcp[%04X].low_bytes\n\n", zz, j, i);
	  zz+=4;
	  break;
  case 7 :
	  printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_Class\n", zz, 7, i);
	  zz++; j=((aaa *)p[i].info)->x1;
	  printf("%06X\t%04X\t\tcp[%04X].name_index\t%s\n\n", zz, j, i, get(j));
	  zz+=2;
	  break;
  case 8 :
	  printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_Class\n", zz, 8, i);
	  zz++; j=((aaa *)p[i].info)->x1;
	  printf("%06X\t%04X\t\tcp[%04X].string_index\t%s\n\n", zz, j, i, get(j));
	  zz+=2;
	  break;
  case 9 :
  case 10:
  case 11:
	  if(p[i].tag==9)
		  printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_Fieldref\n", zz, 9, i);
	  else if(p[i].tag==10)
		  printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_Methodref\n", zz, 10, i);
	  else
		  printf("%06X\t%02X\t\tcp[%04X].tag\t\tCONSTANT_InterfaceMethodref\n", zz, 11, i);
	  zz++;  j=((aaa *)p[i].info)->x1;
	  printf("%06X\t%04X\t\tcp[%04X].class_index\t%s\n", zz, j, i, get(j));
	  zz+=2; j=((aaa *)p[i].info)->x2;
	  printf("%06X\t%04X\t\tcp[%04X].name_&_type_index\t%s,%s\n\n", zz, j, i,
				 get( j), get( j, 2));
	  zz+=2;
	  break;
  case 12:
	  printf("%06X\t%02X\tcp[%04X].tag\t\tCONSTANT_NameAndType\n", zz, 12, i);
	  zz++; j=((aaa *)p[i].info)->x1;
	  printf("%06X\t%04X\tcp[%04X].name_index\t%s\n", zz, j, i, get(j));
	  zz+=2; j=((aaa *)p[i].info)->x2;
	  printf("%06X\t%04X\tcp[%04X].descriptor_index\t%s\n\n", zz, j, i, get(j));
	  zz+=2;
	  break;
  }
}
printf("*** jvm7 D5 Class/Interface Fields Pool ***\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
zz=offset[4]+2;
for(i=0; i<fi.field_c; i++)
 {
  strcpy(aa, get(fld[i].dindex));
  strcpy(bb, rtype(&aa));
  printf("%s %s\n", bb,get(fld[i].name));
  printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
  printf("offset\tBytes\tMethod[%06X]\t\tMeaning\n", i);
  printf("~~~~~~~\t~~~~~~\t~~~~~~~~~~~~~~~~~\t~~~~~~~~~~~~~~\n");
  printf("%06X\t%04X\taccess_flags\n", zz, fld[i].a_flag);
  printf("%06X\t%04X\tname_index\t\t%s\n", zz+=2, fld[i].name,get(fld[i].name));
  printf("%06X\t%04X\tdescriptor_index\t%s\n", zz+=2, fld[i].dindex, get(fld[i].dindex));
  printf("%06X\t%04X\tattribute_count\n\n", zz+=2, fld[i].attr_c);
  zz+=((cvattr *)fld[i].attr_i)->len+8;
 }
printf("*** jvm7 D6 Class/Interface Methods Pool ***\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
zz=offset[5]+2;
for(i=0; i<fi.meth_c; i++)
{
	char *sign = new char[100];
	sign=get(mth[i].sign);
	strcpy(bb,signat(&sign));
	sign++;
	strcpy(aa, rtype(&sign));
	printf("%s ",aa);
	strcpy(aa, get(mth[i].name));
	printf("%s%s\n",aa, bb);
  printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
  printf("offset\tBytes\tMethod[%06X]\t\tMeaning\n", i);
  printf("~~~~~~~\t~~~~~~\t~~~~~~~~~~~~~~~~~\t~~~~~~~~~~~~~~\n");
  printf("%06X\t%04X\taccess_flags\n", zz, mth[i].a_flag);
  printf("%06X\t%04X\tname_index\t\t%s\n", zz+=2, mth[i].name,get(mth[i].name));
  printf("%06X\t%04X\tdescriptor_index\t%s\n", zz+=2, mth[i].sign, get(mth[i].sign));
  printf("%06X\t%04X\tattribute_count\n", zz+=2, mth[i].attr_c);
  for(j=0; j<mth[i].attr_c; j++)
  {
	 printf("%06X\t%04X\tattribute_name_index     %s\n", zz+=2, mth[i].mthattr[j].name,get(mth[i].mthattr[j].name));
	 printf("%06X\t%06X\tattribute_length\n\n", zz+=2, mth[i].mthattr[j].len);
	 zz+=mth[i].mthattr[j].len+4;
  }
}
printf("*** jvm7 D7 Class/Interface Attributes Pool ***\n");
printf("~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n");
zz=offset[6]+2;
for(i=0; i<fi.attr_c; i++)
{
 printf("offset\tBytes\tAttributes[%04X]\tMeaning\n", i);
 printf("~~~~~~~\t~~~~~~\t~~~~~~~~~~~~~~~~~\t~~~~~~~~~~~~~~\n");
 printf("%06X\t%04X\tATTRIBUTE_name_index    %s\n",zz, fi.fiattr[i].name, get(fi.fiattr[i].name));
 printf("%06X\t%06X\tattribute_length\n\n", zz+=2, fi.fiattr[i].len);
 zz+=fi.fiattr[i].len+4;
}
return 0;
}

char* signat(char **ss)
{
  char *sign=new char[150];
  strcpy(sign,"(");
  *ss = *ss+1;
  while(**ss != ')')
  {
	  strcat(sign, rtype(ss));
	  *ss = *ss+1;
	  if( **ss != ')')
		 strcat(sign, ",");
  }
  strcat(sign, ")");
  return sign;
}

char* rtype( char **ss )    //Return type & arg
{
	char *aa=new char[20];  int i;
	switch(**ss)
	  {
		 case 'I' :  strcpy(aa, "int");    break;
		 case 'V' :  strcpy(aa, "void");   break;
		 case 'D' :  strcpy(aa, "double"); break;
		 case 'L' :
					  *ss = *ss+1; i=0;
					  while(**ss != ';')
					  { if(**ss == '/') i=0;
						 else { aa[i]=**ss; i++; }
						 *ss = *ss+1;
						}
					 aa[i]='\0';
					 break;
		case 'S' :  strcpy(aa, "short");  break;
		case 'B' :  strcpy(aa, "byte");   break;
		case 'F' :  strcpy(aa, "float");  break;
	  }
	  return aa;
}