trac_lang 0.1.0

data/lib/trac_lang/octal.rb

@@ -0,0 +1,88 @@
+
+module TracLang
+
+# TRAC octal number.  Unlike the TracLang::Decimal, any
+# string prefix is discarded.  Bit size is saved so that 
+# operations can retain the size.
+class Octal
+
+  # Number of octal digits in this number.
+  attr_accessor :size
+
+  # Numeric value of this number.
+  attr_accessor :value
+
+  # Creates a TRAC octal. Any leading non-numeric characters are ignored.  
+  # If there are no octal characters, zero is assumed.
+  def initialize(str = '')
+    raise ArgumentError unless str.is_a? String
+    b = str.partition(/[0-7]*$/)
+    @value = b[1].to_i(8)
+    @size = b[1].length 
+  end
+
+  # Tests for equality.  This is different from numeric equality,
+  # because size is also tested.
+  def ==(o)
+    return super unless o.is_a? TracLang::Octal
+    o.value == @value && o.size == @size
+  end
+
+  # Converts octal number to string.  Returns a string <size> digits long.
+  def to_s
+    if value < 0
+      sprintf("%0*.*o", size + 3, size + 3, value).slice(3..-1)
+    else
+      sprintf("%0*.*o", size, size, value)
+    end
+  end
+
+  # Bit or.  Result bit size is maximum of bit size of parameters.
+  define_method(:|) do |other|
+    result = Octal.new
+    result.size = [self.size, other.size].max
+    result.value = self.value | other.value
+    result
+  end
+
+  # Bitwise and.  Result bit size is minimum of bit size of parameters.
+  define_method(:&) do |other|
+    result = Octal.new
+    result.size = [self.size, other.size].min
+    result.value = self.value & other.value
+    result
+  end
+  
+  # Bit complement.
+  def ~
+    result = Octal.new
+    result.size = size
+    result.value = ~value
+    result
+  end
+  
+  # Shifts octal bits by the given amount.
+  def shift(n)
+    result = Octal.new
+    result.size = size
+    result.value = n.value < 0 ? value >> -n.value : value << n.value
+    result
+  end
+
+  # Rotates octal bits by the given amount.  
+  def rotate(n)
+    result = Octal.new
+    result.size = size
+    bits = 3 * size
+    bit_mask = 2 ** bits - 1
+    if n.value < 0
+      result.value = ((value >> -n.value) | (value << (bits + n.value))) & bit_mask
+    else
+      result.value = ((value << n.value) | (value >> (bits - n.value))) & bit_mask
+    end
+    result
+  end
+  
+end
+
+end

data/lib/trac_lang/parser.rb

@@ -0,0 +1,114 @@
+
+module TracLang
+
+  # Parser for TRAC input.  Given the input a character at a time, it 
+  # creates an active string and then executes it when the string is
+  # completed.
+  class Parser
+
+    # Parses the given string and executes it, until the 
+    # active string is empty.
+    def parse(str, &blk)
+      @active = str
+      @handler = :reading
+      @expressions = []
+      loop do
+        if @active.empty?
+          # if handler is parens, we've read a open paren w/o a matching closing one
+          throw :reset if @handler == :parens
+          # if handler if reading, and expressions is not empty
+          # we've read #( without a matching end paren
+          throw :reset if @handler == :reading && !@expressions.empty?
+          # if hander is :start_proc, we've just read a bunch of #s
+          # so we can ignore them without throwing an error
+          return
+        end
+        self.send(@handler, @active.slice!(0), &blk)
+      end
+    end
+    
+    # Add character to current expression, ignore if no expression exists
+    def concat(c)
+      unless @expressions.empty?
+        @expressions.last.concat(c)
+      end
+    end
+    
+    # Handler while actively reading the active string.  If you start an expression, 
+    # switch to the start_proc handler.  If you see an open parenthesis, switch
+    # to the parens handler.  Comma marks a new argument in the current expression, and
+    # end parenthesis marks the end of an expression.  When an expression is ended, execute it
+    # and handle the results.
+    def reading(c, &blk)
+      case c
+      when '#'
+        @expressions.push Expression.new
+        @handler = :start_proc
+      when '('
+        @nesting = 1
+        @handler = :parens
+      when ','
+        unless @expressions.empty?
+          @expressions.last.newarg
+        end
+      when ')'
+        throw :reset if @expressions.empty?
+        expression = @expressions.pop
+        result = blk.call(expression)
+        if result[:force] || expression.active?
+          @active.prepend(result[:value])
+        else
+          concat(result[:value])
+        end
+      when "\n", "\r"
+        # ignore cr and lf
+      else
+        concat(c)
+      end
+    end
+
+    # Handler while reading inside protective parentheses.  Copies all
+    # characters to current expression while keeping track of current parentheses
+    # nesting.  When a matching parenthesis is found, go back to reading
+    # handler.
+    def parens(c)
+      case c
+      when '('
+        @nesting += 1
+      when ')'
+        @nesting -= 1
+        if @nesting == 0
+          @handler = :reading
+          return
+        end
+      end
+      concat(c)
+    end
+
+    # Handler for the start of an expression.  Mark the expression as active or not,
+    # depending on whether it starts with #(...) or ##(...).  
+    def start_proc(c, &blk)
+      case c
+      when '#'
+        throw :reset if @expressions.empty?
+        if @expressions.last.active?
+          @expressions.last.active = false
+        else 
+          unless @expressions.size == 1
+            @expressions[-2].concat(c)
+          end
+        end
+      when '('
+        @handler = :reading
+      else 
+        throw :reset if @expressions.empty?
+        discard = @expressions.pop
+        concat(discard.active? ? '#' : '##')
+        @handler = :reading
+        reading(c, &blk)
+      end
+    end
+
+  end
+
+end

