// Copyright (C) Stichting Deltares 2017. All rights reserved.
//
// This file is part of Ringtoets.
//
// Ringtoets 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.
// 
// This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
//
// All names, logos, and references to "Deltares" are registered trademarks of
// Stichting Deltares and remain full property of Stichting Deltares at all times.
// All rights reserved.

using System;
using System.Collections.Generic;
using System.Linq;
using Core.Common.Base.Data;
using Ringtoets.Common.Data.Calculation;
using Ringtoets.Common.Data.Hydraulics;
using Ringtoets.Common.Data.Probabilistics;
using Ringtoets.Common.IO.Configurations.Helpers;
using Ringtoets.Common.IO.Configurations.Import;
using Ringtoets.MacroStabilityInwards.Data;
using Ringtoets.MacroStabilityInwards.IO.Properties;
using Ringtoets.MacroStabilityInwards.IO.Readers;
using Ringtoets.MacroStabilityInwards.IO.Schema;
using Ringtoets.MacroStabilityInwards.Primitives;

namespace Ringtoets.MacroStabilityInwards.IO.Importers
{
    /// <summary>
    /// Imports a macro stability inwards calculation configuration from an XML file and stores it on a
    /// <see cref="CalculationGroup"/>.
    /// </summary>
    public class MacroStabilityInwardsCalculationConfigurationImporter : CalculationConfigurationImporter<MacroStabilityInwardsCalculationConfigurationReader, ReadMacroStabilityInwardsCalculation>
    {
        private readonly IEnumerable<HydraulicBoundaryLocation> availableHydraulicBoundaryLocations;
        private readonly MacroStabilityInwardsFailureMechanism failureMechanism;

        /// <summary>
        /// Creates a new instance of <see cref="MacroStabilityInwardsCalculationConfigurationImporter"/>.
        /// </summary>
        /// <param name="xmlFilePath">The path to the XML file to import from.</param>
        /// <param name="importTarget">The calculation group to update.</param>
        /// <param name="availableHydraulicBoundaryLocations">The hydraulic boundary locations
        /// used to check if the imported objects contain the right location.</param>
        /// <param name="failureMechanism">The failure mechanism used to check
        /// if the imported objects contain the right data.</param>
        /// <exception cref="ArgumentNullException">Thrown when any parameter is
        /// <c>null</c>.</exception>
        public MacroStabilityInwardsCalculationConfigurationImporter(string xmlFilePath,
                                                      CalculationGroup importTarget,
                                                      IEnumerable<HydraulicBoundaryLocation> availableHydraulicBoundaryLocations,
                                                      MacroStabilityInwardsFailureMechanism failureMechanism)
            : base(xmlFilePath, importTarget)
        {
            if (availableHydraulicBoundaryLocations == null)
            {
                throw new ArgumentNullException(nameof(availableHydraulicBoundaryLocations));
            }
            if (failureMechanism == null)
            {
                throw new ArgumentNullException(nameof(failureMechanism));
            }
            this.availableHydraulicBoundaryLocations = availableHydraulicBoundaryLocations;
            this.failureMechanism = failureMechanism;
        }

        protected override MacroStabilityInwardsCalculationConfigurationReader CreateCalculationConfigurationReader(string xmlFilePath)
        {
            return new MacroStabilityInwardsCalculationConfigurationReader(xmlFilePath);
        }

        protected override ICalculation ParseReadCalculation(ReadMacroStabilityInwardsCalculation readCalculation)
        {
            var calculation = new MacroStabilityInwardsCalculationScenario(new GeneralMacroStabilityInwardsInput())
            {
                Name = readCalculation.Name
            };

            if (TryReadHydraulicBoundaryData(readCalculation, calculation)
                && TryReadSurfaceLine(readCalculation, calculation)
                && TryReadEntryExitPoint(readCalculation, calculation)
                && TryReadStochasticSoilModel(readCalculation, calculation)
                && TryReadStochasticSoilProfile(readCalculation, calculation)
                && TryReadStochasts(readCalculation, calculation))
            {
                return calculation;
            }
            return null;
        }

