#include <stdio.h>
#include <stdlib.h>
#include <wiringPi.h>
#include <wiringSerial.h>

#define MAX_COLUMN 48
#define BAUD_RATE  38400

int outfd = 0;

int main(int argc, char *argv[]){

	FILE *infp, *outfp;
	int c;
	int row = 0;
	int col = 4;
	int numByte;
	int i;

	if (argc == 1) {
		infp  = stdin;
		outfp = stdout;
	} else {
		infp = fopen(argv[1], "r");
		if (infp == NULL) {
			printf("%s not found.\n",argv[1]);
			exit(1);
		}
		if ((outfd = serialOpen("/dev/ttyAMA0", BAUD_RATE)) < 0) {
			printf("can not open serialport.");
			exit(1);
		}
    }

	if (outfd) {
		// 初期化(印字バッファ内データ抹消))
		serialPutchar(outfd,0x1b);
		serialPutchar(outfd,0x40);

		// ANK文字フォント指定(8x16ドット)
		serialPutchar(outfd,0x1b);
		serialPutchar(outfd,0x68);
		serialPutchar(outfd,0x30);

		// 漢字フォント指定(16x16ドット)
		serialPutchar(outfd,0x12);
		serialPutchar(outfd,0x53);
		serialPutchar(outfd,0x31);

		// 文字コード指定(UTF-8)
		serialPutchar(outfd,0x1b);
		serialPutchar(outfd,0x24);
		serialPutchar(outfd,0x30);

		// 行間スペース量指定(0ドット)
		serialPutchar(outfd,0x1b);
		serialPutchar(outfd,0x41);
		serialPutchar(outfd,0x01);

		// 文字間スペース量指定(0ドット)
		serialPutchar(outfd,0x1b);
		serialPutchar(outfd,0x20);
		serialPutchar(outfd,0x00);
	}
	
	if (outfd) serialPrintf(outfd,"%03d ",++row); else fprintf(outfp,"%03d ",++row);
	while ((c = fgetc(infp)) != EOF) {
		switch(c) {
			case 0x09: // TAB
				if (outfd) serialPutchar(outfd,' '); else fputc(' ',outfp);
				++col;
				break;
			case 0x0d:
				--col;
				break;
			case 0x0a:
				// 49桁目に改行コードがきた場合は、自動改行されるので無視する
				if ( col % MAX_COLUMN ) {
					if (outfd) serialPutchar(outfd,0x0d); else fputc(c,outfp);
				}
				if (outfd) serialPrintf(outfd,"%03d ",++row); else fprintf(outfp,"%03d ",++row);
				col = 4;
				break;
			default:
				if ((c & 0x80) == 0x00) { // 1byte文字
					if (outfd) serialPutchar(outfd,c); else fputc(c,outfp);
					++col;
				} else {
					// 48桁目に2バイト文字がきた場合は、改行する
					if ( !((++col) % MAX_COLUMN)) {
						if (outfd) serialPutchar(outfd,0x0d); else fputc(0x0a,outfp);
						col = 2;
					} else {
						++col;
					}
					// UTF-8文字コードのバイト数判定
					if ((c & 0xE0) == 0xC0)        { numByte=2; // 2byte文字
					} else if ((c & 0xF0) == 0xE0) { numByte=3; // 3byte文字
					} else if ((c & 0xF8) == 0xF0) { numByte=4; // 4byte文字
					} else if ((c & 0xFC) == 0xF8) { numByte=5; // 5byte文字
					} else if ((c & 0xFE) == 0xFC) { numByte=6; // 6byte文字
					} else { numByte=0;
					}
					if (outfd) serialPutchar(outfd,c); else fputc(c,outfp);
					for(i=1;i<numByte;++i) {
						c = fgetc(infp);
						if (outfd) serialPutchar(outfd,c); else fputc(c,outfp);
					}
				}
				break;
		}
		if (!(col % MAX_COLUMN)) {
			// AS-289R2は自動改行される
			if (!outfd) fputc(0x0a,outfp);
		}
	}
	if (outfd) serialPutchar(outfd,0x0d); else fputc(0x0a,outfp);
	if (infp!=stdin) {
		fclose(infp);
		if (outfd) serialClose(outfd);
	}
	exit(0);
}