/* Copyright (c) 2009-2010 The Khronos Group Inc.

 *

 * Permission is hereby granted, free of charge, to any person obtaining a

 * copy of this software and/or associated documentation files (the

 * "Materials"), to deal in the Materials without restriction, including

 * without limitation the rights to use, copy, modify, merge, publish,

 * distribute, sublicense, and/or sell copies of the Materials, and to

 * permit persons to whom the Materials are furnished to do so, subject to

 * the following conditions:

 *

 * The above copyright notice and this permission notice shall be included

 * in all copies or substantial portions of the Materials.

 *

 * THE MATERIALS ARE PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,

 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF

 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.

 * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY

 * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,

 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE

 * MATERIALS OR THE USE OR OTHER DEALINGS IN THE MATERIALS.

 */

/*! \ingroup wfc

 *  \file wfcscene.c

 *

 *  \brief SI Scene graph management functions.

 */

#include "WF/wfc.h"

#include "wfcstructs.h"

#include "wfcscene.h"

#include "wfcelement.h"

#include "wfcimageprovider.h"

#include "owfmemory.h"

#include "owfarray.h"

#include "owflinkedlist.h"

#include "owfobject.h"

#include "owfdebug.h"

/*!

 *  \brief Destroy an element. In case the element is marked as shared,

 *  this function does nothing. An element is marked as shared, when it is

 *  inserted into working copy scene. The marked flag is reset when the element

 *  is removed from the context (i.e. it only resides in the device's

 *  list of created elements)

 *

 *  \param element          Element to destroy

 */

static void WFC_Scene_DestroyElement(WFC_ELEMENT* element)

{

    /* elements in the working copy are "read only" because

     * they're shared between the device & the working copy

     */

    if (!element->shared)

    {

        WFC_Element_Destroy(element);

    }

}

OWF_API_CALL void

WFC_Scene_Destroy(WFC_SCENE* scene)

{

    OWF_NODE*               node;

    DPRINT(("WFC_Scene_Destroy(%p)", scene));

    if (scene)

    {

        for (node = scene->elements; NULL != node; node = node->next)

        {

            WFC_Scene_DestroyElement((WFC_ELEMENT*)node->data);

        }

        scene->elements = OWF_List_Clear(scene->elements);

        DESTROY(scene->context);

        OWF_Pool_PutObject(scene);

    }

}

/*!

 *  \brief Append element into scene

 *

 *  \param scene            Scene

 *  \param element          Element to add

 */

static void

WFC_Scene_AppendElement(WFC_SCENE* scene,

                        WFC_ELEMENT* element)

