/*---------------------------------------------------------------------------*\
  =========                 |
  \\      /  F ield         | foam-extend: Open Source CFD
   \\    /   O peration     | Version:     3.2
    \\  /    A nd           | Web:         http://www.foam-extend.org
     \\/     M anipulation  | For copyright notice see file Copyright
-------------------------------------------------------------------------------
License
    This file is part of foam-extend.

    foam-extend is free software: you can redistribute it and/or modify it
    under the terms of the GNU General Public License as published by the
    Free Software Foundation, either version 3 of the License, or (at your
    option) any later version.

    foam-extend is distributed in the hope that it will be useful, but
    WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with foam-extend.  If not, see <http://www.gnu.org/licenses/>.

Description
    Writes the mesh in fpma format readable by AVL's CfdWM

\*---------------------------------------------------------------------------*/

#include "argList.H"
#include "objectRegistry.H"
#include "foamTime.H"
#include "polyMeshGenModifier.H"
#include "IFstream.H"

#include "Map.H"

using namespace Foam;

// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //

int main(int argc, char *argv[])
{

#   include "setRootCase.H"
#   include "createTime.H"

    fileName inFileName;

    Info << "Reading mesh from file " << endl;
    cin >> inFileName;

    IFstream file(inFileName);

    polyMeshGen pmg(runTime);
    polyMeshGenModifier meshModifier(pmg);

    label counter;

    //- read the number of vertices
    pointFieldPMG& points = meshModifier.pointsAccess();
    file >> counter;

    //- read points from file
    points.setSize(counter);
    forAll(points, pointI)
    {
    point p;
    file >> p.x();
    file >> p.y();
    file >> p.z();

    points[pointI] = p;
    }

    //- read the number of faces
    file >> counter;

    faceListPMG& faces = meshModifier.facesAccess();

    //- read faces from file
    faces.setSize(counter);
    forAll(faces, faceI)
    {
        file >> counter;

    face f;
    f.setSize(counter);

    forAll(f, pI)
      file >> f[pI];

    faces[faceI] = f.reverseFace();
    }

    //- read the number of cells
    file >> counter;

    //- read cells from file
    cellListPMG& cells = meshModifier.cellsAccess();
    cells.setSize(counter);

    forAll(cells, cellI)
    {
    file >> counter;

    cell& c = cells[cellI];

    c.setSize(counter);

    forAll(c, fI)
        file >> c[fI];
    }

    //- read selections
    file >> counter;

    wordList patchNames;
    Map<label> subsetToPatch;

    for(label setI=0;setI<counter;++setI)
    {
    word sName;
    file >> sName;

    label type;
    file >> type;

    label nEntries;
    file >> nEntries;

    switch( type )
    {
        case 3:
        {
        //- face selection
        const label id = pmg.addFaceSubset(sName);

        patchNames.setSize(patchNames.size()+1);
        patchNames[patchNames.size()-1] = sName;
        subsetToPatch.insert(id, patchNames.size()-1);

        Info << "Reading face selection " << sName << endl;

        for(label i=0;i<nEntries;++i)
        {
            label entryI;
            file >> entryI;
            pmg.addFaceToSubset(id, entryI);
        }
        } break;
        case 2:
        {
        //- cell selection
        const label id = pmg.addCellSubset(sName);

        for(label i=0;i<nEntries;++i)
        {
            label entryI;
            file >> entryI;
            pmg.addCellToSubset(id, entryI);
        }
        } break;
        case 1:
        {
        //- node selection
        const label id = pmg.addPointSubset(sName);

        for(label i=0;i<nEntries;++i)
        {
            label entryI;
            file >> entryI;
            pmg.addPointToSubset(id, entryI);
        }
        } break;
    };
    }

    //- create patches from face selections
    VRWGraph boundaryFaces;
    labelLongList boundaryOwner;
    labelLongList boundaryPatches;

    const labelList& owner = pmg.owner();
    DynList<label> faceSubsets;
    pmg.faceSubsetIndices(faceSubsets);

    forAll(faceSubsets, setI)
    {
    labelLongList setFaces;
    pmg.facesInSubset(faceSubsets[setI], setFaces);

    forAll(setFaces, i)
    {
        boundaryFaces.appendList(faces[setFaces[i]]);
        boundaryOwner.append(owner[setFaces[i]]);
        boundaryPatches.append(subsetToPatch[faceSubsets[setI]]);
    }

    pmg.removeFaceSubset(faceSubsets[setI]);
    }

    meshModifier.reorderBoundaryFaces();
    meshModifier.replaceBoundary
    (
    patchNames,
    boundaryFaces,
    boundaryOwner,
    boundaryPatches
    );

    pmg.write();

    Info << "End\n" << endl;
    return 0;
}

// ************************************************************************* //