///
/// Copyright (c) 2013-2018 Sensus Slovensko a.s.
///
using System;
using System.Collections.Generic;
using System.Globalization;
using System.Text;
using System.IO.Ports;
using log4net;
using Config.Entities;
using TBF.BenchControl.Generic;
using TBF.BenchControl.GenericDevices;
using TBF.Boxes;

namespace TBF.BenchControl.MettlerToledo.Standard
{
    /// <summary>
	/// Mettler Toledo ICS4_5 Weighting terminal connected via serial interface (RS232)
	/// </summary>
	/// <note>
	/// Implemented and tested on 15.10.2013 by Milan Hanajik
	/// </note>
	public class BalanceDev : TankDraining, IDevice, GenericDevices.IScale
    {
		/// <summary>
		/// Info: StartMassMeasurement() and "Balnce response = .., Mass = ..."
		/// Warn: Start measurement when busy is true
		/// </summary>
		private static readonly ILog log = LogManager.GetLogger(typeof(BalanceDev));
		public override string ToString() { return string.Format("MettlerToledo.Standard.Balance({0})", Cfg.ToString(1)); }

		protected readonly BalanceCfg balanceCfg;

		/// <summary>
        /// Enumeration of balances via static fields and methods
        /// </summary>
        static int nextBalanceIdx = 0;
        public static new void ResetStaticProperties()
        {
            nextBalanceIdx = 0;
        }
        public static int BalancesCount { get { return nextBalanceIdx; } }
        public static BalanceDev[] Balances;
        public static double[] Masses;
        ///
        protected int balanceNr;                /// 0-based balance number

		protected SerialPort serialPort;
        protected StringBuilder stringBuilder;

        public int ScaleNr { get { return balanceNr; } }
        public double Capacity { get { return balanceCfg.Capacity; } }
        public int EmptyTimeSec { get { return balanceCfg.DrainTimeSec; } }
		public IValve DrainValve2 { get { return null; } }

        /// Buoyancy
        public float BuoyancyTemp { get { return balanceCfg.BuoyancyTemp; } }
        public float BuoyancyPress { get { return balanceCfg.BuoyancyPress; } }
        public float BuoyancyHumi { get { return balanceCfg.BuoyancyHumi; } }
        public double WeightStandardDensity { get { return balanceCfg.WeightStandardDensity; } }


		/// <summary>The state of the mass measurement</summary>
		public MsrmntState MsrmntState { get { return msrmntState; } }
		protected MsrmntState msrmntState;

        /// <summary>Time since the last serial command in seconds</summary>
        public int MsrmntTime;

		/// <summary>The mass after StartMassMeasurement() when MsrmntState == MsrmntState.Valid</summary>
		public double Mass { get { return mass; } }
        protected double mass;

		/// <summary>The time stamp after StartMassMeasurement() when MsrmntState == MsrmntState.Valid</summary>
		public int MsrmntTimeStamp { get { return msrmntTimeStamp; } }
        protected int msrmntTimeStamp;

		public string Format { get { return balanceCfg.Format; } }

		public BalanceDev()
		{
		}

		/// <summary>
		/// Constructor
		/// </summary>
		/// <param name="cfg">Balance properties</param>
		/// <param components="cfg">A list of components loaded so far</param>
		public BalanceDev(Generic.IComponentCfg cfg)
			: base(cfg)
        {
			balanceCfg = cfg as BalanceCfg;

            balanceNr = nextBalanceIdx++;
            Masses = new double[nextBalanceIdx]; /// (re)initialize the static array of masses of all balances
			///
			if (Balances == null || Balances.Length < nextBalanceIdx)
			{
				BalanceDev[] balancesSoFar = Balances;
				Balances = new BalanceDev[nextBalanceIdx];
				if (balancesSoFar != null) for (int i = 0; i < balancesSoFar.Length; i++) Balances[i] = balancesSoFar[i];
				Balances[nextBalanceIdx - 1] = this;
			}

			log.Debug(this.ToString());
		}

        public void Initialize()
		{
			base.Initalize();

			msrmntState = MsrmntState.Failed;		/// Data not valid yet
            MsrmntTime = 0;

			if (balanceCfg.DebugLevel == DebugMode.Simulate) return;

			stringBuilder = new StringBuilder(40);
			string comPortName = "COM" + balanceCfg.ComPortNr.ToString();
			serialPort = new SerialPort(comPortName, balanceCfg.BaudRate, balanceCfg.Parity, balanceCfg.DataBits, balanceCfg.StopBits);
			serialPort.Handshake = balanceCfg.Handshake;
            serialPort.Open();

            log.FatalFormat("Successfully initialized device {0}", ToString());
        }

