/*
 * Copyright (c) 2000-2008
 * Author: Weiming Zhou
 *
 * Permission to use, copy, modify, distribute and sell this software
 * and its documentation for any purpose is hereby granted without fee,
 * provided that the above copyright notice appear in all copies and
 * that both that copyright notice and this permission notice appear
 * in supporting documentation.  
 */

#include <stdlib.h>
#include <memory.h>
#include "CapiGlobal.h"
#include "DSpaceList.h"

/**	動態等尺寸內存分配管理的創建函數

	@param	UINT uDataSize -所管理的空間鏈表數據大小	
	@param	UINT uDataCount -所管理的空間鏈表數據數量	
	@param	UINT uMinDSNodeCount -最小保存的空間鏈表個數	
	@param	UINT uDSNodeCount -保存最大的空間鏈表個數	
	@return	DSPACELIST * - 成功返回等尺寸內存分配管理指針，失敗返回NULL
*/
DSPACELIST *DSpaceList_Create(UINT uDataSize, UINT uDataCount,
                              UINT uMinDSNodeCount, UINT uDSNodeCount)
{
    DSPACELIST  *pList;
    UINT        i;

    pList = (DSPACELIST *)malloc(sizeof(DSPACELIST));
    if ( pList == NULL )
    {
        return NULL;
    }
    pList->pDSNode = (DSPACENODE *)malloc(uDSNodeCount * sizeof(DSPACENODE));
    if ( pList->pDSNode == NULL )
    {
        free(pList);
        return NULL;
    }

    for ( i = 0; i < uDSNodeCount - 1; i++ )
    {
        pList->pDSNode[i].pNext = &(pList->pDSNode[i+1]);
        pList->pDSNode[i].uPos = i;
    }
    
    for ( i = 1; i < uDSNodeCount; i++ )
    {
        pList->pDSNode[i].pSpList = NULL;
        pList->pDSNode[i].uInListFlag = DSPACENODE_NOT_IN_LIST;
        pList->pDSNode[i].pPrev = NULL;
    }
    
    pList->pDSNode[uDSNodeCount-1].pNext = NULL;
    pList->pDSNode[uDSNodeCount-1].uPos = uDSNodeCount-1;

    pList->pEmpty = &(pList->pDSNode[1]);

    pList->pDSNode[0].pSpList = SpList_Create(uDataCount, uDataSize, 0);
    if ( pList->pDSNode[0].pSpList == NULL )
    {
        free(pList->pDSNode);
        free(pList);
        return NULL;
    }
    
    /* 將第0個節點插入到雙向鏈表中 */
    pList->pHead = &(pList->pDSNode[0]);
    pList->pTail = pList->pHead;
    pList->pHead->pNext = NULL;
    pList->pHead->pPrev = NULL;
    pList->pDSNode[0].uInListFlag = DSPACENODE_IN_LIST;

    if ( uDSNodeCount < uMinDSNodeCount )
    {
        uDSNodeCount = uMinDSNodeCount;
    }

//    pList->uCurrentDSNode = 0;
    pList->uDataCount = uDataCount;
    pList->uDataSize = uDataSize;
    pList->uDSNodeCount = uDSNodeCount;
    pList->uMinDSNodeCount = uMinDSNodeCount;
    pList->uUsedDSNodeCount = 1;


    return pList;
}


/**	動態等尺寸內存分配管理的釋放函數

	@param	DSPACELIST *pList -動態等尺寸內存分配管理指針	
	@return	void -無	
*/
void DSpaceList_Destroy(DSPACELIST *pList)
{
    UINT    i;

    if ( pList != NULL )
    {
        for ( i = 0; i < pList->uDSNodeCount; i++ )
        {
            if ( pList->pDSNode[i].pSpList != NULL )
            {
                SpList_Destroy(pList->pDSNode[i].pSpList);
            }
        }
        free(pList);
    }
}


