/*
	MGADCONV - Mobile Gear Address Book Data Converter  Version 0.01
	Copyright (c) 1997-8 by TAKu. <taku@mail.club.or.jp>
	
	Todo
		グループ、シークレット、付箋情報のサポート
	
	History
		97/??/?? とりあえず作る
		98/04/02 とりあえずアップ
*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include <dos.h>
#include <io.h>

#define VERSION "0.01"

static char *key[] = {
	"(未解析)",
	"氏名",
	"氏名読み",
	"メールアドレス",
	"会社名",
	"所属",
	"役職",
	"会社TEL",
	"会社FAX",
	"会社〒",
	"会社住所",
	"自宅TEL",
	"自宅FAX",
	"自宅〒",
	"自宅住所",
	"付箋情報?",
	"備考",
};

int main(int argc, char *argv[]) {
	char *fname = "KOJINDB.DAT";
	FILE *fp;
	unsigned char buf[32], tmp[256];
	int i, c, record_sz, sz;
	
	fputs("MGADCONV Ver."VERSION" Copyright (c) 1997-8 by TAKu.\n", stderr);
	
	if(argc == 2)
		fname = argv[1];
	if(!(fp=fopen(fname, "rb"))) {
		fprintf(stderr, "usage: mgfnconv [KOJINDB.DAT]\n");
		fprintf(stderr, "Can't open %s.\n", fname);
		return;
	}
	
	while((c=fgetc(fp)) != EOF) {
		record_sz = c-1;
		if(record_sz < 27) {				/* 判断はアバウト... */
			fprintf(stderr, "Error\n");
			return;
		}
		
		sz = 12;
		fread(tmp, sz, 1, fp);
		if(tmp[5] == 0x30) break;
		printf("%s:", key[0]);					/* 未解析 */
		for(i=0 ; i<sz ; i++)
			printf(" %02X", tmp[i]);
		printf("\n");
		record_sz -= sz;
		
		sz = 15;								/* (flag) */
		fread(buf, sz, 1, fp);
		record_sz -= sz;
		
		sz = (unsigned)fgetc(fp);
		fread(tmp, sz, 1, fp);
		tmp[sz] = '\0';
		printf("%s: %s\n", key[1], tmp);		/* 氏名 */
		record_sz -= sz+1;
		
		sz = (unsigned)fgetc(fp);
		fread(tmp, sz, 1, fp);
		tmp[sz] = '\0';
		printf("%s: %s\n", key[2], tmp);		/* 氏名読み */
		record_sz -= sz+1;
		
		for(i=1 ; i<=14 ; i++) {
			if(record_sz < 0) {
				fprintf(stderr, "Error\n");
				return;
			}
			if(buf[i] != '0') {
				sz = (unsigned)fgetc(fp);
				fread(tmp, sz, 1, fp);
				tmp[sz] = '\0';
				if(i == 1) {
					if(buf[0] == 2) strcat(tmp, "@pcvan.or.jp");
					else if(buf[0] == 3) strcat(tmp, "@niftyserve.or.jp");
				}
				printf("%s: %s\n", key[i+2], tmp);
				record_sz -= sz+1;
			}
		}
		printf("\n");
	}
	
	for(i=0 ; i<sz ; i++)
		printf(" %02X", tmp[i]);
	printf("\n\n");
	
	/* 未解析 */
	if(1) {
		while((c=fgetc(fp)) != EOF) {
			printf(" %02X", c);
			if(c)
				printf("(%c)", c);
		}
		printf("\n");
	}
	
	fclose(fp);
}