{

    OWF_NODE*               node;

    /* OBS! No duplicate check here! Use with caution*/

    node = OWF_Node_Create(CONTEXT(scene->context)->nodePool, element);

    scene->elements = OWF_List_Append(scene->elements, node);

    return ;

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL WFC_SCENE*

WFC_Scene_Clone(WFC_SCENE* scene)

{

    WFC_SCENE*              cloneScene;

    OWF_NODE*               node;

    cloneScene = WFC_Scene_Create(CONTEXT(scene->context));

    for (node = scene->elements; NULL != node; node = node->next)

    {

        WFC_ELEMENT* original;

        WFC_ELEMENT* cloneElem;

        original = ELEMENT(node->data);

        if (WFC_Element_AffectsCompositionResults(original))

            {

            cloneElem = WFC_Element_Clone(original);

            WFC_Scene_AppendElement(cloneScene, cloneElem);

            }

    }

    return cloneScene;

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL WFC_SCENE*

WFC_Scene_Create(WFC_CONTEXT* context)

{

    WFC_SCENE*              scene;

	DPRINT(("WFC_Scene_Create"));

	OWF_ASSERT(context);

    scene = SCENE(OWF_Pool_GetObject(context->scenePool));

    OWF_ASSERT(scene);

    ADDREF(scene->context, context);

    return scene;

}

 /*----------------------------------------------------------------------------*/

OWF_API_CALL WFCErrorCode

WFC_Scene_InsertElement(WFC_SCENE* scene,

                        WFC_ELEMENT* element,

                        WFCElement elementBelow)

{

    WFCErrorCode            result = WFC_ERROR_NONE;

    OWF_NODE*               iter = NULL;

    OWF_NODE*               newPos = NULL;

    OWF_NODE*               oldPos = NULL;

    if (!scene || !element)

    {

        return WFC_ERROR_ILLEGAL_ARGUMENT;

    }

    if (element->handle == (WFCHandle)element)

    {

        /* nothing to do */

        return WFC_ERROR_NONE;

    }

    newPos = NULL; /*scene->elements;*/

    for (iter = scene->elements; NULL != iter; iter = iter->next)

    {

        WFC_ELEMENT*        temp = NULL;

        temp = ELEMENT(iter->data);

        if (temp->handle == elementBelow)

        {

            /* insertion point found */

            newPos = iter;

        }

        if (temp->handle == element->handle)

        {

            /* already in the scene; relocate */

            oldPos = iter;

        }

    }

    if (newPos && newPos == oldPos) {

        /* inserting element above self is a no-op */

        return WFC_ERROR_NONE;

    }

    if (!newPos && WFC_INVALID_HANDLE != elementBelow)

    {

        /* could not find elementBelow from the scene */

        result = WFC_ERROR_ILLEGAL_ARGUMENT;

    }

    else

    {

        OWF_NODE*           newNode = NULL;

        /* first remove element from its old slot, if already

         * on the list

         */

        if (NULL != oldPos)

        {

            scene->elements = OWF_List_Remove(scene->elements, oldPos);

            OWF_Node_Destroy(oldPos);

        }

        /* allocate new node to insert */

        newNode = OWF_Node_Create(CONTEXT(scene->context)->nodePool, element);

        if (NULL != newPos)

        {

            /* insert into new position, above elementBelow */

            OWF_List_InsertAfter(newPos, newNode);

        }

        else

        {

            /* insert on bottom */

            scene->elements = OWF_List_Insert(scene->elements, newNode);

        }

    }

    DPRINT(("  Order of the elements (bottom to top): "));

    for (iter = scene->elements; NULL != iter; iter = iter->next)

    {

        DPRINT(("    %d", ELEMENT(iter->data)->handle));

    }

    return result;

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL void

WFC_Scene_RemoveElement(WFC_SCENE* scene,

                        WFCElement element)

{

    OWF_NODE*               node = NULL;

    for (node = scene->elements; NULL != node; node = node->next)

    {

        WFC_ELEMENT*        etemp;

        etemp = ELEMENT(node->data);

        if (etemp->handle == element)

        {

            scene->elements = OWF_List_Remove(scene->elements, node);

            OWF_Node_Destroy(node);

            WFC_Scene_DestroyElement(etemp);

            break;

        }

    }

    DPRINT(("  Order of the elements (bottom to top): "));

    for (node = scene->elements; NULL != node; node = node->next)

    {

        DPRINT(("    %d", ELEMENT(node->data)->handle));

    }

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL WFC_ELEMENT*

WFC_Scene_FindElement(WFC_SCENE* scene,

                      WFCElement element)

{

    OWF_NODE*               node = NULL;

    WFC_ELEMENT*            result = NULL;

    for (node = scene->elements; NULL != node; node = node->next)

    {

        WFC_ELEMENT*        etemp;

        etemp = ELEMENT(node->data);

        if (etemp->handle == element)

        {

            result = etemp;

            break;

        }

    }

    return result;

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL void

WFC_Scene_LockSourcesAndMasks(WFC_SCENE* scene)

{

    OWF_NODE*               node = NULL;

    DPRINT(("WFC_Scene_LockSourcesAndMasks(scene = %p)", scene));

    for (node = scene->elements; NULL != node; node = node->next)

    {

        WFC_ELEMENT*        element;

        element = ELEMENT(node->data);

        DPRINT(("  Element source handle = %d", element->sourceHandle));

        DPRINT(("  Element source = %p", element->source));

        DPRINT(("  Element dest size = %.2fx%.2f",

                element->dstRect[2], element->dstRect[3]));

        DPRINT(("  Element src size = %.2fx%.2f",

                element->srcRect[2], element->srcRect[3]));

        if (WFC_Element_AffectsCompositionResults(element))

         {

            DPRINT(("  Locking element %p", element));

            WFC_ImageProvider_LockForReading(element->source);

            /* set the flag so that composition knows to include the

               element into composition */

            element->skipCompose =

                (element->source->lockedStream.image->data == NULL) ?

                        WFC_TRUE : WFC_FALSE;

        }

        else

        {

            element->skipCompose = WFC_TRUE;

        }

        if (!element->skipCompose &&

            WFC_INVALID_HANDLE != element->maskHandle &&

            NULL != element->mask)

        {

            WFC_ImageProvider_LockForReading(element->mask);

            element->maskComposed = WFC_TRUE;

            OWF_ASSERT(element->mask);

            OWF_ASSERT(element->mask->streamHandle);

            OWF_ASSERT(element->mask->lockedStream.image);

             if(element->mask->lockedStream.image->data == NULL)

             {

                    WFC_ImageProvider_Unlock(element->source);

                    element->skipCompose = WFC_TRUE;

             }

        }

        else

        {

            element->maskComposed = WFC_FALSE;

        }

    }

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL void

WFC_Scene_UnlockSourcesAndMasks(WFC_SCENE* scene)

{

    OWF_NODE*               node = NULL;

    DPRINT(("WFC_Scene_UnlockSourcesAndMasks(scene = %p)", scene));

    for (node = scene->elements; NULL != node; node = node->next)

    {

        WFC_ELEMENT*        element;

        element = ELEMENT(node->data);

        DPRINT(("  Unlocking element %p", element));

        if (element->source && !element->skipCompose)

        {

            WFC_ImageProvider_Unlock(element->source);

        }

        if (element->mask && !element->skipCompose)

        {

            WFC_ImageProvider_Unlock(element->mask);

        }

    }

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL WFCElement

WFC_Scene_GetNeighbourElement(WFC_SCENE* scene, WFCElement element, WFCint n)

{

    WFCElement              result = WFC_INVALID_HANDLE;

    OWF_NODE*               node = NULL;

    OWF_NODE*               prev = NULL;

    for (node = scene->elements; NULL != node; node = node->next)

    {

        WFC_ELEMENT*        etemp;

        etemp = ELEMENT(node->data);

        if (etemp->handle == element)

        {

            if (n < 0)

            {

                result = prev ? ELEMENT(prev->data)->handle

                              : WFC_INVALID_HANDLE;

            }

            else

            {

                result = node->next ? ELEMENT(node->next->data)->handle

                                    : WFC_INVALID_HANDLE;

            }

            break;

        }

        prev = node;

    }

    return result;

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL WFCboolean

WFC_Scene_HasConflicts(WFC_SCENE* scene)

{

    WFCboolean              result = WFC_FALSE;

    OWF_NODE*               node = NULL;

    for (node = scene->elements; NULL != node; node = node->next)

    {

        WFC_ELEMENT*        element;

        element = ELEMENT(node->data);

        result = result || WFC_Element_HasConflicts(element) ? WFC_TRUE : WFC_FALSE;

        if (result)

        {

            /* conflict found */

            break;

        }

    }

    return result;

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL void

WFC_Scene_Commit(WFC_SCENE* scene)

{

    OWF_NODE*               node;

    for (node = scene->elements; NULL != node; node = node->next)

    {

        WFC_ELEMENT*        element;

        element = ELEMENT(node->data);

        WFC_Element_Commit(element);

    }

}

/*----------------------------------------------------------------------------*/

OWF_API_CALL WFCElement

WFC_Scene_LowestElement(WFC_SCENE* scene)

{

    WFCElement              element = WFC_INVALID_HANDLE;

    if (scene && scene->elements)

    {

        element = ELEMENT(scene->elements->data)->handle;

    }

    return element;

}