/**    
      @file     tlist.c
      @date     1997/10/7

      @author   유영창 frog@falinux.com  FALinux.Co.,Ltd.

      @brief    Ver 1.0.1

                Delphi 형식의 리스트 객체이다.

                
      @modify   

      		  오재경 (2012/2/7, Ver 1.0.2)
                  - tlist_clear() 해제 에러 수정 (아주 중요함)

      		  오재경 (2009/1/14, Ver 1.0.1)
                  - 인덱스 에러함수 추가
                  - 에러일 경우 return 코드 추가

     
      @todo    
      @bug     
      @remark  
      @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>
  
  #ifdef EMBEDDED_LINUX
  
  	#include <sys/resource.h>
  
  #endif
  
  
  char desc_tlist[] = "falinux tlist ver 1.0.1";
  
  //------------------------------------------------------------------------------

  /** @brief   에러함수
      @param   that   관리 객체의 포인터

  *///----------------------------------------------------------------------------
  void   tlist_error      ( tlist *that )
  {
  	printf( "tlist error %p
  ", that );
  //  exit( 1 ); 
  }
  //------------------------------------------------------------------------------

  /** @brief   인덱스 범위에러
      @param   that   관리 객체의 포인터
      @param   index  에러인덱스

  *///----------------------------------------------------------------------------
  void   tlist_error_index  ( tlist *that, int index )
  {
  	printf( "tlist error : outof bound  obj=%p count=%d err-index=%d 
  ", that, that->fcount, index );
  //    exit( 1 ); 
  }
  //------------------------------------------------------------------------------

  /** @brief   tlist 객체를 생성한다.
      @return  객체의 포인터

  *///----------------------------------------------------------------------------
  tlist* tlist_create     ( void )
  {
     tlist *that;
     that = ( tlist *) malloc( sizeof( tlist ) );
     if( that )
     {
        that->flist     = NULL;
        that->fcount    = 0;
        that->fcapacity = 0;
     }
     return that;
  }
  
  //------------------------------------------------------------------------------

  /** @brief   tlist 객체를 소멸시킨다.
      @param   *that 관리 객체의 포인터

  *///----------------------------------------------------------------------------
  void   tlist_free       ( tlist *that )
  {
      tlist_clear( that );
      free( that );
  }
  
  //------------------------------------------------------------------------------

  /** @brief   아이템을 추가한다.
      @param   that 관리 객체의 포인터
      @param   item 새로이 추가되는 아이템 포인터
      @return  추가된 아이템의 인덱스

  *///----------------------------------------------------------------------------
  int    tlist_add        ( tlist *that, void *item )
  {
       int result;
       result = that->fcount; 
       if( result == that->fcapacity )
       {
         tlist_grow( that );
       }
       that->flist[ result ] = item;
       that->fcount++; 
       return result;
  }
  //------------------------------------------------------------------------------

  /** @brief   모든 아이템을 제거한다.
      @param   that 관리 객체의 포인터

  *///----------------------------------------------------------------------------
  void   tlist_clear      ( tlist *that )
  {
  	if ( that->flist )
  	{
  		free(that->flist);
  		that->flist = NULL;
  	}
  	that->fcount    = 0;
  	that->fcapacity = 0;
  }
  //------------------------------------------------------------------------------

  /** @brief   하나의 아이템을 제거한다.
      @param   that 관리 객체의 포인터
      @param   index 제거될 아이템의 인덱스

  *///----------------------------------------------------------------------------
  void   tlist_delete     ( tlist *that, int index )
  {
      if( ( index < 0 ) || ( index >= that->fcount ) ) 
      {
      	tlist_error_index( that, index );
      	return;
      }
      
      that->fcount--;
      if( index < that->fcount ) memmove( &that->flist[ index ], 
                                          &that->flist[ index + 1], 
                                          ( that->fcount - index ) * sizeof( void * ) );
  }
  //------------------------------------------------------------------------------

  /** @brief   2개의 아이템 위치를 교환한다.
      @param   that 관리 객체의 포인터
      @param   index1 교환할 인덱스1
      @param   index2 교환할 인덱스2

  *///----------------------------------------------------------------------------
  void   tlist_exchange   ( tlist *that, int index1, int index2 )
  {
      void *item;
  
      if(    ( index1 < 0 ) || ( index1 >= that->fcount ) 
          || ( index2 < 0 ) || ( index2 >= that->fcount ) ) 
      {
     		tlist_error( that );
     		return;
     	}
     	
      item = that->flist[ index1 ];
      that->flist[ index1 ] = that->flist[ index2 ];
      that->flist[ index2 ] = item;  
  }
  //------------------------------------------------------------------------------

  /** @brief   아이템 풀의 용량을 확장한다.
      @param   that 관리 객체의 포인터
      @return  객체의 포인터

  *///----------------------------------------------------------------------------
  tlist *tlist_expand     ( tlist *that )
  {
      if( that->fcount == that->fcapacity ) tlist_grow( that );
      return that;
  }
  //------------------------------------------------------------------------------

  /** @brief   첫번째 아이템 포인터를 돌려준다.
      @param   that 관리 객체의 포인터
      @return  첫번째 아이템 포인터

  *///----------------------------------------------------------------------------
  void  *tlist_first      ( tlist *that )
  {
      return tlist_get( that, 0 );
  }
  //------------------------------------------------------------------------------

  /** @brief   인덱스에 해당하는 아이템 포인터를 돌려준다.
      @param   that 관리 객체의 포인터
      @param   index 아이템 인덱스
      @return  인덱스에 해당하는 아이템 포인터

  *///----------------------------------------------------------------------------
  void*  tlist_get        ( tlist *that, int index )
  {
      if( (index<0) || ( index >= that->fcount ) )
      {
      	tlist_error_index( that, index );
      	return NULL;
      }
      return( that->flist[ index ] );
  }
  //------------------------------------------------------------------------------

  /** @brief   아이템이 들어갈 메모리를 증가시킨다.
      @param   that 관리 객체의 포인터

  *///----------------------------------------------------------------------------
  void   tlist_grow     ( tlist *that )
  {
      int delta;
   
      if      ( that->fcapacity > 8 ) delta = 16;
      else if ( that->fcapacity > 4 ) delta =  8;
      else                            delta =  4;
      
      tlist_setcapacity( that, that->fcapacity + delta ); 
  }
  //------------------------------------------------------------------------------

  /** @brief   아이템 포인터가 동일한 포인터의 인덱스를 구한다.
      @param   that 관리 객체의 포인터
      @param   index  아이템 포인터
      @return  아이템 포인터가 해당되는 인덱스

  *///----------------------------------------------------------------------------
  int    tlist_indexof    ( tlist *that, void *item )
  {
      int result;
      result = 0;
      while( ( result < that->fcount ) && ( that->flist[ result ] != item ) ) result++;
      if( result == that->fcount ) result = -1;
      return result;
  }
  //------------------------------------------------------------------------------

  /** @brief   아이템을 특정 위치에 추가한다.
      @param   that 관리 객체의 포인터
      @param   index 추가할 아이템가 들어갈 인덱스
      @param   item  추가할 아이템 포인터

  *///----------------------------------------------------------------------------
  void   tlist_insert     ( tlist *that, int index, void *item )
  {
      if( ( index < 0 ) || ( index > that->fcount ) ) 
      {
      	tlist_error_index( that, index );
      	return;
      }
      	
      if( that->fcount == that->fcapacity ) tlist_grow( that );
      if( index < that->fcount ) memmove( &that->flist[ index + 1], 
                                          &that->flist[ index ], 
                                          ( that->fcount - index ) * sizeof( void * ) );
      that->flist[ index ] = item;
      that->fcount++;
  }
  //------------------------------------------------------------------------------

  /** @brief   마지막 아이템 포인터를 구한다.
      @param   that 관리 객체의 포인터
      @return  마지막 아이템 포인터

  *///----------------------------------------------------------------------------
  void  *tlist_last       ( tlist *that )
  {
      return( tlist_get( that, that->fcount -1 ) );
  }
  //------------------------------------------------------------------------------

  /** @brief   특정 아이템의 위치(인덱스)를 변경한다.
      @param   that 관리 객체의 포인터
      @param   curindex 변경할 아이템의 인덱스
      @param   newindex 변경될 아이템의 인덱스

  *///----------------------------------------------------------------------------
  void   tlist_move       ( tlist *that, int curindex, int newindex )
  {
  	void *item; 
  	if( curindex != newindex ) 
  	{
  		if( ( newindex < 0 ) || ( newindex >= that->fcount ) )
  		{
  			tlist_error_index( that, newindex );
  			return;
  		}
  			 
  		item = tlist_get( that, curindex );
  		tlist_delete( that, curindex );
  		tlist_insert( that, newindex, item );
  	} 
  }
  //------------------------------------------------------------------------------

  /** @brief   특정아이템의 포인터를 변경한다.
      @param   that  관리 객체의 포인터
      @param   index 아이템가 변경될 인덱스
      @param   item  새로 변경될 아이템 포인터

  *///----------------------------------------------------------------------------
  void   tlist_put        ( tlist *that, int index, void *item )
  {
  	if( (index< 0) || (index>=that->fcount) ) 
  	{
  		tlist_error_index( that, index );
  		return;
  	}
  	
  	that->flist[ index ] = item;
  }
  //------------------------------------------------------------------------------

  /** @brief   인자로 전해준 동일한 아이템 포인터를 찾아 삭제한다.
      @param   that 관리 객체의 포인터
      @param   item 삭제할 아이템의 포인터
      @return  삭제된 아이템의 과거 인덱스

  *///----------------------------------------------------------------------------
  int    tlist_remove     ( tlist *that, void *item )
  {
      int result;
      result = tlist_indexof( that, item );
      if( result != -1 ) tlist_delete( that, result );
      return result;
  }
  //------------------------------------------------------------------------------

  /** @brief   메모리 관리를 위해 사용하지 않는 메모리를 반환한다.
      @param   that 관리 객체의 포인터
      @remark  실제 메모리를 반환하지 않는다.
      @todo    메모리를 반환하도록 재작성되어야 한다.

  *///----------------------------------------------------------------------------
  void   tlist_pack       ( tlist *that )
  {
     int loop;
     for( loop = that->fcount -1; loop >= 0 ; loop-- )
        if( tlist_get( that, loop ) == NULL ) tlist_delete( that, loop );
  }
  //------------------------------------------------------------------------------

  /** @brief   관리할 수 있는 아이템 풀의 용량을 설정하고 메모리를 재 할당한다.
      @param   that 관리 객체의 포인터
      @param   newcapacity 할당해야할 아이템 풀의 용량

  *///----------------------------------------------------------------------------
  void   tlist_setcapacity( tlist *that, int newcapacity )
  {
     	if( ( newcapacity < that->fcount ) || ( newcapacity > MAXLISTSIZE ) ) 
      {
         tlist_error( that );
         return;
      }
      
      if( newcapacity > that->fcapacity )
      {
          that->flist = ( void ** )realloc( that->flist,newcapacity * sizeof( void * ) );
          if( that->flist != NULL ) that->fcapacity = newcapacity;  
      }
  }
  //------------------------------------------------------------------------------

  /** @brief   관리할 수 있는 아이템의 개수를 설정하며 아이템의 개수를 설정된 값으로 변경한다.
      @param   that 관리 객체의 포인터
      @param   newcount 변경되는 아이템의 개수

  *///----------------------------------------------------------------------------
  void   tlist_setcount   ( tlist *that, int newcount )
  {
      if( (newcount < 0) || (newcount > MAXLISTSIZE ) )
      {
      	tlist_error( that ); 
      	return;
      }
      if( newcount > that->fcapacity ) tlist_setcapacity( that, newcount );
      if( newcount > that->fcount ) 
          memset( that->flist[ that->fcount], 0, ( newcount - that->fcount ) * sizeof( void * ));
      that->fcount = newcount; 
  }
  //------------------------------------------------------------------------------

  /** @brief   아이템풀의 크기를 얻는다.
      @param   that 관리 객체의 포인터
      @return  아이템풀의 크기

  *///----------------------------------------------------------------------------
  int    tlist_getcapacity ( tlist *that )
  {
      return that->fcapacity;
  }
  //------------------------------------------------------------------------------

  /** @brief   아이템의 개수를 얻는다.
      @param   that 관리 객체의 포인터
      @return  아이템의 개수

  *///----------------------------------------------------------------------------
  int    tlist_getcount   ( tlist *that )
  {
      return that->fcount;
  }
  //------------------------------------------------------------------------------

  /** @brief   아이템을 사용자 비교함수를 통해 정렬한다.
      @param   that 관리 객체의 포인터
      @param   tlistsortcomparefunc 사용자비교 콜백함수이며, int (*func)(const void *, const void *) 형태이다.

  *///----------------------------------------------------------------------------
  void   tlist_sort       ( tlist *that,int (*tlistsortcomparefunc)(const void *, const void *) )
  {
      if( ( that->flist != NULL ) && ( that->fcount > 0 ) )
          qsort( that->flist, that->fcount,sizeof( void *), tlistsortcomparefunc );
  }