//hexdump utility
//Time-stamp: <Sep 21 2001>
#include <stdio.h>
#include <stdlib.h>

typedef enum {false, true} bool;

int main(int argc, char *argv[]);
void printAscii(unsigned char *p, int len);
void errexit(char* s);

bool euc = false; //false..print ASCII,  true.. print EUC-JP kanji

int main(int argc, char *argv[]){
	FILE *fin;
	unsigned long off = 0; //offset from topOfFile (byte)
	unsigned char b; //byte
	unsigned char line[16];
	bool deci = false; //false..print offset as hexa,  true.. as decimal
	char *fname = NULL;


	/*
	 * 引数処理
	 */
	if(argc<=1 || argc>=5){
		fprintf(stderr,
			"hd - hexdump utility\n"
			"usage:    hd [option] file\n"
			"option:   -d  print offset as decimal (default: hexadecimal)\n"
			"          -e  print EUC-JP kanji (default: ASCII)\n"
			);
		exit(EXIT_FAILURE);
	}else{
		int i;
		for(i=1; i<argc; i++){
			char *p = argv[i];
			if(*p=='-'){
				p++;
				while(*p!='\0'){
					if(*p=='d')
						deci = true;
					else if(*p=='e')
						euc = true;
					else
						errexit("unknown option");
					p++;
				}//while
			}else{
				fname = argv[i];
			}
		}//for(i
	}//if(argc
	if(fname == NULL)
		errexit("file open");

	/*
	 * file open
	 */
	if((fin=fopen(fname,"rb")) == NULL){
		errexit("file open");
	}

	/*
	 * file read
	 */
	while(fread(&b, 1, 1, fin)==1){
		/*
		 * 表示
		 */
		if(off%16==0){
			if(off!=0)
				printAscii(line, 16);
			//アドレス表示
			if(deci==true)
				printf("%08ld: ", off%100000000);
			else
				printf("%08lx: ", off);
		}else if(off%8==0){
			//16バイトの真ん中の区切り線
			printf("-");
		}else{
			//各バイトごとの空白
			printf(" ");
		}
		printf("%02x", b);

		line[off%16] = b;
		off++;
	}//while(fread

	/*
	 * file close
	 */
	if(feof(fin)==0){
		//EOF以外の理由でとまった
		errexit("file read");
	}
	fclose(fin);

	printAscii(line, off%16);
	exit(EXIT_SUCCESS);
}

void printAscii(unsigned char *p, int len){
	int i;
	unsigned char n;
	if(len<16){
		for(i=len; i<16; i++)
			printf("   "); //3spaces (空白と16進数)
	}

	printf("    "); //4spaces バイナリと行末文字の空白
	for(i=0; i<len; i++){
		static int idx = 0;
		// ASCIIのとき idx=0
		// EUCの1byte目のとき idx=1
		// EUCの2byte目のとき idx=2
		// それ以外のとき idx=-1

		n = *(p+i);
		if(n>=0xa1 && n<=0xfe){
			//EUC-JP
			if(idx==1){
				idx = 2;
			}else{ //idx==(-1, 0, 2)
				idx = 1;
			}
		}else if(n>=0x20 && n<=0x7e){
			//ASCII
			idx = 0;
		}else{
			//CTRL code
			idx = -1;
		}

		/*
		 * 0x80以降を表示する条件:
		 *
		 * 1) EUC-JP表示が指定されている(euc==true)
		 * 2) i==0 (表示の端)で
		 *    EUCの1バイト目
		 * 3) i==15 &&
		 *    EUCの2バイト目
		 * 4)それ以外のi &&
		 *    EUC-JPの領域である
		 */
		if(euc==true &&
		   ((i==0&&idx==1) || (i==15&&idx==2) || (i!=0&&i!=15&&idx>=1))
			){
			printf("%c", n);
		}else if(idx==0){
			//iが端のときでも ASCII なら表示する
			printf("%c", n);
		}else{
			printf(".");
		}
	}
	printf("\n");
}

void errexit(char* s){
	fprintf(stderr, "\nerror: %s\n", s);
	exit(EXIT_FAILURE);
}
//end of file