/**	動態等尺寸內存分配管理的內存分配函數

	@param	DSPACELIST *pList -動態等尺寸內存分配管理指針	
	@return	void * -成功返回分配到的內存，失敗返回NULL	
*/
void *DSpaceList_Alloc(DSPACELIST *pList)
{
    UINT        i;
    void       *pData;
    DSPACENODE *pDSNode;

    pData = NULL;
    pDSNode = pList->pHead;

    if ( pDSNode != NULL )
    {
        pData = SpList_Alloc(pDSNode->pSpList);
        if ( pDSNode->pSpList->uFreeCount == 0 )
        {
            /* 頭部節點指向的可用空間表已沒有自由空間，將頭部節點彈出 */
            pList->pHead = pDSNode->pNext;
            if ( pList->pHead != NULL )
            {
                pList->pHead->pPrev = NULL;
            }
            pDSNode->uInListFlag = DSPACENODE_NOT_IN_LIST;
        }
    }
    else
    {
        /* 查找并重新分配新的可用空間表來使用 */
        if ( pList->pEmpty == NULL )
        {
            UINT j;
            UINT uLen; 
            DSPACENODE *p;

            uLen = 2 * pList->uDSNodeCount;
            /* 可用空間表已用完，將DSPACENODE表的空間擴大一倍 */
            p = (DSPACENODE *)malloc( uLen * sizeof(DSPACENODE));
            if ( p == NULL )
            {
                return NULL;
            }

            /* 就將數據復制到新分配的內存中 */
            for ( i = 0; i < pList->uDSNodeCount; i++ )
            {
                if ( pList->pDSNode[i].pNext != NULL )
                {
                    p[i].pNext = &(p[(pList->pDSNode[i].pNext)->uPos]);
                }
                else
                {
                    p[i].pNext = NULL;
                }
                if ( pList->pDSNode[i].pPrev != NULL )
                {
                    p[i].pPrev = &(p[(pList->pDSNode[i].pPrev)->uPos]);
                }
                else
                {
                    p[i].pPrev = NULL;
                }
                p[i].pSpList = pList->pDSNode[i].pSpList;
                p[i].uInListFlag = pList->pDSNode[i].uInListFlag;
                p[i].uPos = i;
            }
            
            pList->uDSNodeCount = uLen;
            
            free(pList->pDSNode);
            pList->pDSNode = p;
            
            /* 重新初始化擴大后增加部分的數據 */
            for ( j = i; j < pList->uDSNodeCount-1; j++ )
            {
                pList->pDSNode[j].pSpList = NULL;
                pList->pDSNode[j].uInListFlag = DSPACENODE_NOT_IN_LIST;
                pList->pDSNode[j].pNext = &(pList->pDSNode[j+1]);
                pList->pDSNode[j].pPrev = NULL;
                pList->pDSNode[j].uPos = j;
            }
            pList->pDSNode[j].pSpList = NULL;
            pList->pDSNode[j].pNext = NULL;
            pList->pDSNode[j].uInListFlag = DSPACENODE_NOT_IN_LIST;
            pList->pDSNode[j].pPrev = NULL;
            pList->pDSNode[j].uPos = j;

            pList->pEmpty = &(pList->pDSNode[i]);
        }

        pDSNode = pList->pEmpty;
        pList->pEmpty = pList->pEmpty->pNext;

        pDSNode->pSpList = SpList_Create(pList->uDataCount, 
                                         pList->uDataSize, pDSNode->uPos);
        if ( pDSNode->pSpList != NULL )
        {
            pList->uUsedDSNodeCount++;

            /* 將pDSNode插入到雙向鏈表尾部 */
            pDSNode->pNext = NULL;
            pDSNode->pPrev = pList->pTail;
            if ( pList->pTail != NULL )
            {
                pList->pTail->pNext = pDSNode;
            }
            else
            {
                pList->pHead = pDSNode;
            }
            pList->pTail = pDSNode;
            pDSNode->uInListFlag = DSPACENODE_IN_LIST;

            pData = SpList_Alloc(pDSNode->pSpList);
        }
    }
    return pData;
}


/**	動態等尺寸內存分配管理的內存釋放函數

	@param	DSPACELIST *pList -動態等尺寸內存分配管理指針	
	@param	void *pData -要釋放的內存數據	
	@return	void -無	
*/
void DSpaceList_Free(DSPACELIST *pList, void *pData)
{
    SPNODE      *pNode;
    DSPACENODE  *pDSNode;

    pNode = (SPNODE *)((char *)pData - sizeof(SPNODE));
    pDSNode = &(pList->pDSNode[pNode->uPos]);
    
    /* 判斷是否符合將整個可用空間表釋放的條件 */
    if ( pDSNode->pSpList->uFreeCount == pList->uDataCount 
        && pList->uUsedDSNodeCount > pList->uMinDSNodeCount 
        && pNode->uPos != pList->uCurrentDSNode )
    {
        /* 釋放此節點指向的可用空間表 */
        SpList_Destroy(pDSNode->pSpList);
        pDSNode->pSpList = NULL;

        /* 從雙向鏈表中刪除此節點 */
        if ( pDSNode->pPrev != NULL )
        {
            pDSNode->pPrev->pNext = pDSNode->pNext;
        }
        if ( pDSNode->pNext != NULL )
        {
            pDSNode->pNext->pPrev = pDSNode->pPrev;
        }
        if ( pList->pHead = pDSNode )
        {
            pList->pHead = pDSNode->pNext;
        }
        if ( pList->pTail == pDSNode )
        {
            pList->pTail = pDSNode->pPrev;
        }
        /* pDSNode加入到pEmpty為頭節點的未使用鏈表中 */
        pDSNode->pNext = pList->pEmpty;
        pDSNode->pPrev = NULL;
        pDSNode->uInListFlag = DSPACENODE_NOT_IN_LIST;
        pList->pEmpty = pDSNode;


        /* 更新當前使用的DSPACENODE總數的計數 */
        pList->uUsedDSNodeCount--;
    }
    else
    {
        SpList_Free(pDSNode->pSpList, pData);                                  
        if ( pDSNode->uInListFlag == DSPACENODE_NOT_IN_LIST )
        {
            /* 將其插入雙向鏈表尾部 */
            pDSNode->pPrev = pList->pTail;
            pDSNode->pNext = NULL;
            if ( pList->pTail != NULL )
            {
                pList->pTail->pNext = pDSNode;
            }
            else
            {
                pList->pHead = pDSNode;
            }
            pList->pTail = pDSNode;

            pDSNode->uInListFlag = DSPACENODE_IN_LIST;
        }
    }
    return;
}