// Copyright (c) The Perspex Project. All rights reserved.
// Licensed under the MIT license. See licence.md file in the project root for full license information.

using System;
using System.Collections.Generic;
using System.Reactive;
using System.Reactive.Disposables;
using System.Reactive.Linq;
using System.Reactive.Subjects;
using Perspex.Data;
using Perspex.Markup.Data.Plugins;

namespace Perspex.Markup.Data
{
    /// <summary>
    /// Observes and sets the value of an expression on an object.
    /// </summary>
    public class ExpressionObserver : ObservableBase<object>, IDescription
    {
        /// <summary>
        /// An ordered collection of property accessor plugins that can be used to customize
        /// the reading and subscription of property values on a type.
        /// </summary>
        public static readonly IList<IPropertyAccessorPlugin> PropertyAccessors =
            new List<IPropertyAccessorPlugin>
            {
                new PerspexPropertyAccessorPlugin(),
                new InpcPropertyAccessorPlugin(),
            };

        /// <summary>
        /// An ordered collection of validation checker plugins that can be used to customize
        /// the validation of view model and model data.
        /// </summary>
        public static readonly IList<IValidationCheckerPlugin> ValidationCheckers =
            new List<IValidationCheckerPlugin>
            {
                new IndeiValidationCheckerPlugin(),
                new ExceptionValidationCheckerPlugin()
            };

        private readonly WeakReference _root;
        private readonly Func<object> _rootGetter;
        private readonly IObservable<object> _rootObservable;
        private readonly IObservable<Unit> _update;
        private IDisposable _rootObserverSubscription;
        private IDisposable _updateSubscription;
        private int _count;
        private readonly ExpressionNode _node;
        private ValidationMethods _methods;

        /// <summary>
        /// Initializes a new instance of the <see cref="ExpressionObserver"/> class.
        /// </summary>
        /// <param name="root">The root object.</param>
        /// <param name="expression">The expression.</param>
        /// <param name="methods">The validation methods to enable on this observer.</param>
        public ExpressionObserver(object root, string expression, ValidationMethods methods = ValidationMethods.None)
        {
            Contract.Requires<ArgumentNullException>(expression != null);

            _root = new WeakReference(root);
            _methods = methods;
            if (!string.IsNullOrWhiteSpace(expression))
            {
                _node = ExpressionNodeBuilder.Build(expression);
            }

            Expression = expression;
        }

        /// <summary>
        /// Initializes a new instance of the <see cref="ExpressionObserver"/> class.
        /// </summary>
        /// <param name="rootObservable">An observable which provides the root object.</param>
        /// <param name="expression">The expression.</param>
        /// <param name="methods">The validation methods to enable on this observer.</param>
        public ExpressionObserver(IObservable<object> rootObservable, string expression, ValidationMethods methods = ValidationMethods.None)
        {
            Contract.Requires<ArgumentNullException>(rootObservable != null);
            Contract.Requires<ArgumentNullException>(expression != null);

            _rootObservable = rootObservable;
            _methods = methods;
            if (!string.IsNullOrWhiteSpace(expression))
            {
                _node = ExpressionNodeBuilder.Build(expression);
            }

            Expression = expression;
        }

        /// <summary>
        /// Initializes a new instance of the <see cref="ExpressionObserver"/> class.
        /// </summary>
        /// <param name="rootGetter">A function which gets the root object.</param>
        /// <param name="expression">The expression.</param>
        /// <param name="update">An observable which triggers a re-read of the getter.</param>
        /// <param name="methods">The validation methods to enable on this observer.</param>
        public ExpressionObserver(
            Func<object> rootGetter, 
            string expression,
            IObservable<Unit> update,
            ValidationMethods methods = ValidationMethods.None)
        {
            Contract.Requires<ArgumentNullException>(rootGetter != null);
            Contract.Requires<ArgumentNullException>(expression != null);
            Contract.Requires<ArgumentNullException>(update != null);

            _rootGetter = rootGetter;
            _update = update;
            _methods = methods;
            if (!string.IsNullOrWhiteSpace(expression))
            {
                _node = ExpressionNodeBuilder.Build(expression);
            }

            Expression = expression;
        }