        /// <summary>
        /// Reads the hydraulic boundary location or the assessment level that is manually set.
        /// </summary>
        /// <param name="readCalculation">The calculation read from the imported file.</param>
        /// <param name="macroStabilityInwardsCalculation">The calculation to configure.</param>
        /// <returns><c>false</c> when the <paramref name="readCalculation"/> has a <see cref="HydraulicBoundaryLocation"/>
        /// set which is not available in <see cref="availableHydraulicBoundaryLocations"/>, <c>true</c> otherwise.</returns>
        private bool TryReadHydraulicBoundaryData(ReadMacroStabilityInwardsCalculation readCalculation, MacroStabilityInwardsCalculationScenario macroStabilityInwardsCalculation)
        {
            HydraulicBoundaryLocation location;

            bool locationRead = TryReadHydraulicBoundaryLocation(readCalculation.HydraulicBoundaryLocation, readCalculation.Name, availableHydraulicBoundaryLocations, out location);

            if (!locationRead)
            {
                return false;
            }

            if (location != null)
            {
                macroStabilityInwardsCalculation.InputParameters.HydraulicBoundaryLocation = location;
            }
            else if (readCalculation.AssessmentLevel.HasValue)
            {
                macroStabilityInwardsCalculation.InputParameters.UseAssessmentLevelManualInput = true;
                macroStabilityInwardsCalculation.InputParameters.AssessmentLevel = (RoundedDouble) readCalculation.AssessmentLevel.Value;
            }

            return true;
        }

        /// <summary>
        /// Reads the surface line.
        /// </summary>
        /// <param name="readCalculation">The calculation read from the imported file.</param>
        /// <param name="macroStabilityInwardsCalculation">The calculation to configure.</param>
        /// <returns><c>false</c> when the <paramref name="readCalculation"/> has a <see cref="RingtoetsMacroStabilityInwardsSurfaceLine"/>
        /// set which is not available in <see cref="MacroStabilityInwardsFailureMechanism.SurfaceLines"/>, <c>true</c> otherwise.</returns>
        private bool TryReadSurfaceLine(ReadMacroStabilityInwardsCalculation readCalculation, MacroStabilityInwardsCalculationScenario macroStabilityInwardsCalculation)
        {
            if (readCalculation.SurfaceLine != null)
            {
                RingtoetsMacroStabilityInwardsSurfaceLine surfaceLine = failureMechanism.SurfaceLines
                                                                         .FirstOrDefault(sl => sl.Name == readCalculation.SurfaceLine);

                if (surfaceLine == null)
                {
                    Log.LogCalculationConversionError(string.Format(
                                                          Resources.PipingCalculationConfigurationImporter_ReadSurfaceLine_SurfaceLine_0_does_not_exist,
                                                          readCalculation.SurfaceLine),
                                                      macroStabilityInwardsCalculation.Name);
                    return false;
                }

                macroStabilityInwardsCalculation.InputParameters.SurfaceLine = surfaceLine;
            }
            return true;
        }

