waltz_rb 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: da3fe36065329e7374616b0d3492f6ededc9f35b
+  data.tar.gz: 7a4efb5890246e5b2b494c1b5d07db43900e24b4
+SHA512:
+  metadata.gz: df1b60bbea9fe24b09afa2106240917876234b3f7b9b300a1fe2b0b032e8648244da1c5fceb36da3a4ba2aa2ebf2a8945b16c2d9168b0b931d94e830c5512aee
+  data.tar.gz: 3fb5cf5b08ad6d08b7adbeb6fb504cc73c50a61a0db671c8e4a53c120bc5a12e6bbefa9392d538d7fc97285ec73dc765bd62b26a2c91ff57670a04660b32a624

data/lib/waltz.rb

@@ -0,0 +1,211 @@
+require 'readline'
+
+class String
+  def remove_backslash_comments
+    self.gsub(/\\.*/, '')
+  end
+end
+
+class Waltz
+  attr_accessor :runtime_stack, :runtime_words,
+                :control_stack, :control_words,
+                :compiled
+
+  def initialize
+    @runtime_stack = []
+    @control_stack = []
+    @compiled = []
+
+    @runtime_words = {
+      '+' => -> {
+        a, b = @runtime_stack.pop(2)
+        @runtime_stack.push (a + b)
+      },
+
+      '*' => -> {
+        a, b = @runtime_stack.pop(2)
+        @runtime_stack.push (a * b)
+      },
+
+      '-' => -> {
+        a, b = @runtime_stack.pop(2)
+        @runtime_stack.push (a - b)
+      },
+
+      '/' => -> {
+        a, b = @runtime_stack.pop(2)
+        @runtime_stack.push (a / b)
+      },
+
+      '=' => -> {
+        a, b = @runtime_stack.pop(2)
+        @runtime_stack.push (a == b)
+      },
+
+      '>' => -> {
+        a, b = @runtime_stack.pop(2)
+        @runtime_stack.push (a > b)
+      },
+
+      '<' => -> {
+        a, b = @runtime_stack.pop(2)
+        @runtime_stack.push (a < b)
+      },
+
+      'swap' => -> {
+        a, b = @runtime_stack.pop(2)
+        @runtime_stack.push b, a
+      },
+
+      'dup' => -> {
+        @runtime_stack.push @runtime_stack.last
+      },
+
+      'drop' => -> {
+        @runtime_stack.pop
+      },
+
+      'over' => -> {
+        @runtime_stack.push @runtime_stack[-2]
+      },
+
+      '..' => -> {
+        puts "stack: #{@runtime_stack.inspect}"
+      },
+
+      '.' => -> {
+        p @runtime_stack.pop
+      }
+    }
+
+    @control_words = {
+      ':' => -> {
+        if @control_stack.empty?
+          @control_stack.push ":"
+        else
+          raise ": inside control stack: #{@control_stack}"
+        end
+      },
+
+      ';' => -> {
+        unless @control_stack.first == ":"
+          raise ": not balanced with ; in control stack: #{@control_stack}"
+        end
+
+        word, *body = @control_stack[1..-1]
+
+        unless word
+          raise "Unnamed word definition in control stack: #{@control_stack}"
+        end
+
+        @runtime_words[word] = body
+        @control_stack = []
+      }
+    }
+  end
+
+  def state
+    [@runtime_stack.dup, @control_stack.dup, @compiled.dup]
+  end
+
+  def load_state state
+    runtime_stack, control_stack, compiled = state
+    @runtime_stack = runtime_stack
+    @control_stack = control_stack
+    @compiled = compiled
+  end
+
+  def compile line
+    words = line.remove_backslash_comments.split
+
+    words.each do |word|
+      control_action = @control_words[word]
+      runtime_action = @runtime_words[word]
+
+      if @control_stack.first == ":"
+        if @control_stack.count == 1
+          if control_action or runtime_action
+            raise "#{word} is already defined."
+          else
+            @control_stack.push word # name of new word
+            next
+          end
+        else
+          current_stack = @control_stack
+        end
+      else
+        current_stack = @compiled
+      end
+
+      if control_action
+        control_action.call
+      elsif runtime_action
+        if runtime_action.is_a? Array
+          # do dynamic lookup for now
+          current_stack.push -> { run_word word }
+        else
+          current_stack.push runtime_action
+        end
+      else
+        if /(0|[1-9]\d*)\.\d+/ =~ word
+          current_stack.push -> { @runtime_stack.push word.to_f }
+        elsif /0|[1-9]\d*/ =~ word
+          current_stack.push -> { @runtime_stack.push word.to_i }
+        else
+          # assume word will be defined by the time it's run
+          current_stack.push -> { run_word word }
+        end
+      end
+    end
+  end
+
+  def run_word word
+    runtime_action = @runtime_words[word]
+    if runtime_action.is_a? Proc
+      runtime_action.call
+    elsif runtime_action.is_a? Array
+      runtime_action.each { |action| action.call }
+    elsif runtime_action.is_a? NilClass
+      raise "Undefined word: #{word}"
+    else
+      raise "Unexpected runtime word type #{word}: #{word.class}"
+    end
+  end
+
+  def run
+    @compiled.each do |action|
+      action.call
+    end
+  ensure
+    @compiled = []
+  end
+
+  def compile_and_run line
+    compile line
+    if @control_stack.empty?
+      run
+    else
+      raise "Control stack not empty: #{@control_stack.inspect}"
+    end
+  end
+
+  def repl
+    prompt = 'waltz> '
+    while line = Readline.readline(prompt, true)
+      save_state = state
+      begin
+        compile line
+        if @control_stack.empty?
+          run
+          prompt = 'waltz> '
+        else
+          prompt = '   ... '
+        end
+      rescue => e
+        p e
+        load_state(save_state)
+      end
+    end
+  end
+end
+

metadata

@@ -0,0 +1,48 @@
+--- !ruby/object:Gem::Specification
+name: waltz_rb
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Dave Yarwood
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2016-09-11 00:00:00.000000000 Z
+dependencies: []
+description: |2
+      Waltz is a portable music theory library implemented in Forth.
+
+      waltz_rb provides an implementation of a Forth interpreter that can
+      load the Waltz library and evaluate strings of Waltz code.
+email: dave.yarwood@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/waltz.rb
+homepage: http://rubygems.org/gems/waltz_rb
+licenses:
+- Eclipse Public License
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.4.6
+signing_key: 
+specification_version: 4
+summary: Ruby runtime for the Waltz music theory DSL
+test_files: []