/**
@file tstrlist.c
@date 2009/1/14
@author 오재경 freefrug@falinux.com FALinux.Co.,Ltd.
@brief Ver 0.9.1
Delphi 형식의 스트링리스트 객체이다.
tlist.c 에서 구현한 tlist 를 상속(?) 받아 사용한다.
@modify
@todo
@bug
@remark 함수 테스트 필요 (테스트 완료표시 ">>")
>>tstrlist_create
>>tstrlist_free
>>tstrlist_clear
>>tstrlist_add
>>tstrlist_add_object
>>tstrlist_delete
>>tstrlist_get_string
>>tstrlist_get_object
>>tstrlist_get_tag
tstrlist_exchange
>>tstrlist_indexof
tstrlist_insert
>>tstrlist_first
>>tstrlist_last
tstrlist_move
>>tstrlist_put_string
>>tstrlist_put_tag
>>tstrlist_remove
tstrlist_pack
>>tstrlist_getcount
>>tstrlist_sort
>>tstrlist_commatext
>>tstrlist_load_from_file
>>tstrlist_save_to_file
@warning
*/
//
// 저작권 에프에이리눅스(주)
// 외부공개 금지
//
//----------------------------------------------------------------------------
#define EMBEDDED_LINUX // 이렇게 처리하지 않으면 EClipse에서 C 영역이 회색 바탕이 됨
#ifdef MS_WIN32
#undef EMBEDDED_LINUX
#endif
#include <stdio.h>
#include <stdlib.h>
#include <sys/time.h>
#include <unistd.h>
#include <string.h>
#include <tlist.h>
#include <tstrlist.h>
#ifdef EMBEDDED_LINUX
#include <sys/resource.h>
#endif
char desc_tstrlist[] = "falinux tstrlist ver 0.9.0";
/// @{
/// @brief local 함수리스트
static int tstrlist_calcu_strcap( const char *str ); /// 할당할 문자열의 공간을 계산한다.
static tstritem *tstrlist_newitem( const char *str ); /// 새로운 문자열 아이템을 생성한다.
static tstritem *tstrlist_replace_itemstr( tstritem *sitem, const char *str ); /// 문자열 아이템의 문자열을 변경한다.
static int tstrlist_sortfunc( const void *ppa, const void *ppb ); /// 문자열 정렬을 위해 크기를 비교한다.
/// @}
static void trim( char *str)
// 설명: 인수로 받은 문자열에서 앞과 뒤의 공백 문자를 제거한다.
{
int sz_str;
int ndx;
sz_str = strlen( str);
for( ndx = sz_str; 0 <= ndx; ndx--) // 문자열 뒤의 화이트 문자를 제거
{
if ( ' ' != str[ndx]) break; // 한글이 있을 경우를 생각해서 ' ' 문자를 직접 비교한다.
str[ndx] = '\0';
}
sz_str = strlen( str); // 문자열 앞의 화이트 문자를 제거
for( ndx = 0; ndx < sz_str; ndx++)
{
if ( ' ' != str[ndx]) // 한글이 있을 경우를 생각해서 ' ' 문자를 직접 비교한다.
break;
}
memcpy( str, str+ndx, strlen( str)); // 회이트 문자가 아닌 부분을 포인터의 시작 위치로 이동
}
//------------------------------------------------------------------------------
/** @brief 문자열에서 앞뒤의 특수문자와 공백문자를 제거한다.
@param line 문자열 포인터
*///----------------------------------------------------------------------------
static void __trimstr( char *line )
{
int idx, len;
// 뒷쪽 공백문자와 특수문자 제거
len = strlen(line);
for( idx=len-1; idx>=0; idx-- )
{
if ( line[idx] > ' ' ) break;
}
line[idx+1] = '\0';
// 앞쪽 공백문자와 특수문자 제거
len = strlen(line);
for( idx=0; idx<len; idx++ )
{
if ( line[idx] > ' ' ) break;
}
if ( (0 < idx) && (idx < len) )
{
memmove( line, line + idx, len-idx+1 );
}
}
//------------------------------------------------------------------------------
/** @brief 할당할 문자열의 공간을 계산한다.
@param str 추가되는 문자열 포인터
@return 할당할 문자열의 개수
@remark 최소 MIN_STR_LEN 바이트이상이며 2의 배수로 증가한다.
*///----------------------------------------------------------------------------
static int tstrlist_calcu_strcap( const char *str )
{
int slen, square;
slen = strlen( str );
square = 0;
while( slen )
{
slen = slen >> 1;
square ++;
}
slen = 1 << square;
if ( slen < MIN_STR_LEN ) slen = MIN_STR_LEN;
return slen;
}
//------------------------------------------------------------------------------
/** @brief 새로운 문자열 아이템을 생성한다.
@param str 추가되는 문자열 포인터
@return 생성된 문자열 아이템 구조체 포인터
*///----------------------------------------------------------------------------
static tstritem *tstrlist_newitem( const char *str )
{
tstritem *sitem;
int cap;
cap = tstrlist_calcu_strcap( str );
sitem = (tstritem *)malloc( sizeof(tstritem) + cap );
sitem->fstrcap = cap;
sitem->fstr = (char *)sitem + sizeof(tstritem);
sitem->ftag = 0;
strncpy( sitem->fstr, str, cap );
return sitem;
}
//------------------------------------------------------------------------------
/** @brief 문자열 아이템의 문자열을 변경한다.
@param sitem 문자열 아이템 구조체의 포인터
@param str 변경되는 문자열 포인터
@return 변경된 아이템구조체 포인터
*///----------------------------------------------------------------------------
static tstritem *tstrlist_replace_itemstr( tstritem *sitem, const char *str )
{
int cap;
cap = sitem->fstrcap;
if ( (int)strlen(str) > sitem->fstrcap )
{
tstritem *newitem;
newitem = tstrlist_newitem( str );
newitem->ftag = sitem->ftag;
newitem->fdata = sitem->fdata;
free( sitem );
return newitem;
}
else
{
strncpy( sitem->fstr, str, cap );
return sitem;
}
}
//------------------------------------------------------------------------------
/** @brief tstrlist 객체를 생성한다.
@return 객체의 포인터
*///----------------------------------------------------------------------------
tstrlist* tstrlist_create ( void )
{
tstrlist *that;
that = ( tstrlist *) malloc( sizeof( tstrlist ) );
that->ftlst = tlist_create();
return that;
}
//------------------------------------------------------------------------------
/** @brief tstrlist 객체를 소멸시킨다.
@param *that 관리 객체의 포인터
*///----------------------------------------------------------------------------
void tstrlist_free ( tstrlist *that )
{
tstrlist_clear( that );
tlist_free( that->ftlst );
free( that );
}
//------------------------------------------------------------------------------
/** @brief 모든 아이템을 제거한다.
@param that 관리 객체의 포인터
*///----------------------------------------------------------------------------
void tstrlist_clear ( tstrlist *that )
{
int loop;
void *ptr;
tlist *tlst = that->ftlst;
// 문자열 객체를 해제한다.
for (loop=0; loop<tlst->fcount; loop++)
{
ptr = tlist_get( tlst, loop );
if (ptr) free( ptr );
}
tlist_clear( tlst );
}
//------------------------------------------------------------------------------
/** @brief 문자열 아이템을 추가한다.
@param that 관리 객체의 포인터
@param str 새로이 추가되는 문자열 포인터
@return 추가된 아이템의 인덱스
*///----------------------------------------------------------------------------
int tstrlist_add ( tstrlist *that, const char *str )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
int result;
sitem = tstrlist_newitem( str ); // 문자열 객체 생성
result = tlist_add( tlst, sitem );
return result;
}
//------------------------------------------------------------------------------
/** @brief 문자열과 사용자 포인터를 추가한다.
@param that 관리 객체의 포인터
@param str 새로이 추가되는 문자열 포인터
@param pdata 사용자 포인터
@return 추가된 아이템의 인덱스
*///----------------------------------------------------------------------------
int tstrlist_add_object ( tstrlist *that, const char *str, void *obj )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
int result;
result = tstrlist_add( that, str );
sitem = (tstritem *)tlist_get( tlst, result );
sitem->fdata = obj;
return result;
}
//------------------------------------------------------------------------------
/** @brief 하나의 아이템을 제거한다.
@param that 관리 객체의 포인터
@param index 제거될 아이템의 인덱스
*///----------------------------------------------------------------------------
void tstrlist_delete ( tstrlist *that, int index )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
sitem = (tstritem *)tlist_get( tlst, index );
if (sitem)
{
free( sitem );
}
tlist_delete( tlst, index );
}
//------------------------------------------------------------------------------
/** @brief 인덱스에 해당하는 문자열 포인터를 반환한다.
@param that 관리 객체의 포인터
@param index 아이템 인덱스
@return 인덱스에 해당하는 문자열 포인터
*///----------------------------------------------------------------------------
char *tstrlist_get_string ( tstrlist *that, int index )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
sitem = (tstritem *)tlist_get( tlst, index );
if (sitem)
{
return sitem->fstr;
}
return NULL;
}
//------------------------------------------------------------------------------
/** @brief 인덱스에 해당하는 사용자 포인터를 반환한다.
@param that 관리 객체의 포인터
@param index 아이템 인덱스
@return 인덱스에 해당하는 사용자 포인터
*///----------------------------------------------------------------------------
void *tstrlist_get_object ( tstrlist *that, int index )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
sitem = (tstritem *)tlist_get( tlst, index );
if (sitem)
{
return sitem->fdata;
}
return NULL;
}
//------------------------------------------------------------------------------
/** @brief 인덱스에 해당하는 정수형 태그변수를 반환한다.
@param that 관리 객체의 포인터
@param index 아이템 인덱스
@return 인덱스에 해당하는 정수형 태그변수
*///----------------------------------------------------------------------------
int tstrlist_get_tag ( tstrlist *that, int index )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
sitem = (tstritem *)tlist_get( tlst, index );
if (sitem)
{
return sitem->ftag;
}
return -1;
}
//------------------------------------------------------------------------------
/** @brief 2개의 아이템 위치를 교환한다.
@param that 관리 객체의 포인터
@param index1 교환할 인덱스1
@param index2 교환할 인덱스2
*///----------------------------------------------------------------------------
void tstrlist_exchange ( tstrlist *that, int index1, int index2 )
{
tlist *tlst = that->ftlst;
tlist_exchange( tlst, index1, index2 );
}
//------------------------------------------------------------------------------
/** @brief 문자열이 동일한 인덱스를 구한다.
@param that 관리 객체의 포인터
@param str 비교 문자열 포인터
@return 문자열이 해당되는 인덱스, 존재하지 않으면 -1
*///----------------------------------------------------------------------------
int tstrlist_indexof ( tstrlist *that, const char *str )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
int loop;
for (loop=0; loop<tlst->fcount; loop++)
{
sitem = (tstritem *)tlist_get( tlst, loop );
if ( 0 == strcmp( sitem->fstr, str ) )
{
return loop;
}
}
return -1;
}
//------------------------------------------------------------------------------
/** @brief 아이템을 특정 위치에 추가한다.
@param that 관리 객체의 포인터
@param index 추가할 아이템가 들어갈 인덱스
@param str 추가할 문자열 포인터
*///----------------------------------------------------------------------------
void tstrlist_insert ( tstrlist *that, int index, char *str )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
sitem = tstrlist_newitem( str ); // 문자열 객체 생성
tlist_insert( tlst, index, sitem );
}
//------------------------------------------------------------------------------
/** @brief 첫번째 문자열 포인터를 돌려준다.
@param that 관리 객체의 포인터
@return 첫번째 문자열 포인터
*///----------------------------------------------------------------------------
char *tstrlist_first ( tstrlist *that )
{
return tstrlist_get_string( that, 0 );
}
//------------------------------------------------------------------------------
/** @brief 마지막 문자열 포인터를 구한다.
@param that 관리 객체의 포인터
@return 마지막 문자열 포인터
*///----------------------------------------------------------------------------
char *tstrlist_last ( tstrlist *that )
{
tlist *tlst = that->ftlst;
return tstrlist_get_string( that, tlst->fcount-1 );
}
//------------------------------------------------------------------------------
/** @brief 특정 아이템의 위치(인덱스)를 변경한다.
@param that 관리 객체의 포인터
@param curindex 변경할 아이템의 인덱스
@param newindex 변경될 아이템의 인덱스
*///----------------------------------------------------------------------------
void tstrlist_move ( tstrlist *that, int curindex, int newindex )
{
tlist *tlst = that->ftlst;
tlist_move( tlst, curindex, newindex );
}
//------------------------------------------------------------------------------
/** @brief 특정아이템의 문자열을 변경한다.
@param that 관리 객체의 포인터
@param index 문자열이 변경될 인덱스
@param str 새로 변경될 문자열
*///----------------------------------------------------------------------------
void tstrlist_put_string ( tstrlist *that, int index, char *str )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
sitem = tlist_get( tlst, index );
if ( sitem )
{
sitem = tstrlist_replace_itemstr( sitem, str );
tlist_put( tlst, index, sitem );
}
}
//------------------------------------------------------------------------------
/** @brief 특정아이템의 사용자 메모리 변수를 변경한다.
@param that 관리 객체의 포인터
@param index 변경될 아이템 인덱스
@param obj 새로 변경될 사용자 포인터
*///----------------------------------------------------------------------------
void tstrlist_put_object ( tstrlist *that, int index, void *obj )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
sitem = tlist_get( tlst, index );
if ( sitem )
{
sitem->fdata = obj;
}
}
//------------------------------------------------------------------------------
/** @brief 특정아이템의 태그변수를 변경한다.
@param that 관리 객체의 포인터
@param index 태그가 변경될 인덱스
@param tag 새로 변경될 정수형 태그변수
*///----------------------------------------------------------------------------
void tstrlist_put_tag ( tstrlist *that, int index, int tag )
{
tlist *tlst = that->ftlst;
tstritem *sitem;
sitem = tlist_get( tlst, index );
if ( sitem )
{
sitem->ftag = tag;
}
}
//------------------------------------------------------------------------------
/** @brief 인자로 전해준 동일한 문자열을 찾아 삭제한다.
@param that 관리 객체의 포인터
@param item 삭제할 아이템의 포인터
@return 삭제된 아이템의 과거 인덱스
*///----------------------------------------------------------------------------
int tstrlist_remove ( tstrlist *that, char *str )
{
int result;
result = tstrlist_indexof( that, str );
if( result >= 0 ) tstrlist_delete( that, result );
return result;
}
//------------------------------------------------------------------------------
/** @brief 메모리 관리를 위해 사용하지 않는 메모리를 반환한다.
@param that 관리 객체의 포인터
@remark 실제 메모리를 반환하지 않는다.
@todo 메모리를 반환하도록 재작성되어야 한다.
*///----------------------------------------------------------------------------
void tstrlist_pack ( tstrlist *that )
{
tlist *tlst = that->ftlst;
tlist_pack( tlst );
}
//------------------------------------------------------------------------------
/** @brief 아이템의 개수를 얻는다.
@param that 관리 객체의 포인터
@return 아이템의 개수
*///----------------------------------------------------------------------------
int tstrlist_getcount ( tstrlist *that )
{
tlist *tlst = that->ftlst;
return tlst->fcount;
}
//------------------------------------------------------------------------------
/** @brief 문자열 정렬을 위해 크기를 비교한다.
@param astr 비교 포인터
@param bstr 비교 포인터
@return 문자열 비교값
*///----------------------------------------------------------------------------
static int tstrlist_sortfunc( const void *ppa, const void *ppb )
{
tstritem **aitem, **bitem;
aitem = (tstritem **)ppa;
bitem = (tstritem **)ppb;
return strcmp( (*aitem)->fstr, (*bitem)->fstr );
}
//------------------------------------------------------------------------------
/** @brief 아이템을 사용자 비교함수를 통해 정렬한다.
@param that 관리 객체의 포인터
@param tstrlistsortcomparefunc 사용자비교 콜백함수이며, int (*func)(const void *, const void *) 형태이다.
*///----------------------------------------------------------------------------
void tstrlist_sort ( tstrlist *that )
{
tlist *tlst = that->ftlst;
if ( 0 >= tlst->fcount ) return;
tlist_sort( tlst, tstrlist_sortfunc );
}
//------------------------------------------------------------------------------
/** @brief 인자로 전해준 문자열을 분리하여 아이템으로 추가한다.
@param that 관리 객체의 포인터
@param str 분리할 문자열
@return 객체가 관리하는 아이템 개수
@todo 더블쿼테이션(") 으로 싸여진 문자열 분리가 필요하다.
*///----------------------------------------------------------------------------
int tstrlist_commatext ( tstrlist *that, char *str )
{
#define COMMA_BUFF_MAX 4096
tlist *tlst = that->ftlst;
int ndx_sour;
int ndx_buff;
char ch_division = '\0';
char buff[COMMA_BUFF_MAX+1];
void add_buff_to_list( void)
{
trim( buff);
tstrlist_add( that, buff);
}
ndx_buff = 0; // 버퍼에 문자를 넣을 위치를 0으로 초기화
for ( ndx_sour = 0; ndx_sour < strlen( str); ndx_sour++)
{
if ( '\0' == ch_division)
{
switch( str[ndx_sour])
{
case '\'' :
case '\"' :
if ( 0 < ndx_buff) // 이전에 버퍼로 등록된 문자열이 있다면 리스트에 추가
{
buff[ndx_buff] = '\0';
add_buff_to_list();
}
ch_division = str[ndx_sour];
ndx_buff = 0; // 버퍼에 새로운 문자열을 담을 수 있도록 버퍼의 위치를 0 으로 초기화
break;
case ' ' :
case ',' :
case '\n' :
case '\r' :
if ( 0 < ndx_buff) // 이전에 버퍼로 등록된 문자열이 있다면 리스트에 추가
{
buff[ndx_buff] = '\0';
add_buff_to_list();
ndx_buff = 0;
}
break;
default :
if ( ndx_buff < COMMA_BUFF_MAX)
{
buff[ndx_buff++] = str[ndx_sour];
}
else
{
printf( "tstrlist error: buffer is small in comma text function.");
}
break;
}
}
else
{
if ( ch_division == str[ndx_sour]) // 이전 인용부호의 끝이라면
{
ch_division = '\0';
buff[ndx_buff] = '\0';
add_buff_to_list();
ndx_buff = 0;
}
else
{
if ( ndx_buff < COMMA_BUFF_MAX)
{
buff[ndx_buff++] = str[ndx_sour];
}
else
{
printf( "tstrlist error: buffer is small in comma text function.");
}
}
}
}
if ( 0 < ndx_buff) // 이전에 버퍼로 등록된 문자열이 있다면 리스트에 추가
{
buff[ndx_buff] = '\0';
add_buff_to_list();
}
return tlst->fcount;
}
//------------------------------------------------------------------------------
/** @brief 텍스트파일에서 라인별로 아이템에 등록한다.
@param that 관리 객체의 포인터
@param fname 파일이름
@return 객체가 관리하는 아이템 개수
*///----------------------------------------------------------------------------
int tstrlist_load_from_file ( tstrlist *that, char *fname )
{
tlist *tlst = that->ftlst;
char line[2048];
FILE *pfile;
pfile = fopen( fname, "r" );
if ( pfile )
{
while( fgets( line, sizeof(line), pfile ) )
{
__trimstr( line );
if ( 0 < strlen(line) )
{
tstrlist_add( that, line );
}
}
fclose( pfile );
}
return tlst->fcount;
}
//------------------------------------------------------------------------------
/** @brief 아이템들을 라인별로 파일로 저장한다.
@param that 관리 객체의 포인터
@param fname 파일이름
@return 파일에 저장한 라인수
*///----------------------------------------------------------------------------
int tstrlist_save_to_file ( tstrlist *that, char *fname )
{
tlist *tlst = that->ftlst;
FILE *pfile;
int loop, wrline;
pfile = fopen( fname, "w+" );
wrline = 0;
if ( pfile )
{
for (loop=0; loop<tlst->fcount; loop++)
{
if ( 0 < fprintf( pfile, "%s\n", tstrlist_get_string( that, loop ) ) )
wrline ++;
}
fclose( pfile );
}
return wrline;
}