        /// <summary>
        /// Attempts to set the value of a property expression.
        /// </summary>
        /// <param name="value">The value to set.</param>
        /// <param name="priority">The binding priority to use.</param>
        /// <returns>
        /// True if the value could be set; false if the expression does not evaluate to a 
        /// property.
        /// </returns>
        public bool SetValue(object value, BindingPriority priority = BindingPriority.LocalValue)
        {
            IncrementCount();

            if (_rootGetter != null && _node != null)
            {
                _node.Target = new WeakReference(_rootGetter());
            }

            try
            {
                return _node?.SetValue(value, priority) ?? false;
            }
            finally
            {
                DecrementCount();
            }
        }

        /// <summary>
        /// Gets the expression being observed.
        /// </summary>
        public string Expression { get; }

        /// <summary>
        /// Gets the type of the expression result or null if the expression could not be 
        /// evaluated.
        /// </summary>
        public Type ResultType
        {
            get
            {
                IncrementCount();

                try
                {
                    if (_node != null)
                    {
                        return (Leaf as PropertyAccessorNode)?.PropertyType;
                    }
                    else if(_rootGetter != null)
                    {
                        return _rootGetter()?.GetType();
                    }
                    else
                    {
                        return _root.Target?.GetType();
                    }
                }
                finally
                {
                    DecrementCount();
                }
            }
        }

        /// <inheritdoc/>
        string IDescription.Description => Expression;

        /// <summary>
        /// Gets the root expression node. Used for testing.
        /// </summary>
        internal ExpressionNode Node => _node;

        /// <summary>
        /// Gets the leaf node.
        /// </summary>
        private ExpressionNode Leaf
        {
            get
            {
                var node = _node;
                while (node.Next != null) node = node.Next;
                return node;
            }
        }

        /// <inheritdoc/>
        protected override IDisposable SubscribeCore(IObserver<object> observer)
        {
            IncrementCount();

            if (_node != null)
            {
                IObservable<object> source = _node;

                if (_rootObservable != null)
                {
                    source = source.TakeUntil(_rootObservable.LastOrDefaultAsync());
                }
                else if (_update != null)
                {
                    source = source.TakeUntil(_update.LastOrDefaultAsync());
                }
                var validationFiltered = source.Where(o => (o as ValidationStatus)?.Match(_methods) ?? true);
                var subscription = validationFiltered.Subscribe(observer);

                return Disposable.Create(() =>
                {
                    DecrementCount();
                    subscription.Dispose();
                });
            }
            else if (_rootObservable != null)
            {
                return _rootObservable.Subscribe(observer);
            }
            else
            {
                if (_update == null)
                {
                    return Observable.Never<object>()
                        .StartWith(_root.Target)
                        .Subscribe(observer);
                }
                else
                {
                    return _update
                        .Select(_ => _rootGetter())
                        .StartWith(_rootGetter())
                        .Subscribe(observer);
                }
            }
        }

        private void IncrementCount()
        {
            if (_count++ == 0 && _node != null)
            {
                if (_rootGetter != null)
                {
                    _node.Target = new WeakReference(_rootGetter());

                    if (_update != null)
                    {
                        _updateSubscription = _update.Subscribe(x => 
                            _node.Target = new WeakReference(_rootGetter()));
                    }
                }
                else if (_rootObservable != null)
                {
                    _rootObserverSubscription = _rootObservable.Subscribe(x => 
                        _node.Target = new WeakReference(x));
                }
                else
                {
                    _node.Target = _root;
                }
            }
        }

        private void DecrementCount()
        {
            if (--_count == 0 && _node != null)
            {
                if (_rootObserverSubscription != null)
                {
                    _rootObserverSubscription.Dispose();
                    _rootObserverSubscription = null;
                }

                if (_updateSubscription != null)
                {
                    _updateSubscription.Dispose();
                    _updateSubscription = null;
                }

                _node.Target = null;
            }
        }
    }
}