/*************************************************************************
 * File Name: ex0120.c
 *
 * 파일중에 있는 tab을 같은 길이의 빈 칸으로 대치하는 프로그램
 * 매 n번째 위치에 tab지점이 있다고 가정한다.
 * tabsize는 8로 지정 한라인은 1000문자 까지 허용한다.
 *************************************************************************/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <fcntl.h>
#include <unistd.h>

#define TABSIZE		8
#define MAXLINE		1000

int
dtab(char **str);

int
entab(char **str);

int
write_file(const char *filename, const char *str);

int
read_file(const char *filename, char **str);


int
check_arg(int argc, char *argv[]);


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

	if ( !check_arg(argc, argv) )
		exit(EXIT_FAILURE);

	if ( !read_file(argv[1], &result) )
		exit(EXIT_FAILURE);

	if ( !dtab(&result) )
		exit(EXIT_FAILURE);

	if ( !write_file(argv[1], result) )
		exit(EXIT_FAILURE);

	free(result);
	
	return 0;
}


/*****************************************************************
 *
 * Function Name: dtab
 *
 * 	Input	: char **str
 * 	Output	: int 1(success), 0(failure)
 *
 * 	Comment	: file의 내용을 모두 덤프시킨 문자배열 포인터를
 * 		받아와서(str) 탭문자를 스페이스로 변환시킨다.
 * 		단 탭의 위치에 해당하는 만큼의 스페이스 개수로
 * 		치환한다.
 * 		(*str)[i] 표현에 주의할것,
 * 		str[i] 는 원하지 않는 결과 출력시킴
 *
 *****************************************************************/
int
dtab(char **str)
{
	int i, j, k, l;
	int n_tab, n_sp;
	char *new_str;

	/* tab 개수 체크 */
	n_tab = 0;
	for ( i = 0; *str[i] != '\0'; ++i )
		if ( *str[i] == '\t' )
			++n_tab;

	/* 파라미터 복사본 - 약간의 메모리 낭비 허용 */
	new_str = (char *)malloc(sizeof(char) *
			(strlen(*str) + (n_tab - 1) * TABSIZE + 1));
	if ( new_str == NULL ) {
		fprintf(stderr, "[dtab: %d] malloc failure\n", __LINE__);
		return 0;
	}

	/* tab -> space!! */
	for ( i = 0, j = 0; (*str)[i] != '\0'; ++i ) {
		new_str[j] = (*str)[i];
		if ( new_str[j] == '\n' ) {
			k = 0;
			++j;
		} else if ( new_str[j] == '\t' ) {
			n_sp = TABSIZE - (k % TABSIZE);
			for ( l = 0; l < n_sp; ++l )
				new_str[j++] = ' ';
		} else {
			++k;
			++j;
		}
	}
	new_str[j] = '\0';


	/* 원본 해제 후 복사본을 연결 */
	/* 문제가 있는 부분 */
	free(*str);
	*str = new_str;

	/* DEBUG 코드 */
	printf("ori-str length: %d\n", strlen(*str));
	printf("new-str length: %d\n", strlen(new_str));
	printf("%s", new_str);

	return 1;
}

/*****************************************************************
 *
 * Function Name: entab
 *
 * 	Input	:  
 * 	Output	:  
 *
 * 	Comment	:  
 *
 *****************************************************************/
int
entab(char **str)
{
	return 0;
}

/*****************************************************************
 *
 * Function Name: write_file
 *
 * 	Input	: const char *filename, const char *str 
 * 	Output	: int 1(success), 0(failure)
 *
 * 	Comment	: 문자열 배열의 내용을 그대로 파일에 옮긴다.
 * 		파일 열기, 기록, 닫기도 이곳에서 처리한다.
 *
 *****************************************************************/
int
write_file(const char *filename, const char *str)
{
	/* - 문제가 있다! 스트림 버퍼를 넘어서인가?
	 * 제대로 된 결과가 나오지 않는다.
	 * 심지어 str의 내용조차도 fprintf 이후 변경된다.
	 * open을 이용한 저수준 파일 함수는 정상 작동
	 * 스트림쪽 문제가 있는 것으로 추정
	 * 추후 조사해볼 것!!
	int fp;

	printf("%s", str);
	if ( (fp = fopen(filename, "w")) == NULL ) {
		fprintf(stderr, "Can't open %s to write\n", filename);
		return 0;
	}

	if ( fprintf(fp, "%s", str) < 0 ) {
		fprintf(stderr, "Can't write %s\n", filename);
		return 0;
	}

	fclose(fp);
	*/

	int fd;

	if ( (fd = open(filename, O_WRONLY | O_TRUNC, 0)) == -1 ) {
		fprintf(stderr, "[write_file: %d] Can't open file %s\n",
				__LINE__, filename);
		return 0;
	}

	printf("%s", str);
	printf("%d - %d\n", strlen(str), BUFSIZ);
	printf("fd=%d\n", fd);

	if ( write(fd, str, strlen(str)) != strlen(str) ) {
		fprintf(stderr, "[write_file: %d] Write error %s\n",
				__LINE__, filename);
		return 0;
	}

	close(fd);

	return 1;
}

/*****************************************************************
 *
 * Function Name: read_file
 *
 * 	Input	: const char *filename, char **str 
 * 	Output	: int 1(success), 0(failure); 
 *
 * 	Comment	: 텍스트 파일의 내용을 문자열 배열에 덤프한다.
 * 		문자열 배열 포인터를 받아와서 그 값을 기록한다.
 * 		문자열 배열은 이 함수 내에서 메모리 할당이되며
 * 		이 문자열 배열을 사용하고 난 뒤에는 해제되어야만
 * 		한다. 파라미터로 오는 변수는 값이 할당되지 않은
 * 		순수 포인터여야한다.(배열은 안됨!)
 *
 *****************************************************************/
int
read_file(const char *filename, char **str)
{
	int n_cnt;
	char buf[MAXLINE];
	FILE *fp;

	if ( (fp = fopen(filename, "r")) == NULL ) {
		fprintf(stderr, "[read_file: %d] Can't open file: %s\n",
				__LINE__, filename);
		return 0;
	}

	/* 파일 내용 복사를 위한 여유 공간 마련 */
	n_cnt = 0;
	while ( fgets(buf, MAXLINE, fp) != NULL )
		n_cnt += strlen(buf);	
	*str = (char *)malloc(sizeof(char) * (n_cnt + 1));
	if ( *str == NULL ) {
		fprintf(stderr, "[read_file: %d] Mem alloc err\n",
				__LINE__);
		return 0;
	}

	/* 파일 포인터 초기 위치로 */
	if ( fseek(fp, 0, SEEK_SET) != 0 ) {
		fprintf(stderr, "[read_file: %d] file pointer seek err\n",
				__LINE__);
		return 0;
	}

	/* dump!! */
	while ( fgets(buf, MAXLINE, fp) != NULL )
		strcat(*str, buf);

	return 1;
}

/*****************************************************************
 *
 * Function Name: check_arg
 *
 * 	Input	: int argc, char *argv[] 
 * 	Output	: int 1(success), 0(failure) 
 *
 * 	Comment	: 프로그램 실행시의 커맨드라인 아규먼트를 처리
 * 		파일명이 있지않다면 에러를 반환
 *
 *****************************************************************/
int
check_arg(int argc, char *argv[])
{
	if ( argc != 2 ) {
		fprintf(stderr, "Usage: %s <filename>\n", argv[0]);
		return 0;
	}

	return 1;
}