C 함수의 호출 원리를 이용한 sprintf() 의 약식 구현

C 함수의 호출 원리를 이용한 sprintf() 의 약식 구현 입니다. va_start() 나 va_end() 함수를 사용하여 구현할 수도 있지만, 이것도 stack의 동작을 숨기고 있어서 좀더 low level 로 구현해 보았습니다.
date 함수와 같이 자신만의 형식으로 포맷을 재구성할 때 사용할 수 있습니다.

/*+-------------------------------------------------------------------------+
  |  FILE: sprintf.c                                                        |
  |  Version: 0.1                                                           |
  |                                                                         |
  |  Copyright (c) 2003 Chun Joon Sung                                      |
  |  Email: chunjoonsung@hanmail.net                                        |
  +-------------------------------------------------------------------------+*/
char *itoa( char *a, int i)
{
	int sign=0;
	int temp=0;
	char buf[16];
	char *ptr;

	ptr = buf;

	/* zero then return */
	if( i )
	{
		/* make string in reverse form */
		if( i < 0 )
			{ i = ~i + 1; sign++; }
		while( i )
			{ *ptr++ = (i % 10) + '0'; i = i / 10; }
		if( sign )
			*ptr++ = '-';
		*ptr = '\0';

		/* copy reverse order */
		for( i=0; i < strlen(buf); i++ )
			*a++ = buf[strlen(buf)-i-1];
	}	
	else
		*a++ = '0';

	return a;
}

char *xtoa( char *a, unsigned int x, int opt)
{
	int i;
	int sign=0;
	int temp=0;
	char buf[16];
	char *ptr;

	ptr = buf;

	/* zero then return */
	if( x )
	{
		/* make string in reverse form */
		while( x )
			{ *ptr++ = (x&0x0f)<10 ? (x&0x0f)+'0' : (x&0x0f)-10+opt; x>>= 4; }

		*ptr = '\0';

		/* copy reverse order */
		for( i=0; i < strlen(buf); i++ )
			*a++ = buf[strlen(buf)-i-1];
	}
	else	
		*a++ = '0';

	return a;
}

long _sprintf(buf, format, arg)
char *buf;
char *format;
long  arg;
{
	int cont_flag;
	int value;
	int quit;
	char *start=buf;
	long *argp=(long *)&arg;
	char *p;

    while( *format )
	{
		if( *format != '%' )	/* 일반적인 문자 */
		{
			*buf++ = *format++;
			continue;
		}

		format++;				/* skip '%' */

		if( *format == '%' )	/* '%' 문자가 연속 두번 있는 경우 */
		{
			*buf++ = *format++;
			continue;
		}
		
		switch( *format )
		{
			case 'c' :
				*buf++ = *(char *)argp++;
				break;

			case 'd' :
				buf = itoa(buf,*(int *)argp++);
				break;

			case 'x' : 
				buf = xtoa(buf,*(unsigned int *)argp++,'a');
				break;

			case 'X' : 
				buf = xtoa(buf,*(unsigned int *)argp++,'A');
				break;

			case 's' :
				p=*(char **)argp++;
				while(*p) 
						*buf++ = *p++;
				break;

			default :
				*buf++ = *format; /* % 뒤에 엉뚱한 문자인 경우 */
				break;
        }

		format++;
    }
    *buf = '\0';

    return(buf-start);
}

main()
{
	char buf[80];

	_sprintf( buf, "%d, %x, %X, %s\n", 1234, 0xabcd, 0xabcd, "abcd"); 
	puts(buf);
}