nudge 0.0.2 → 0.1.0

data/lib/instructions/exec.rb

@@ -1,154 +0,0 @@
-class ExecYInstruction < Instruction
-  def preconditions?
-    needs :exec, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:exec].pop
-  end
-  def derive
-    @recurser = CodeBlock.new("block {do exec_y #{@arg1.listing}}")
-  end
-  def cleanup
-    pushes :exec, @recurser
-    pushes :exec, @arg1
-  end
-end
-
-
-class ExecKInstruction < Instruction
-  def preconditions?
-    needs :exec, 2
-  end
-  def setup
-    @keep = @context.stacks[:exec].pop
-    @discard = @context.stacks[:exec].pop
-  end
-  def derive
-  end
-  def cleanup
-    pushes :exec, @keep
-  end
-end
-
-
-class ExecSInstruction < Instruction
-  def preconditions?
-    needs :exec, 3
-  end
-  def setup
-    @argA = @context.stacks[:exec].pop
-    @argB = @context.stacks[:exec].pop
-    @argC = @context.stacks[:exec].pop
-  end
-  def derive  
-    @s_result = CodeBlock.new("block {#{@argB.listing} #{@argC.listing}}")
-  end
-  def cleanup
-    pushes :exec, @s_result
-    pushes :exec, @argC
-    pushes :exec, @argA
-  end
-end
-
-
-class ExecDoRangeInstruction < Instruction
-  def preconditions?
-    needs :exec, 1
-    needs :int, 2
-  end
-  
-  def setup
-    @destination = @context.stacks[:int].pop
-    @counter = @context.stacks[:int].pop
-    @code = @context.stacks[:exec].pop
-  end
-  
-  def derive
-    @finished = false
-    if @counter.value == @destination.value
-      @finished = true
-    elsif @counter.value < @destination.value
-      @new_counter = LiteralPoint.new("int", @counter.value + 1)
-    else
-      @new_counter = LiteralPoint.new("int", @counter.value - 1)
-    end
-  end
-  
-  def cleanup
-    if @finished
-      pushes :int, @counter
-      pushes :exec, @code
-    else
-      recursor = @context.parser.parse(
-        "block {#{@new_counter.listing} #{@destination.listing} do exec_do_range #{@code.listing}}")
-      pushes :int, @counter
-      pushes :exec, recursor.to_points
-      pushes :exec, @code
-    end
-  end
-end
-
-
-class ExecDoTimesInstruction < Instruction
-  def preconditions?
-    needs :exec, 1
-    needs :int, 2
-  end
-  
-  def setup
-    @destination = @context.stacks[:int].pop
-    @counter = @context.stacks[:int].pop
-    @code = @context.stacks[:exec].pop
-  end
-  
-  def derive
-    @finished = false
-    if @counter.value == @destination.value
-      @finished = true
-    elsif @counter.value < @destination.value
-      @new_counter = LiteralPoint.new("int", @counter.value + 1)
-    else
-      @new_counter = LiteralPoint.new("int", @counter.value - 1)
-    end
-  end
-  
-  def cleanup
-    if @finished
-      pushes :exec, @code
-    else
-      recursor = @context.parser.parse(
-        "block {#{@new_counter.listing} #{@destination.listing} do exec_do_times #{@code.listing}}")
-      pushes :exec, recursor.to_points
-      pushes :exec, @code
-    end
-  end
-end
-
-
-class ExecDoCountInstruction < Instruction
-  def preconditions?
-    unless @context.instructions.include?(ExecDoRangeInstruction)
-      raise(MissingInstructionError, "exec_do_range must be active to use exec_do_count") 
-    end
-    needs :exec, 1
-    needs :int, 1
-  end
-  
-  def setup
-    if @context.stacks[:int].peek.value < 1
-      raise InstructionMethodError
-    end
-    @destination = @context.stacks[:int].pop
-    @code = @context.stacks[:exec].pop
-  end
-  
-  def derive
-    @one_less = LiteralPoint.new("int",@destination.value-1)
-  end
-  
-  def cleanup
-    recursor = @context.parser.parse(
-      "block {literal int (0) #{@one_less.listing} do exec_do_range #{@code.listing}}")
-    pushes :exec, recursor.to_points
-  end
-end

data/lib/instructions/float_arithmetic.rb