		public override bool IsEmpty()
		{
            return DrainValve.State ? (mass <= balanceCfg.Empty) : (mass <= balanceCfg.EmptyUp);
		}

        public override bool ContainsMoreThen(float thld)
        {
            return (mass >= thld);
        }

		public void ZeroWhenStable()
		{
			if (balanceCfg.DebugLevel == DebugMode.Simulate) return;

			if (msrmntState == MsrmntState.Busy)
			{
				log.WarnFormat("{0} - ZeroWhenStable() returns without starting zeroing the scale because measurementState == MeasurementState.Busy", Name);
				return;
			}

			log.InfoFormat("{0} - ZeroWhenStable()", Name);

			msrmntState = MsrmntState.Busy;
            MsrmntTime = 0;
			stringBuilder.Clear();
			serialPort.Write("Z\r\n");
		}

		public virtual void Taring()
		{
			if (balanceCfg.DebugLevel == DebugMode.Simulate) return;

			if (msrmntState == MsrmntState.Busy)
			{
				log.WarnFormat("{0} - Taring() returns without starting taring the scale because measurementState == MeasurementState.Busy", Name);
				return;
			}

			log.InfoFormat("{0} - Taring()", Name);

			msrmntState = MsrmntState.Busy;
            MsrmntTime = 0;
			stringBuilder.Clear();
			serialPort.Write("T\r\n");
		}

		/// <summary>
		/// Get a stable mass measurement
		/// </summary>
		public void GetStableMassMeasurement()
		{
			if (balanceCfg.DebugLevel == DebugMode.Simulate) return;

			if (msrmntState == MsrmntState.Busy)
			{
				log.WarnFormat("{0} - GetStableMassMeasurement() returns without starting a measurement because measurementState == MeasurementState.Busy", Name);
				return;
			}

			log.InfoFormat("{0} - GetStableMassMeasurement()", Name);

			msrmntState = MsrmntState.Busy;
            MsrmntTime = 0;
			stringBuilder.Clear();
			serialPort.Write("S\r\n");
		}

		/// <summary>
		/// Get an immediate mass measurement
		/// </summary>
		public void GetImmediateMassMeasurement()
		{
            if (balanceCfg.DebugLevel == DebugMode.Simulate || serialPort == null) return;

			if (msrmntState == MsrmntState.Busy)
			{
				log.WarnFormat("{0} - GetImmediateMassMeasurement() returns without starting a measurement because measurementState == MeasurementState.Busy", Name);
				return;
			}

			log.InfoFormat("{0} - GetImmediateMassMeasurement()", Name);

			msrmntState = MsrmntState.Busy;
            MsrmntTime = 0;
			stringBuilder.Clear();
			serialPort.Write("SI\r\n");
		}

		/// <summary>Units for SetUnits() argument</summary>
		public enum Units
		{
			g,
			kg,
			t,
			lb,
			oz
		}

		/// <summary>
		/// Get the serial number
		/// </summary>
		/// <remarks>After a successful SetUnits(kg) mass is still sent in g. MH 15.10.2013</remarks>
		public void SetUnits(Units unit)
		{
			if (balanceCfg.DebugLevel == DebugMode.Simulate) return;

			if (msrmntState == MsrmntState.Busy)
			{
				log.WarnFormat("{0} - SetUnits() returns without setting the units because measurementState == MeasurementState.Busy", Name);
				return;
			}

			log.InfoFormat("{0} - SetUnits({1})", Name, unit);

			msrmntState = MsrmntState.Busy;
			stringBuilder.Clear();
			switch (unit)
			{
				case Units.g:	serialPort.Write("U g\r\n"); break;
				case Units.kg:	serialPort.Write("U kg\r\n"); break;
				case Units.t:	serialPort.Write("U t\r\n"); break;
				case Units.lb:	serialPort.Write("U lb\r\n"); break;
				case Units.oz:	serialPort.Write("U oz\r\n"); break;
			}
		}

