source: branches/PushGP/HeuristicLab.PushGP/HeuristicLab.Problems.ProgramSynthesis/Push/Expressions/ShoveExpressions.cs @ 15017

namespace HeuristicLab.Problems.ProgramSynthesis.Push.Expressions {
  using System.Collections.Generic;

  using Attributes;

  using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
  using HeuristicLab.Problems.ProgramSynthesis.Push.Extensions;

  using Interpreter;
  using Stack;

  [StorableClass]
  public abstract class ShoveExpression<T> : StatelessExpression {
    protected ShoveExpression() { }
    [StorableConstructor]
    protected ShoveExpression(bool deserializing) : base(deserializing) { }

    protected void Eval(IPushStack<T> stack, IPushStack<long> integerStack) {
      var index = integerStack.Pop().AsInt(stack.Count);
      var item = stack.Pop();
      stack.Insert(index, item);
    }
  }

  [PushExpression(StackTypes.Integer, "INTEGER.SHOVE")]
  [StorableClass]
  public class IntegerShoveExpression : ShoveExpression<long> {
    public IntegerShoveExpression() { }
    [StorableConstructor]
    protected IntegerShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.Count < 3;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.IntegerStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.Float, "FLOAT.SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class FloatShoveExpression : ShoveExpression<double> {
    public FloatShoveExpression() { }
    [StorableConstructor]
    protected FloatShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.FloatStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.FloatStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.Boolean, "BOOLEAN.SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class BooleanShoveExpression : ShoveExpression<bool> {
    public BooleanShoveExpression() { }
    [StorableConstructor]
    protected BooleanShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.BooleanStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.BooleanStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.Name, "NAME.SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class NameShoveExpression : ShoveExpression<string> {
    public NameShoveExpression() { }
    [StorableConstructor]
    protected NameShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.NameStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.NameStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.Exec, "EXEC.SHOVE", StackTypes.Integer, execIn: 1)]
  [StorableClass]
  public class ExecShoveExpression : ShoveExpression<Expression> {
    public ExecShoveExpression() { }
    [StorableConstructor]
    protected ExecShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.ExecStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.ExecStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.Code, "CODE.SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class CodeShoveExpression : ShoveExpression<Expression> {
    public CodeShoveExpression() { }
    [StorableConstructor]
    protected CodeShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.CodeStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.CodeStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.Char, "CHAR.SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class CharShoveExpression : ShoveExpression<char> {
    public CharShoveExpression() { }
    [StorableConstructor]
    protected CharShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.CharStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.CharStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.String, "STRING.SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class StringShoveExpression : ShoveExpression<string> {
    public StringShoveExpression() { }
    [StorableConstructor]
    protected StringShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.StringStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.StringStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.IntegerVector, "INTEGER[].SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class IntegerVectorShoveExpression : ShoveExpression<IReadOnlyList<long>> {
    public IntegerVectorShoveExpression() { }
    [StorableConstructor]
    protected IntegerVectorShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.IntegerVectorStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.IntegerVectorStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.FloatVector, "FLOAT[].SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class FloatVectorShoveExpression : ShoveExpression<IReadOnlyList<double>> {
    public FloatVectorShoveExpression() { }
    [StorableConstructor]
    protected FloatVectorShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.FloatVectorStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.FloatVectorStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.BooleanVector, "BOOLEAN[].SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class BooleanVectorShoveExpression : ShoveExpression<IReadOnlyList<bool>> {
    public BooleanVectorShoveExpression() { }
    [StorableConstructor]
    protected BooleanVectorShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.BooleanVectorStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.BooleanVectorStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackTypes.StringVector, "STRING[].SHOVE", StackTypes.Integer)]
  [StorableClass]
  public class StringVectorShoveExpression : ShoveExpression<IReadOnlyList<string>> {
    public StringVectorShoveExpression() { }
    [StorableConstructor]
    protected StringVectorShoveExpression(bool deserializing) : base(deserializing) { }

    public override bool IsNoop(IInternalPushInterpreter interpreter) {
      return interpreter.IntegerStack.IsEmpty || interpreter.StringVectorStack.Count < 2;
    }

    public override void Eval(IInternalPushInterpreter interpreter) {
      Eval(interpreter.StringVectorStack, interpreter.IntegerStack);
    }
  }
}