//-*****************************************************************************
//
// Copyright (c) 2009-2013,
//  Sony Pictures Imageworks Inc. and
//  Industrial Light & Magic, a division of Lucasfilm Entertainment Company Ltd.
//
// All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are
// met:
// *       Redistributions of source code must retain the above copyright
// notice, this list of conditions and the following disclaimer.
// *       Redistributions in binary form must reproduce the above
// copyright notice, this list of conditions and the following disclaimer
// in the documentation and/or other materials provided with the
// distribution.
// *       Neither the name of Sony Pictures Imageworks, nor
// Industrial Light & Magic, nor the names of their contributors may be used
// to endorse or promote products derived from this software without specific
// prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
// A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
// OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
// LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
//
//-*****************************************************************************
#include <iostream>
#include <set>
#include <ri.h>

#include <Alembic/AbcGeom/All.h>
#include <Alembic/AbcCoreHDF5/All.h>
#include <Alembic/AbcCoreOgawa/All.h>
#include <Alembic/AbcCoreFactory/All.h>

#include "ProcArgs.h"
#include "PathUtil.h"
#include "WriteGeo.h"

#ifdef PRMAN_USE_ABCMATERIAL
#include "WriteMaterial.h"
#endif

#include <memory>

using namespace Alembic::AbcGeom;

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

class AttributeBlockHelper
{
public:
    AttributeBlockHelper( const ObjectHeader &ohead )
    {
        RiAttributeBegin();
        WriteIdentifier( ohead );
    }

    ~AttributeBlockHelper()
    {
        RiAttributeEnd();
    }
};




typedef std::auto_ptr<AttributeBlockHelper> AttributeBlockHelperAutoPtr;

//-*****************************************************************************
void WalkObject( IObject parent, const ObjectHeader &ohead, ProcArgs &args,
                 PathList::const_iterator I, PathList::const_iterator E,
                 bool visible=true)
{
    // Only add an enclosing AttributeBegin/name/AttributeEnd if we're
    // not excluding xforms. If we're not adding it here, we're adding for
    // the individual primitives.
    AttributeBlockHelperAutoPtr blockHelper;
    if ( !args.excludeXform )
    {
        blockHelper.reset( new AttributeBlockHelper( ohead ) );
    }

    //set this if we should continue traversing
    IObject nextParentObject;

    //construct the baseObject first so that we can perform visibility
    //testing on it.
    IObject baseObject( parent, ohead.getName() );
    switch( GetVisibility(baseObject,
            ISampleSelector(args.frame / args.fps ) ) )
    {
    case kVisibilityVisible:
        visible = true;
        break;
    case kVisibilityHidden:
        visible = false;
        break;
    default:
        break;
    }


    if ( IXform::matches( ohead ) )
    {
        if ( args.excludeXform )
        {
            nextParentObject = IObject( parent, ohead.getName() );
        }
        else
        {
            IXform xform( baseObject, kWrapExisting );
            ProcessXform( xform, args );

            nextParentObject = xform;

            ApplyResources( nextParentObject, args );

#ifdef PRMAN_USE_ABCMATERIAL
            ApplyObjectMaterial(nextParentObject, args );
#endif

        }
    }
    else if ( ISubD::matches( ohead ) )
    {
        if ( !blockHelper.get() )
        {
            blockHelper.reset( new AttributeBlockHelper( ohead ) );
        }


        std::string faceSetName;

        ISubD subd( baseObject, kWrapExisting );

        //if we haven't reached the end of a specified -objectpath,
        //check to see if the next token is a faceset name.
        //If it is, send the name to ProcessSubD for addition of
        //"hole" tags for the non-matching faces
        if ( I != E )
        {
            if ( subd.getSchema().hasFaceSet( *I ) )
            {
                faceSetName = *I;
            }
        }

        ApplyResources( subd, args );

#ifdef PRMAN_USE_ABCMATERIAL
            ApplyObjectMaterial(subd, args );
#endif

        if ( visible )
        {
            ProcessSubD( subd, args, faceSetName );
        }

        //if we found a matching faceset, don't traverse below
        if ( faceSetName.empty() )
        {
            nextParentObject = subd;
        }
    }
    else if ( IPolyMesh::matches( ohead ) )
    {
        if ( !blockHelper.get() )
        {
            blockHelper.reset( new AttributeBlockHelper( ohead ) );
        }

        IPolyMesh polymesh( baseObject, kWrapExisting );
        ApplyResources( polymesh, args );

#ifdef PRMAN_USE_ABCMATERIAL
            ApplyObjectMaterial(polymesh, args );
#endif
        if ( visible )
        {
            ProcessPolyMesh( polymesh, args );
        }

        nextParentObject = polymesh;
    }
    else if ( INuPatch::matches( ohead ) )
    {
        if ( !blockHelper.get() )
        {
            blockHelper.reset( new AttributeBlockHelper( ohead ) );
        }

        INuPatch patch( baseObject, kWrapExisting );
        ApplyResources( patch, args );
#ifdef PRMAN_USE_ABCMATERIAL
            ApplyObjectMaterial(patch, args );
#endif
        if ( visible )
        {
            ProcessNuPatch( patch, args );
        }

        nextParentObject = patch;
    }
    else if ( IPoints::matches( ohead ) )
    {
        if ( !blockHelper.get() )
        {
            blockHelper.reset( new AttributeBlockHelper( ohead ) );
        }

        IPoints points( baseObject, kWrapExisting );
#ifdef PRMAN_USE_ABCMATERIAL
            ApplyObjectMaterial(points, args );
#endif
        ApplyResources( points, args );

        if ( visible )
        {
            ProcessPoints( points, args );
        }

        nextParentObject = points;
    }
    else if ( ICurves::matches( ohead ) )
    {
        if ( !blockHelper.get() )
        {
            blockHelper.reset( new AttributeBlockHelper( ohead ) );
        }

        ICurves curves( baseObject, kWrapExisting );
        ApplyResources( curves, args );

#ifdef PRMAN_USE_ABCMATERIAL
            ApplyObjectMaterial( curves, args );
#endif
        if ( visible )
        {
            ProcessCurves( curves, args );
        }

        nextParentObject = curves;
    }
    else if ( IFaceSet::matches( ohead ) )
    {
        //don't complain about discovering a faceset upon traversal
    }
    else
    {
        //Don't complain but don't walk beneath other types
    }

    if ( nextParentObject.valid() )
    {
        if ( I == E )
        {
            for ( size_t i = 0; i < nextParentObject.getNumChildren() ; ++i )
            {
                WalkObject( nextParentObject,
                            nextParentObject.getChildHeader( i ),
                            args, I, E, visible);
            }
        }
        else
        {
            const ObjectHeader *nextChildHeader =
                nextParentObject.getChildHeader( *I );

            if ( nextChildHeader != NULL )
            {
                WalkObject( nextParentObject, *nextChildHeader, args, I+1, E,
                        visible);
            }
        }
    }

    // RiAttributeEnd will be called by blockHelper falling out of scope
    // if set.
}