        /// <summary>
        /// Reads the entry point and exit point.
        /// </summary>
        /// <param name="readCalculation">The calculation read from the imported file.</param>
        /// <param name="macroStabilityInwardsCalculation">The calculation to configure.</param>
        /// <returns><c>false</c> when entry or exit point is set without <see cref="RingtoetsMacroStabilityInwardsSurfaceLine"/>,
        /// or when entry or exit point is invalid, <c>true</c> otherwise.</returns>
        private bool TryReadEntryExitPoint(ReadMacroStabilityInwardsCalculation readCalculation, MacroStabilityInwardsCalculationScenario macroStabilityInwardsCalculation)
        {
            bool hasEntryPoint = readCalculation.EntryPointL.HasValue;
            bool hasExitPoint = readCalculation.ExitPointL.HasValue;

            if (readCalculation.SurfaceLine == null && (hasEntryPoint || hasExitPoint))
            {
                Log.LogCalculationConversionError(Resources.PipingCalculationConfigurationImporter_ReadSurfaceLine_EntryPointL_or_ExitPointL_defined_without_SurfaceLine,
                                                  macroStabilityInwardsCalculation.Name);
                return false;
            }

            if (hasEntryPoint)
            {
                double entryPoint = readCalculation.EntryPointL.Value;

                try
                {
                    macroStabilityInwardsCalculation.InputParameters.EntryPointL = (RoundedDouble) entryPoint;
                }
                catch (ArgumentOutOfRangeException e)
                {
                    Log.LogOutOfRangeException(string.Format(Resources.PipingCalculationConfigurationImporter_ReadEntryExitPoint_Entry_point_invalid, entryPoint),
                                               macroStabilityInwardsCalculation.Name,
                                               e);
                    return false;
                }
            }

            if (hasExitPoint)
            {
                double exitPoint = readCalculation.ExitPointL.Value;

                try
                {
                    macroStabilityInwardsCalculation.InputParameters.ExitPointL = (RoundedDouble) exitPoint;
                }
                catch (ArgumentOutOfRangeException e)
                {
                    Log.LogOutOfRangeException(string.Format(Resources.PipingCalculationConfigurationImporter_ReadEntryExitPoint_Exit_point_invalid, exitPoint),
                                               macroStabilityInwardsCalculation.Name,
                                               e);
                    return false;
                }
            }

            return true;
        }

        /// <summary>
        /// Reads the stochastic soil model.
        /// </summary>
        /// <param name="readCalculation">The calculation read from the imported file.</param>
        /// <param name="macroStabilityInwardsCalculation">The calculation to configure.</param>
        /// <returns><c>false</c> when
        /// <list type="bullet">
        /// <item>the <paramref name="readCalculation"/> has a <see cref="StochasticSoilModel"/> set
        /// which is not available in the failure mechanism.</item>
        /// <item>The <see cref="StochasticSoilModel"/> does not intersect with the <see cref="RingtoetsMacroStabilityInwardsSurfaceLine"/>
        /// when this is set.</item>
        /// </list>
        /// <c>true</c> otherwise.</returns>
        private bool TryReadStochasticSoilModel(ReadMacroStabilityInwardsCalculation readCalculation, MacroStabilityInwardsCalculationScenario macroStabilityInwardsCalculation)
        {
            if (readCalculation.StochasticSoilModel != null)
            {
                StochasticSoilModel soilModel = failureMechanism.StochasticSoilModels
                                                                .FirstOrDefault(ssm => ssm.Name == readCalculation.StochasticSoilModel);

                if (soilModel == null)
                {
                    Log.LogCalculationConversionError(string.Format(
                                                          Resources.PipingCalculationConfigurationImporter_ReadStochasticSoilModel_Stochastische_soil_model_0_does_not_exist,
                                                          readCalculation.StochasticSoilModel),
                                                      macroStabilityInwardsCalculation.Name);
                    return false;
                }

                if (macroStabilityInwardsCalculation.InputParameters.SurfaceLine != null
                    && !soilModel.IntersectsWithSurfaceLineGeometry(macroStabilityInwardsCalculation.InputParameters.SurfaceLine))
                {
                    Log.LogCalculationConversionError(string.Format(
                                                          Resources.PipingCalculationConfigurationImporter_ReadStochasticSoilModel_Stochastische_soil_model_0_does_not_intersect_with_surfaceLine_1,
                                                          readCalculation.StochasticSoilModel,
                                                          readCalculation.SurfaceLine),
                                                      macroStabilityInwardsCalculation.Name);
                    return false;
                }

                macroStabilityInwardsCalculation.InputParameters.StochasticSoilModel = soilModel;
            }
            return true;
        }

