#include "List.h"


unsigned long Resize(List pList, unsigned int nCount)
{
    void **ppNewObj;

	if ( pList->nCount >= nCount) 
	{
		if ( pList->nCount == nCount )
            return OK;
        else
            return AVS_OFFICEPDFWRITER_ERROR_INVALID_PARAMETER;
    }

	ppNewObj = (void **)GetMem( pList->oMMgr, nCount * sizeof(void *) );

    if ( !ppNewObj )
		return ErrorGetCode( pList->oError );

	if ( pList->ppObj )
		UtilsMemCpy( (BYTE *)ppNewObj, (BYTE *)pList->ppObj, pList->nBlockSize * sizeof(void *));

	pList->nBlockSize = nCount;
    
	if ( pList->ppObj )
		FreeMem( pList->oMMgr, pList->ppObj );
    
	pList->ppObj = ppNewObj;

    return OK;
}



/*
 *  ListNew
 *
 *  oMMgr          :  описатель объекта MMgr.
 *  nItemsPerBlock :  количество указателей.
 *
 *  return:  success, возвращает handle на новый List объект
 *           otherwise, возвращает NULL.
 *
 */

List ListNew(MMgr oMMgr, unsigned int nItemsPerBlock)
{
    List pList;

    if ( NULL == oMMgr )
        return NULL;

    pList = (List)GetMem( oMMgr, sizeof(ListRec) );
    if ( pList ) 
	{
		pList->oMMgr  = oMMgr;
		pList->oError = oMMgr->oError;
		pList->nBlockSize = 0;
		pList->nItemsPerBlock = (nItemsPerBlock <= 0 ? DEF_ITEMS_PER_BLOCK : nItemsPerBlock);
		pList->nCount = 0;
		pList->ppObj = NULL;
    }

    return pList;
}

/*
 *  ListAdd
 *
 *  pList :  Указатель на объект List.
 *  pItem :  Указатель на объект, который нужно добавить.
 *
 *  return:  success, returns OK.
 *           возвращает AVS_OFFICEPDFWRITER_ERROR_FAILD_TO_ALLOC_MEM, когда расширение объекта List невозможно
 *
 */

unsigned long ListAdd(List pList, void *pItem)
{

	if ( pList->nCount >= pList->nBlockSize)
	{
		unsigned long nRet = Resize( pList, pList->nBlockSize + pList->nItemsPerBlock);

        if ( OK != nRet ) 
		{
            return nRet;
        }
    }

	pList->ppObj[pList->nCount++] = pItem;
    return OK;
}

/*
 *  ListFind
 *
 *  pList  : Указатель на объект List.
 *  nCount : Разера массива указателей.
 *
 *  return:  success, возвращет номер объекта.
 *           otherwise, возвращает отрицательное значение.
 *
 */

int ListFind  (List pList, void *pItem)
{
    unsigned int nIndex;

	for ( nIndex = 0; nIndex < pList->nCount; nIndex++) 
	{
		if ( pList->ppObj[nIndex] == pItem )
            return nIndex;
    }

    return -1;
}


/*
 *  ListInsert
 *
 *  pList   :  Указатель на объект List.
 *  pTarget :  Указатель на объект, который двигаем.
 *  pItem   :  Указатель на объект, который вставляем в список.
 *
 *  Добавляем новый объект pItem перед pTarget в списке.
 *
 *  return:  success, return OK.
 *           возвращает AVS_OFFICEPDFWRITER_ERROR_FAILD_TO_ALLOC_MEM, когда расширение объекта List невозможно
 *           возвращает AVS_OFFICEPDFWRITER_ERROR_ITEM_NOT_FOUND, когда объект который двигаем не найдем
 *
 */

unsigned long ListInsert(List pList, void *pTarget, void *pItem)
{
    int  nTargetIndex = ListFind( pList, pTarget );
	void *pLastItem = pList->ppObj[pList->nCount - 1];
    
    if ( nTargetIndex < 0 )
        return AVS_OFFICEPDFWRITER_ERROR_ITEM_NOT_FOUND;

    // двигаем объекты списка назад по очереди
	for ( int nIndex  = pList->nCount - 2; nIndex >= nTargetIndex; nIndex-- )
		pList->ppObj[nIndex + 1] = pList->ppObj[nIndex];

	pList->ppObj[ nTargetIndex ] = pItem;

    return ListAdd( pList, pLastItem);
}

/*
 *  ListRemoveByIndex
 *
 *  Удаляем объект из списка, определенный номером в списке.
 *
 *  pList  :  Указатель на объект List.
 *  nIndex :  Номер объекта, который нужно удалить.
 *
 *  return:  success, возвращает указатель на удаленный из списка объект.
 *           возвращает NULL, если объект не найден в списке.
 *
 */

void* ListRemoveByIndex( List pList, unsigned int nIndex )
{
    void *pTmp = NULL;

	if ( pList->nCount <= nIndex)
        return NULL;

	pTmp = pList->ppObj[nIndex];

	while ( nIndex < pList->nCount - 1)
	{
		pList->ppObj[nIndex] = pList->ppObj[nIndex + 1];
        nIndex++;
    }

	pList->nCount--;

    return pTmp;
}


/*
 *  ListRemove
 *
 *  Удаляем объект из списка, определенный параметром pItem.
 *  Область памяти, занимаемая объектом, не освобождается.
 *
 *  pList :  Указатель на объект List.
 *  pItem :  Указатель на объект, который удаляем.
 *
 *  return:  success, return OK.
 *           возвращает AVS_OFFICEPDFWRITER_ERROR_ITEM_NOT_FOUND, если объект не найден в списке.
 *
 */

unsigned long ListRemove( List pList, void *pItem )
{
	void **ppObj = pList->ppObj;

	for (unsigned int nIndex = 0; nIndex < pList->nCount; nIndex++) 
	{
        if ( *ppObj == pItem) 
		{
            ListRemoveByIndex( pList, nIndex );
            return OK;
        } 
		else
            ppObj++;
    }

    return AVS_OFFICEPDFWRITER_ERROR_ITEM_NOT_FOUND;
}

/*
 *  ListItemAt
 *
 *  pList  :  Указатель на объект List.
 *  pIndex :  Номер объекта.
 *
 *  return:  success, возвращает указатель на объект.
 *           otherwise, возвращает NULL.
 *
 */

void* ListItemAt( List pList, unsigned int nIndex)
{
	return ( pList->nCount <= nIndex ) ? NULL : pList->ppObj[nIndex];
}


/*
 *  ListClear
 *
 *  pList :  Указатель на объект List.
 *
 */

void ListClear( List pList )
{
    if ( pList->ppObj )
        FreeMem( pList->oMMgr, pList->ppObj );

    pList->nBlockSize = 0;
    pList->nCount = 0;
    pList->ppObj = NULL;
}

/*
 * Listfree
 * 
 * Удаляем сам список и все объекты ему принадлежащие.
 *
 * pList :  Указатель на объект List.
 *
 */

void ListFree( List pList )
{
    if ( !pList )
        return ;

    ListClear( pList );
	FreeMem( pList->oMMgr, pList );
}


/*
 * Listfree2
 * 
 * Удаляем сам список, но все объекты ему принадлежащие
 * оставляем в памяти.
 *
 * pList :  Указатель на объект List.
 *
 */

void ListFree2( List pList )
{
    if ( !pList )
        return ;

	FreeMem( pList->oMMgr, pList );
}