data/lib/trac_lang/version.rb

@@ -0,0 +1,4 @@
+module TracLang
+  # Version number of TRAC Language processor.
+  VERSION = '0.1.0'
+end

data/trac_lang.gemspec

@@ -0,0 +1,42 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'trac_lang/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "trac_lang"
+  spec.version       = TracLang::VERSION
+  spec.authors       = ["David Stanley"]
+  spec.email         = ["dstanley1994@yahoo.com"]
+
+  spec.summary       = %q{Ruby implementation of the TRAC computer language.}
+  spec.description   = %q{TRAC is a macro language invented in the 1950s.}
+  spec.homepage      = %q(https://github.com/dstanley1994/trac_lang)
+  spec.license       = "MIT"
+
+  # Prevent pushing this gem to RubyGems.org. To allow pushes either set the 'allowed_push_host'
+  # to allow pushing to a single host or delete this section to allow pushing to any host.
+  if spec.respond_to?(:metadata)
+    spec.metadata['allowed_push_host'] = 'https://rubygems.org'
+  else
+    raise "RubyGems 2.0 or newer is required to protect against " \
+      "public gem pushes."
+  end
+
+  spec.require_paths = ["lib"]
+  spec.bindir        = "exe"
+  spec.executables   = ['trac_lang']
+  spec.files         = `git ls-files -z`.split("\x0").reject do |f|
+    f.match(%r{^(test|spec|features)/})
+  end
+  spec.has_rdoc = true
+  spec.rdoc_options << '--include' << 'lib/trac_lang'
+
+  spec.add_runtime_dependency "highline", "~> 1.7", ">= 1.7.8"
+  
+  spec.add_development_dependency "bundler", "~> 1.14"
+  spec.add_development_dependency "rake", "~> 10.0"
+  spec.add_development_dependency "rspec", "~> 3.0"
+  spec.add_development_dependency "cucumber", '~> 2.4', '>= 2.4.0'
+  spec.add_development_dependency "aruba", "~> 0.14.2"
+end

metadata

@@ -0,0 +1,177 @@
+--- !ruby/object:Gem::Specification
+name: trac_lang
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- David Stanley
+autorequire: 
+bindir: exe
+cert_chain: []
+date: 2017-10-15 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: highline
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.7.8
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.7'
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 1.7.8
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.14'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '1.14'
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '10.0'
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '3.0'
+- !ruby/object:Gem::Dependency
+  name: cucumber
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.4'
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 2.4.0
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.4'
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 2.4.0
+- !ruby/object:Gem::Dependency
+  name: aruba
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.14.2
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.14.2
+description: TRAC is a macro language invented in the 1950s.
+email:
+- dstanley1994@yahoo.com
+executables:
+- trac_lang
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".rspec"
+- ".travis.yml"
+- CODE_OF_CONDUCT.md
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/console
+- bin/setup
+- examples/README.trl
+- examples/golf.trl
+- examples/list.trl
+- examples/math.trl
+- examples/meta.trl
+- examples/ratio.trl
+- examples/struct.trl
+- examples/term.trl
+- examples/util.trl
+- exe/trac_lang
+- lib/trac_lang.rb
+- lib/trac_lang/bindings.rb
+- lib/trac_lang/block.rb
+- lib/trac_lang/decimal.rb
+- lib/trac_lang/dispatch.rb
+- lib/trac_lang/executor.rb
+- lib/trac_lang/expression.rb
+- lib/trac_lang/form.rb
+- lib/trac_lang/immediate_read.rb
+- lib/trac_lang/octal.rb
+- lib/trac_lang/parser.rb
+- lib/trac_lang/version.rb
+- trac_lang.gemspec
+homepage: https://github.com/dstanley1994/trac_lang
+licenses:
+- MIT
+metadata:
+  allowed_push_host: https://rubygems.org
+post_install_message: 
+rdoc_options:
+- "--include"
+- lib/trac_lang
+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.6.13
+signing_key: 
+specification_version: 4
+summary: Ruby implementation of the TRAC computer language.
+test_files: []