@@ -1,201 +0,0 @@
-class FloatAddInstruction < Instruction
-  def preconditions?
-    needs :float, 2
-  end
-  def setup
-    @arg1 = @context.stacks[:float].pop.value
-    @arg2 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", @arg1 + @arg2)
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatMultiplyInstruction < Instruction
-  def preconditions?
-    needs :float, 2
-  end
-  def setup
-    @arg1 = @context.stacks[:float].pop.value
-    @arg2 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", @arg1 * @arg2)
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatSubtractInstruction < Instruction
-  def preconditions?
-    needs :float, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:float].pop.value
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", @arg1 - @arg2)
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatDivideInstruction < Instruction
-  def preconditions?
-    needs :float, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:float].pop.value
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    if @arg2 != 0.0
-      @quotient = @arg1 / @arg2
-      @result = LiteralPoint.new("float", @quotient)
-    else
-      raise InstructionMethodError
-    end
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatMaxInstruction < Instruction
-  def preconditions?
-    needs :float, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:float].pop.value
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", [@arg1, @arg2].max)
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatMinInstruction < Instruction
-  def preconditions?
-    needs :float, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:float].pop.value
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", [@arg1, @arg2].min)
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatNegativeInstruction < Instruction
-  def preconditions?
-    needs :float, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", -@arg1)
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatAbsInstruction < Instruction
-  def preconditions?
-    needs :float, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", @arg1.abs)
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatPowerInstruction < Instruction
-  def preconditions?
-    needs :float, 2
-  end
-  def setup
-    @exp = @context.stacks[:float].pop.value
-    @base = @context.stacks[:float].pop.value
-  end
-  def derive
-    if !(@base**@exp).nan?
-      @result = LiteralPoint.new("float", @base**@exp)
-    else
-      raise Instruction::NaNResultError
-    end
-    
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatSqrtInstruction < Instruction
-  def preconditions?
-    needs :float, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    if @arg1 >= 0.0
-      @result = LiteralPoint.new("float", Math.sqrt(@arg1))
-    else
-      raise Instruction::NaNResultError
-    end
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatModuloInstruction < Instruction
-  def preconditions?
-    needs :float, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:float].pop.value
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    if @arg2 != 0
-      @mod = @arg1 % @arg2
-      @result = LiteralPoint.new("float", @mod)
-    else
-      raise InstructionMethodError
-    end
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end

data/lib/instructions/float_transcendental.rb

@@ -1,47 +0,0 @@
-class FloatSineInstruction < Instruction
-  def preconditions?
-    needs :float, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", Math.sin(@arg1))
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatCosineInstruction < Instruction
-  def preconditions?
-    needs :float, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", Math.cos(@arg1))
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-
-
-class FloatTangentInstruction < Instruction
-  def preconditions?
-    needs :float, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:float].pop.value
-  end
-  def derive
-    @result = LiteralPoint.new("float", Math.tan(@arg1))
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end
-

data/lib/instructions/int_arithmetic.rb

@@ -1,160 +0,0 @@
-class IntAddInstruction < Instruction
-  def preconditions?
-    needs :int, 2
-  end
-  def setup
-    @arg1 = @context.stacks[:int].pop
-    @arg2 = @context.stacks[:int].pop
-  end
-  def derive
-    @result = LiteralPoint.new("int", @arg1.value + @arg2.value)
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-class IntMultiplyInstruction < Instruction
-  def preconditions?
-    needs :int, 2
-  end
-  def setup
-    @arg1 = @context.stacks[:int].pop
-    @arg2 = @context.stacks[:int].pop
-  end
-  def derive
-    @result = LiteralPoint.new("int", @arg1.value * @arg2.value)
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-
-class IntDivideInstruction < Instruction
-  def preconditions?
-    needs :int, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:int].pop.value
-    @arg1 = @context.stacks[:int].pop.value
-  end
-  def derive
-    if @arg2 != 0
-      @quotient = @arg1 / @arg2
-      @result = LiteralPoint.new("int", @quotient)
-    else
-      raise InstructionMethodError
-    end
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-
-class IntSubtractInstruction < Instruction
-  def preconditions?
-    needs :int, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:int].pop.value
-    @arg1 = @context.stacks[:int].pop.value
-  end
-  def derive
-      @diff = @arg1-@arg2
-      @result = LiteralPoint.new("int", @diff)
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-
-class IntModuloInstruction < Instruction
-  def preconditions?
-    needs :int, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:int].pop.value
-    @arg1 = @context.stacks[:int].pop.value
-  end
-  def derive
-    if @arg2 != 0
-      @mod = @arg1 % @arg2
-      @result = LiteralPoint.new("int", @mod)
-    else
-      raise InstructionMethodError
-    end
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-
-class IntMaxInstruction < Instruction
-  def preconditions?
-    needs :int, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:int].pop.value
-    @arg1 = @context.stacks[:int].pop.value
-  end
-  def derive
-      @max = [@arg1,@arg2].max
-      @result = LiteralPoint.new("int", @max)
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-
-class IntMinInstruction < Instruction
-  def preconditions?
-    needs :int, 2
-  end
-  def setup
-    @arg2 = @context.stacks[:int].pop.value
-    @arg1 = @context.stacks[:int].pop.value
-  end
-  def derive
-      @min = [@arg1,@arg2].min
-      @result = LiteralPoint.new("int", @min)
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-
-class IntAbsInstruction < Instruction
-  def preconditions?
-    needs :int, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:int].pop.value
-  end
-  def derive
-      @result = LiteralPoint.new("int", @arg1.abs)
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-class IntNegativeInstruction < Instruction
-  def preconditions?
-    needs :int, 1
-  end
-  def setup
-    @arg1 = @context.stacks[:int].pop.value
-  end
-  def derive
-      @result = LiteralPoint.new("int", -@arg1)
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end