		/// <summary>
		/// Parse characters received from the serial port
		/// </summary>
        public virtual void RunDeviceBefore()
        {
			base.RunBefore();

			if (balanceCfg.DebugLevel == DebugMode.Simulate)
			{
                Masses[balanceNr] = TestBenchSim.GetSimMass(balanceNr);
				msrmntState = MsrmntState.Valid;
				msrmntTimeStamp = StateMachine.Time;
				return;
			}

			if (serialPort == null)
			{
				log.ErrorFormat("{0} - RunDevice() - serial port closed", Name);
				return;
			}

			log.DebugFormat("{0} - RunDeviceBefore()", Name);

            if (msrmntState != MsrmntState.Busy) return;	/// No measurement in progress

			string justReceived = serialPort.ReadExisting();
			if (justReceived != null && justReceived.Length > 0)
			{
				log.DebugFormat("{0} - RunDeviceBefore() received {1}", Name, justReceived);
				stringBuilder.Append(justReceived);
            }

            string currentBuffer = stringBuilder.ToString();
            int eolPos = currentBuffer.IndexOf("\r\n");
			if (eolPos >= 0)
			{
				msrmntTimeStamp = StateMachine.Time;

                /// Get part of the string before EOL
                string received = currentBuffer.Substring(0, eolPos);

                /// Put the rest back to the string builder
                stringBuilder.Clear();
                if (currentBuffer.Length > eolPos + 2)
                {
                    stringBuilder.Append(currentBuffer.Substring(eolPos + 2));
                }
					
				while (true)
				{
					string tmp = received.Replace("  ", " ");
					if (tmp.Length == received.Length) break;
					received = tmp;
				}

				string[] fields = received.Split(new char[] { ' ' });

                if (fields.Length == 1 && fields[0].Equals("ZA"))		/// Zero when stable
                {
                    mass = 0;
                    Masses[balanceNr] = mass;
                    //msrmntState = MsrmntState.Valid;
					log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\"", Name, received);
                    return;
                }
				else if (fields.Length < 2)
				{
					msrmntState = MsrmntState.Failed;
					log.WarnFormat("{0} - Balance response = \"{1}<cr><lf>\", Unexpected error !!!", Name, received);
					return;
				}

				if (fields[0].Equals("Z"))		/// Zero when stable
				{
					if (fields.Length == 2 && fields[1].Equals("A"))
					{
						mass = 0;
                        Masses[balanceNr] = mass;
                        //msrmntState = MsrmntState.Valid;
						log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\"", Name, received);
                        return;
					}
					else
					{
						msrmntState = MsrmntState.Failed;
						log.WarnFormat("{0} - Balance response = \"{1}<cr><lf>\", error !!!", Name, received);
                    }
				}
                else if (fields[0].Equals("S"))		/// Stable mass: field[1] = <mass> field[2] = "kg"
				{
					if (fields.Length == 3 &&
						double.TryParse(fields[1],
                                        NumberStyles.AllowDecimalPoint | NumberStyles.AllowLeadingSign,
										CultureInfo.InvariantCulture,
                                        out mass))
					{
						if (fields[2].Equals("g")) mass /= 1000.0f;
						if (fields[2].Equals("t")) mass *= 1000.0f;
                        Masses[balanceNr] = mass;
                        msrmntState = MsrmntState.Valid;
						log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\", Mass = {2}", Name, received, mass);
                    }
                    else if (fields.Length == 4 && (fields[1].Equals("S") || fields[1].Equals("D")) &&
                        double.TryParse(fields[2],
                                        NumberStyles.AllowDecimalPoint | NumberStyles.AllowLeadingSign,
                                        CultureInfo.InvariantCulture,
                                        out mass))
                    {
                        if (fields[3].Equals("g")) mass /= 1000.0f;
                        if (fields[3].Equals("t")) mass *= 1000.0f;
                        Masses[balanceNr] = mass;
                        msrmntState = MsrmntState.Valid;
                        log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\", Mass = {2}", Name, received, mass);
                    }
                    else if (fields.Length == 2 && fields[1].Equals("-"))
					{
						mass = 0;
                        Masses[balanceNr] = mass;
                        msrmntState = MsrmntState.Valid;
						log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\", Mass = {2}", Name, received, mass);
                    }
					else
					{
						msrmntState = MsrmntState.Failed;
						log.WarnFormat("{0} Balance response = \"{1}<cr><lf>\", Overload or and unexpected error !!!", Name, received);
                        bool b = double.TryParse(fields[1], NumberStyles.AllowDecimalPoint | NumberStyles.AllowLeadingSign, CultureInfo.InvariantCulture, out mass);

                    }
				}
                else if (fields[0].Equals("SD"))	/// Dynamic mass: field[1] = <mass> field[2] = "kg"
                {
                    if (fields.Length >= 3 &&
                        double.TryParse(fields[1],
                                        NumberStyles.AllowDecimalPoint | NumberStyles.AllowLeadingSign,
                                        CultureInfo.InvariantCulture,
                                        out mass))
                    {
                        if (fields[2].Equals("g")) mass /= 1000.0f;
                        if (fields[2].Equals("t")) mass *= 1000.0f;
                        Masses[balanceNr] = mass;
                        msrmntState = MsrmntState.Valid;
                        log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\", Mass = {2}", Name, received, mass);
                    }
                    else if (fields.Length == 2 && fields[1].Equals("-"))
                    {
                        mass = 0;
                        Masses[balanceNr] = mass;
                        msrmntState = MsrmntState.Valid;
						log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\", Mass = {2}", Name, received, mass);
                    }
                    else
                    {
                        msrmntState = MsrmntState.Failed;
						log.WarnFormat("{0} - Balance response = \"{1}<cr><lf>\", Overload or and unexpected error !!!", Name, received);
                        bool b = double.TryParse(fields[1], NumberStyles.AllowDecimalPoint | NumberStyles.AllowLeadingSign, CultureInfo.InvariantCulture, out mass);

                    }
                }
                else if (fields[0].Equals("TB"))		/// Taring
				{
					if (fields.Length >= 3 &&
						double.TryParse(fields[1],
                                        NumberStyles.AllowDecimalPoint | NumberStyles.AllowLeadingSign,
										CultureInfo.InvariantCulture,
                                        out mass))
					{
						if (fields[2].Equals("g")) mass /= 1000.0f;
						if (fields[2].Equals("t")) mass *= 1000.0f;
						msrmntState = MsrmntState.Valid;
						log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\", Tara = {2}", Name, received, mass);
                    }
					else
					{
						msrmntState = MsrmntState.Failed;
						log.WarnFormat("{0} - Balance response = \"{1}<cr><lf>\", Overload or and unexpected error !!!", Name, received);
                    }
				}
                else if (fields[0].Equals("T"))		/// Taring
                {
                    if (fields.Length >= 4 && fields[1].Equals("S") &&
                        double.TryParse(fields[2],
                                        NumberStyles.AllowDecimalPoint | NumberStyles.AllowLeadingSign,
                                        CultureInfo.InvariantCulture,
                                        out mass))
                    {
                        if (fields[3].Equals("g")) mass /= 1000.0f;
                        if (fields[3].Equals("t")) mass *= 1000.0f;
                        msrmntState = MsrmntState.Valid;
                        log.InfoFormat("{0} - Balance response = \"{1}<cr><lf>\", Tara = {2}", Name, received, mass);
                    }
                    else
                    {
                        msrmntState = MsrmntState.Failed;
                        log.WarnFormat("{0} - Balance response = \"{1}<cr><lf>\", Overload or and unexpected error !!!", Name, received);
                    }
                }
                else
				{
					msrmntState = MsrmntState.Failed;
					log.WarnFormat("{0} - Balance response = \"{1}<cr><lf>\", Unexpected error !!!", Name, received);
                }
			}
        }

        /// <summary>Run this device</summary>
        public void RunDeviceAfter()
        {
			base.RunAfter();
		}

        /// <summary>Stop this device</summary>
        public void StopDevice()
        {
			if ((balanceCfg.DebugLevel != DebugMode.Simulate) && (serialPort != null))
            {
                serialPort.Close();
                serialPort = null;
            }
        }

		public void StopDevice2() { }

		/// <summary>
		/// Events:  BalanceDone, Error
		/// </summary>
		/// <param name="result">Reference to a variable for 'tara' in kg</param>
		/// <returns>TaringOp instance reference casted to IOperaton</returns>
        public IOperation TaringOp(ref DoubleBox tara)
		{
			return new TaringOp(this, ref tara);
		}

		/// <summary>
		/// Events:  BalanceDone, Error
		/// </summary>
		/// <param name="result">Reference to a variable for the measured mass in kg</param>
		/// <returns>ReadMassOp instance reference casted to IOperaton</returns>
		public IOperation ReadMassOp(ref DoubleBox mass)
		{
			return new ReadMassOp(this, ref mass);
		}

		/// <summary>
		/// Events:  BalanceDone, Error
		/// </summary>
		/// <param name="result">Reference to a variable for the measured mass in kg</param>
		/// <param name="readingsCount">Required mass readings count (>= 3)</param>
        /// <param name="maxSpread">Maximum spread of measurements in kg (otherwise the measurement continues)</param>
        /// <param name="method">Method: false = slow (precise), true = fast (immediate)</param>
        /// <returns>ReadMassAverageOp instance reference casted to IOperaton</returns>
		public IOperation ReadStableMassOp(ref DoubleBox mass, int readingsCount, double maxSpread, Config.Entities.MassMethod method)
        {
			return new ReadStableMassOp(this, ref mass, readingsCount, maxSpread, method);
		}

        /// <summary>
        /// Events:  BalanceDone, Error
        /// </summary>
        /// <param name="serialNumber">Reference to the serialNumber</param>
        /// <returns>GetBalanceSNOp instance reference casted to IOperaton</returns>
        public virtual IOperation GetSerNumOp(ref string serialNumber)
        {
            return null;
        }
	}
}