//-*****************************************************************************
extern "C" ALEMBIC_EXPORT RtPointer
ConvertParameters( RtString paramstr )
{
    try
    {
        return (RtPointer) new ProcArgs(paramstr);
    }
    catch (const std::exception & e)
    {
        std::cerr << "Exception thrown during ProcMain ConvertParameters: ";
        std::cerr << "\"" << paramstr << "\"";
        std::cerr << " " << e.what() << std::endl;
        return 0;
    }
}

//-*****************************************************************************
extern "C" ALEMBIC_EXPORT RtVoid
Free( RtPointer data )
{
    delete reinterpret_cast<ProcArgs*>( data );
}

//-*****************************************************************************
extern "C" ALEMBIC_EXPORT RtVoid
Subdivide( RtPointer data, RtFloat detail )
{
    ProcArgs *args = reinterpret_cast<ProcArgs*>( data );
    if ( !args )
    {
        return;
    }

    if ( args->filename.empty() )
    {
        return;
    }

    try
    {
        ::Alembic::AbcCoreFactory::IFactory factory;
        IArchive archive = factory.getArchive( args->filename );

        IObject root = archive.getTop();

        PathList path;
        TokenizePath( args->objectpath, path );

        if ( path.empty() ) //walk the entire scene
        {
            for ( size_t i = 0; i < root.getNumChildren(); ++i )
            {
                WalkObject( root, root.getChildHeader(i), *args,
                            path.end(), path.end() );
            }
        }
        else //walk to a location + its children
        {
            PathList::const_iterator I = path.begin();

            const ObjectHeader *nextChildHeader =
                    root.getChildHeader( *I );
            if ( nextChildHeader != NULL )
            {
                WalkObject( root, *nextChildHeader, *args, I+1, path.end() );
            }
        }
    }
    catch ( const std::exception &e )
    {
        std::cerr << "exception thrown during ProcMain Subdivide: "
                  << e.what() << std::endl;
    }
}