data/lib/instructions/name_basics.rb

@@ -1,44 +0,0 @@
-class NameRandomBoundInstruction < Instruction
-  def preconditions?
-    @context.references.length > 0
-  end
-  def setup
-  end
-  def derive
-    @result = ChannelPoint.new("placeholder")
-    @result.randomize(@context)
-  end
-  def cleanup
-    pushes :exec, @result
-  end
-end
-
-
-class NameNextInstruction < Instruction
-  def preconditions?
-    true
-  end
-  def setup
-    @new_name = @context.next_name
-  end
-  def derive
-    @result = ChannelPoint.new(@new_name)
-  end
-  def cleanup
-    pushes :exec, @result
-  end
-end
-
-class NameDisableLookupInstruction < Instruction
-  def preconditions?
-    true
-  end
-  def setup
-  end
-  def derive
-  end
-  def cleanup
-    @context.evaluate_channels = false
-  end
-end
-

data/lib/instructions/name_bindings.rb

@@ -1,65 +0,0 @@
-class NamesNotEnabled < RuntimeError
-end
-
-module DefineInstruction
-  attr_reader :target_stack
-  
-  def initialize(context, target_stack)
-    @target_stack = target_stack
-    super(context)
-  end
-  
-  def preconditions?
-    if @target_stack != :name
-      needs @target_stack, 1
-      needs :name, 1
-    else
-      needs :name, 2
-    end
-  end
-  
-  def setup
-    @bound_name = @context.stacks[:name].pop.value
-    @new_value = @context.stacks[@target_stack].pop
-  end
-  
-  def derive
-  end
-  
-  def cleanup
-    @context.bind_name(@bound_name, @new_value)
-  end
-end
-
-
-class IntDefineInstruction < Instruction
-  include DefineInstruction
-  def initialize(context)
-    super(context, :int)
-  end
-end
-
-
-class BoolDefineInstruction < Instruction
-  include DefineInstruction
-  def initialize(context)
-    super(context, :bool)
-  end
-end
-
-
-class FloatDefineInstruction < Instruction
-  include DefineInstruction
-  def initialize(context)
-    super(context, :float)
-  end
-end
-
-
-class ExecDefineInstruction < Instruction
-  include DefineInstruction
-  def initialize(context)
-    super(context, :exec)
-  end
-end
-

data/lib/instructions/random_value.rb

@@ -1,43 +0,0 @@
-class IntRandomInstruction < Instruction
-  def preconditions?
-    true # no preconditions
-  end
-  def setup
-  end
-  def derive
-    @result = LiteralPoint.new("int", IntType.any_value)
-  end
-  def cleanup
-    pushes :int, @result
-  end
-end
-
-
-class BoolRandomInstruction < Instruction
-  def preconditions?
-    true # no preconditions
-  end
-  def setup
-  end
-  def derive
-    @result = LiteralPoint.new("bool", BoolType.any_value)
-  end
-  def cleanup
-    pushes :bool, @result
-  end
-end
-
-
-class FloatRandomInstruction < Instruction
-  def preconditions?
-    true # no preconditions
-  end
-  def setup
-  end
-  def derive
-    @result = LiteralPoint.new("float", FloatType.any_value)
-  end
-  def cleanup
-    pushes :float, @result
-  end
-end