        /// <summary>
        /// Reads the stochastic soil profile.
        /// </summary>
        /// <param name="readCalculation">The calculation read from the imported file.</param>
        /// <param name="macroStabilityInwardsCalculation">The calculation to configure.</param>
        /// <returns><c>false</c> when the <paramref name="readCalculation"/> has:
        /// <list type="bullet">
        /// <item>a <see cref="StochasticSoilProfile"/> set but no <see cref="StochasticSoilModel"/> is specified;</item>
        /// <item>a <see cref="StochasticSoilProfile"/> set which is not available in the <see cref="StochasticSoilModel"/>.</item>
        /// </list>
        /// <c>true</c> otherwise.</returns>
        private bool TryReadStochasticSoilProfile(ReadMacroStabilityInwardsCalculation readCalculation, MacroStabilityInwardsCalculationScenario macroStabilityInwardsCalculation)
        {
            if (readCalculation.StochasticSoilProfile != null)
            {
                if (macroStabilityInwardsCalculation.InputParameters.StochasticSoilModel == null)
                {
                    Log.LogCalculationConversionError(string.Format(
                                                          Resources.PipingCalculationConfigurationImporter_ReadStochasticSoilProfile_No_soil_model_provided_for_soil_profile_with_name_0,
                                                          readCalculation.StochasticSoilProfile),
                                                      macroStabilityInwardsCalculation.Name);
                    return false;
                }

                StochasticSoilProfile soilProfile = macroStabilityInwardsCalculation.InputParameters.StochasticSoilModel.StochasticSoilProfiles
                                                                     .FirstOrDefault(ssp => ssp.SoilProfile.Name == readCalculation.StochasticSoilProfile);

                if (soilProfile == null)
                {
                    Log.LogCalculationConversionError(string.Format(
                                                          Resources.PipingCalculationConfigurationImporter_ReadStochasticSoilProfile_Stochastic_soil_profile_0_does_not_exist_within_soil_model_1,
                                                          readCalculation.StochasticSoilProfile, readCalculation.StochasticSoilModel),
                                                      macroStabilityInwardsCalculation.Name);
                    return false;
                }

                macroStabilityInwardsCalculation.InputParameters.StochasticSoilProfile = soilProfile;
            }
            return true;
        }

        /// <summary>
        /// Reads the stochasts.
        /// </summary>
        /// <param name="readCalculation">The calculation read from the imported file.</param>
        /// <param name="macroStabilityInwardsCalculation">The calculation to configure.</param>
        /// <returns><c>false</c> when a stochast value (mean or standard deviation) is invalid, <c>true</c> otherwise.</returns>
        private bool TryReadStochasts(ReadMacroStabilityInwardsCalculation readCalculation, MacroStabilityInwardsCalculationScenario macroStabilityInwardsCalculation)
        {
            return TryReadPhreaticLevelExit(readCalculation, macroStabilityInwardsCalculation)
                   && TryReadDampingFactorExit(readCalculation, macroStabilityInwardsCalculation);
        }

        private bool TryReadDampingFactorExit(ReadMacroStabilityInwardsCalculation readCalculation, MacroStabilityInwardsCalculationScenario macroStabilityInwardsCalculation)
        {
            var distribution = (LogNormalDistribution) macroStabilityInwardsCalculation.InputParameters.DampingFactorExit.Clone();

            if (!distribution.TrySetDistributionProperties(readCalculation.DampingFactorExitMean,
                                                           readCalculation.DampingFactorExitStandardDeviation,
                                                           MacroStabilityInwardsCalculationConfigurationSchemaIdentifiers.DampingFactorExitStochastName,
                                                           macroStabilityInwardsCalculation.Name))
            {
                return false;
            }

            macroStabilityInwardsCalculation.InputParameters.DampingFactorExit = distribution;
            return true;
        }

        private bool TryReadPhreaticLevelExit(ReadMacroStabilityInwardsCalculation readCalculation, MacroStabilityInwardsCalculationScenario macroStabilityInwardsCalculation)
        {
            var distribution = (NormalDistribution) macroStabilityInwardsCalculation.InputParameters.PhreaticLevelExit.Clone();

            if (!distribution.TrySetDistributionProperties(readCalculation.PhreaticLevelExitMean,
                                                           readCalculation.PhreaticLevelExitStandardDeviation,
                                                           MacroStabilityInwardsCalculationConfigurationSchemaIdentifiers.PhreaticLevelExitStochastName,
                                                           macroStabilityInwardsCalculation.Name))
            {
                return false;
            }

            macroStabilityInwardsCalculation.InputParameters.PhreaticLevelExit = distribution;
            return true;
        }
    }
}