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

namespace HeuristicLab.Problems.ProgramSynthesis.Push.Expressions {
  using HeuristicLab.Problems.ProgramSynthesis.Push.Attributes;

  using Interpreter;
  using Stack;

  public abstract class ShoveExpression<T> : StatelessExpression {
    protected bool Eval(IStack<T> stack, IStack<long> integerStack, int count = 1) {
      if (integerStack.Count == 0 ||
          integerStack.Top > stack.Count - count ||
          integerStack.Top < 0 ||
          stack.Count < 2)
        return false;

      var index = (int)integerStack.Pop();
      var item = stack.Pop();

      stack.Insert(index, item);
      return true;
    }
  }

  [PushExpression(StackType.Integer, "INTEGER.SHOVE")]
  public class IntegerShoveExpression : ShoveExpression<long> {
    public override bool Eval(IPushInterpreter interpreter) {
      return Eval(interpreter.IntegerStack, interpreter.IntegerStack, 2);
    }
  }

  [PushExpression(StackType.Float, "FLOAT.SHOVE")]
  public class FloatShoveExpression : ShoveExpression<double> {
    public override bool Eval(IPushInterpreter interpreter) {
      return Eval(interpreter.FloatStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackType.Boolean, "BOOLEAN.SHOVE")]
  public class BooleanShoveExpression : ShoveExpression<bool> {
    public override bool Eval(IPushInterpreter interpreter) {
      return Eval(interpreter.BooleanStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackType.Name, "NAME.SHOVE")]
  public class NameShoveExpression : ShoveExpression<string> {
    public override bool Eval(IPushInterpreter interpreter) {
      return Eval(interpreter.NameStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackType.Exec, "EXEC.SHOVE")]
  public class ExecShoveExpression : ShoveExpression<Expression> {
    public override bool Eval(IPushInterpreter interpreter) {
      return Eval(interpreter.ExecStack, interpreter.IntegerStack);
    }
  }

  [PushExpression(StackType.Code, "CODE.SHOVE")]
  public class CodeShoveExpression : ShoveExpression<Expression> {
    public override bool Eval(IPushInterpreter interpreter) {
      return Eval(interpreter.CodeStack, interpreter.IntegerStack);
    }
  }
}