source: branches/OptimizationNetworks/HeuristicLab.Optimization.Networks/3.3/Optimization.Networks/AlgorithmNode.cs @ 11554

#region License Information
/* HeuristicLab
 * Copyright (C) 2002-2014 Heuristic and Evolutionary Algorithms Laboratory (HEAL)
 *
 * This file is part of HeuristicLab.
 *
 * HeuristicLab 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.
 *
 * HeuristicLab 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 HeuristicLab. If not, see <http://www.gnu.org/licenses/>.
 */
#endregion

using HeuristicLab.Common;
using HeuristicLab.Core;
using HeuristicLab.Core.Networks;
using HeuristicLab.Operators;
using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Threading;

namespace HeuristicLab.Optimization.Networks {
  [Item("AlgorithmNode", "A node of an optimization network which contains a HeuristicLab algorithm.")]
  [StorableClass]
  public class AlgorithmNode : Node, IAlgorithmNode {
    private object locker = new object();
    private Dictionary<IAlgorithm, AutoResetEvent> waitHandles = new Dictionary<IAlgorithm, AutoResetEvent>();
    private Dictionary<IAlgorithm, Exception> exceptions = new Dictionary<IAlgorithm, Exception>();

    new public PortCollection Ports {
      get { return base.Ports; }
    }

    [Storable]
    private IAlgorithm algorithm;
    public IAlgorithm Algorithm {
      get { return algorithm; }
      set {
        if (value != algorithm) {
          algorithm = value;
          OnAlgorithmChanged();
        }
      }
    }

    [Storable]
    private RunCollection runs;
    public RunCollection Runs {
      get { return runs; }
    }

    [StorableConstructor]
    protected AlgorithmNode(bool deserializing) : base(deserializing) { }
    protected AlgorithmNode(AlgorithmNode original, Cloner cloner)
      : base(original, cloner) {
      algorithm = cloner.Clone(original.algorithm);
      runs = cloner.Clone(original.runs);
    }
    public AlgorithmNode()
      : base("AlgorithmNode") {
      runs = new RunCollection();
    }
    public AlgorithmNode(string name)
      : base(name) {
      runs = new RunCollection();
    }
    public AlgorithmNode(string name, string description)
      : base(name, description) {
      runs = new RunCollection();
    }

    public override IDeepCloneable Clone(Cloner cloner) {
      return new AlgorithmNode(this, cloner);
    }

    protected virtual void Configure(IConfigurationPort port, IMessage message, CancellationToken token) {
      // set algorithm and problem parameters
      lock (locker) {
        if (algorithm != null) {
          foreach (var v in message.Values) {
            IParameter param = null;
            if (Algorithm.Parameters.TryGetValue(v.Name, out param)) {
              var vp = param as IValueParameter;
              if (vp != null) vp.Value = v.Value;
            }
            if (Algorithm.Problem.Parameters.TryGetValue(v.Name, out param)) {
              var vp = param as IValueParameter;
              if (vp != null) vp.Value = v.Value;
            }
          }
        }
      }
    }

    protected virtual void Execute(IExecutionPort port, IMessage message, CancellationToken token) {
      if (Algorithm == null) throw new InvalidOperationException("Algorithm is null");

      IAlgorithm algorithm;
      lock (locker) {
        // prevent cloning of ports in hook operators
        var cloner = new Cloner();
        foreach (var hook in Algorithm.GetObjectGraphObjects(new HashSet<object>() { Algorithm.Results, Algorithm.Runs }).OfType<IHookOperator>()) {
          cloner.RegisterClonedObject(hook.Port, hook.Port);
        }
        algorithm = (IAlgorithm)Algorithm.Clone(cloner);
        waitHandles.Add(algorithm, new AutoResetEvent(false));
      }

      // set parameters
      foreach (var v in message.Values) {
        IParameter param = null;
        if (algorithm.Parameters.TryGetValue(v.Name, out param)) {
          var vp = param as IValueParameter;
          if (vp != null) vp.Value = v.Value;
        }
        if (algorithm.Problem.Parameters.TryGetValue(v.Name, out param)) {
          var vp = param as IValueParameter;
          if (vp != null) vp.Value = v.Value;
        }
      }

      algorithm.StoreAlgorithmInEachRun = false;
      algorithm.Prepare(true);
      algorithm.ExceptionOccurred += Algorithm_ExceptionOccurred;
      algorithm.Stopped += Algorithm_Stopped;

      using (token.Register(() => { algorithm.Stop(); })) {
        algorithm.Start();
        waitHandles[algorithm].WaitOne();
      }

      lock (locker) {
        waitHandles[algorithm].Dispose();
        waitHandles.Remove(algorithm);

        Exception ex = null;
        if (exceptions.TryGetValue(algorithm, out ex)) {
          exceptions.Remove(algorithm);
          throw ex;
        }
      }

      // retrieve results
      var run = algorithm.Runs.First();
      foreach (var v in message.Values) {
        IItem result = null;
        if (run.Results.TryGetValue(v.Name, out result)) {
          v.Value = result;
        }
      }

      lock (locker) {
        Runs.Add(run);
      }
    }

