nudge 0.0.1

data/lib/instructions/exec.rb

@@ -0,0 +1,154 @@
+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

@@ -0,0 +1,201 @@
+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

@@ -0,0 +1,47 @@
+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/infrastructure.rb

@@ -0,0 +1,84 @@
+class Instruction
+  attr_reader :context
+  
+  @@all_instructions = []
+  
+  def self.inherited(subclass)
+    @@all_instructions << subclass
+    super
+  end
+  
+  def self.all_instructions
+    @@all_instructions
+  end
+  
+  def self.to_nudgecode
+    self.to_s.slice(0..-12).underscore
+  end
+  
+  class NotEnoughStackItems < ArgumentError
+  end
+  
+  class InstructionMethodError < RuntimeError
+  end
+  
+  class NaNResultError < RuntimeError
+  end
+  
+  class MissingInstructionError < RuntimeError
+  end
+  
+  def initialize(context)
+    @context = context
+  end
+  
+  def needs(stackName, minimum)
+    iNeed = @context.stacks[stackName]
+    
+    if @context.stacks[stackName].depth < minimum
+       raise NotEnoughStackItems, "Stack #{stackName} too small: needs at least #{minimum} items"
+      return false
+    else
+      return true
+    end
+  end
+
+  def pushes(stackName, literal)
+    @context.stacks[stackName].push literal
+  end
+  
+  def go
+    begin
+    if self.preconditions?
+      self.setup
+      self.derive
+      self.cleanup
+    end
+    rescue NotEnoughStackItems
+      logError("NOOP: Parameter shortage")
+    rescue InstructionMethodError
+       logError("NOOP: Calculation error")
+    end
+  end
+  
+  def preconditions?
+    raise "Your Instruction class should define its own #preconditions? method"
+  end
+  
+  def setup
+    raise "Your Instruction class should define its own #setup method"
+  end
+  
+  def derive
+    raise "Your Instruction class should define its own #derive method"
+  end
+  
+  def cleanup
+    raise "Your Instruction class should define its own #cleanup method"
+  end
+  
+  def logError(msg)
+    # STDERR.puts msg
+  end
+  
+end

data/lib/instructions/int_arithmetic.rb

@@ -0,0 +1,160 @@
+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

@@ -0,0 +1,44 @@
+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
+