    private void Algorithm_ExceptionOccurred(object sender, EventArgs<Exception> e) {
      var algorithm = (IAlgorithm)sender;
      lock (locker) {
        exceptions.Add(algorithm, e.Value);
      }
      algorithm.Stop();
    }
    private void Algorithm_Stopped(object sender, EventArgs e) {
      lock (locker) {
        waitHandles[(IAlgorithm)sender].Set();
      }
    }

    public event EventHandler AlgorithmChanged;
    protected virtual void OnAlgorithmChanged() {
      var handler = AlgorithmChanged;
      if (handler != null) handler(this, EventArgs.Empty);
    }

    #region Ports Events
    protected override void RegisterPortsEvents() {
      base.RegisterPortsEvents();
      foreach (var p in Ports)
        RegisterPortEvents(p);
    }
    protected override void Ports_ItemsAdded(object sender, Collections.CollectionItemsChangedEventArgs<IPort> e) {
      base.Ports_ItemsAdded(sender, e);
      foreach (var p in e.Items)
        RegisterPortEvents(p);
    }
    protected override void Ports_ItemsRemoved(object sender, Collections.CollectionItemsChangedEventArgs<IPort> e) {
      base.Ports_ItemsRemoved(sender, e);
      foreach (var p in e.Items)
        DeregisterPortEvents(p);
    }
    protected override void Ports_ItemsReplaced(object sender, Collections.CollectionItemsChangedEventArgs<IPort> e) {
      base.Ports_ItemsReplaced(sender, e);
      foreach (var p in e.OldItems)
        DeregisterPortEvents(p);
      foreach (var p in e.Items)
        RegisterPortEvents(p);
    }
    protected override void Ports_CollectionReset(object sender, Collections.CollectionItemsChangedEventArgs<IPort> e) {
      base.Ports_CollectionReset(sender, e);
      foreach (var p in e.OldItems)
        DeregisterPortEvents(p);
      foreach (var p in e.Items)
        RegisterPortEvents(p);
    }
    #endregion

    #region Port Events
    private void RegisterPortEvents(IPort port) {
      IConfigurationPort c = port as IConfigurationPort;
      if (c != null) {
        c.MessageReceived += ConfigurationPort_MessageReceived;
      }
      IExecutionPort e = port as IExecutionPort;
      if (e != null) {
        e.MessageReceived += ExecutionPort_MessageReceived;
      }
    }
    private void DeregisterPortEvents(IPort port) {
      IConfigurationPort c = port as IConfigurationPort;
      if (c != null) {
        c.MessageReceived -= ConfigurationPort_MessageReceived;
      }
      IExecutionPort e = port as IExecutionPort;
      if (e != null) {
        e.MessageReceived -= ExecutionPort_MessageReceived;
      }
    }
    protected virtual void ConfigurationPort_MessageReceived(object sender, EventArgs<IMessage, CancellationToken> e) {
      Configure((IConfigurationPort)sender, e.Value, e.Value2);
    }
    protected virtual void ExecutionPort_MessageReceived(object sender, EventArgs<IMessage, CancellationToken> e) {
      Execute((IExecutionPort)sender, e.Value, e.Value2);
    }
    #endregion
  }
}