akaza 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: f8f268d8e1d526b8e7d63dba375322624e27a5af9c281f91101aa60c3ba5efc6
+  data.tar.gz: 561b42e5bac690f8c983cb03f992558ee5a35d24c81da8025973ff1a11b332a1
+SHA512:
+  metadata.gz: 250e590b52669d99cbd3bac3c942c38558f9fb270b60a273507d4695c249afdd238011013b364db491c9945c7b383446563533b18ee39ff71af1c26b5047d948
+  data.tar.gz: 2f6bac299e64ecaaa42a21d04de0c20393b9caab95cc1a01c5e9bdb3c486453f8fb53ea2aa68379758d3226c1a45299d8733c8dddfb15553c1bc0814dba3f246

data/.gitignore

@@ -0,0 +1,8 @@
+/.bundle/
+/.yardoc
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/

data/Gemfile

@@ -0,0 +1,4 @@
+source "https://rubygems.org"
+
+# Specify your gem's dependencies in akaza.gemspec
+gemspec

data/Gemfile.lock

@@ -0,0 +1,22 @@
+PATH
+  remote: .
+  specs:
+    akaza (0.1.0)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    minitest (5.11.3)
+    rake (12.3.2)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  akaza!
+  bundler (~> 2.1.a)
+  minitest (>= 5)
+  rake (~> 12.0)
+
+BUNDLED WITH
+   2.1.0.pre.1

data/README.md

@@ -0,0 +1,137 @@
+# Akaza
+
+A cool Whitespace language implementation in Ruby.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'akaza'
+```
+
+And then execute:
+
+    $ bundle install
+
+Or install it yourself as:
+
+    $ gem install akaza
+
+
+## Requirements
+
+* `RUBY_VERSION > '2.6'`
+  * It needs pattern match feature.
+
+## Basic Usage
+
+```ruby
+require 'akaza'
+
+# It use $stdin and $stdout
+Akaza.eval(whitespace_code)
+
+# Use other IO
+input = StringIO.new(something)
+output = StringIO.new
+Akaza.eval(whitespace_code, input: input, output: output)
+```
+
+You can find example Whitespace programs from test/fixtures/ directory.
+
+## Cool Usage
+
+The basic usage is good, but it is not fun.
+Akaza provides really "cool" interface to define a method with Whitespace.
+You can write Whitespace in Ruby program directly!
+
+For example:
+
+```ruby
+require 'akaza'
+
+class A
+  extend Akaza::Annotation
+
+  whitespace def sum(a, b)
+ 	  
+
+ 	  input=StringIO.new("#{a}\n#{b}\n")
+	  output=StringIO.new 	
+ 	
+
+
+
+    Akaza::Body
+    
+	
+	
+    
+		output.string.to_i	
+	
+end
+end
+
+a = A.new
+p a.sum(20, 22) # => 42
+```
+
+Cool! You no longer need to write Whitespace as a string literal. You can write Whitespace in Ruby seamlessly. It is elegant!
+
+
+### Requirements of cool style
+
+* Space, tab and newline in method body are evaluated as Whitespace program.
+  * Other characters are ignored for Whitespace, but they are evaluated as Ruby program.
+* `Akaza::Body` is replaced with Whitespace code.
+* `input` and `output` variables are necessary. They are IO.
+
+
+
+Akaza provides a shorthand.
+If `Akaza::Body` is omitted, the method only evaluates Whitespace program. The method receives `input` and `output`.
+
+For example:
+
+```ruby
+require 'akaza'
+
+class A
+  extend Akaza::Annotation
+
+  whitespace def sum(input, output)
+ 	  
+
+ 	  
+This	code is never evaluated.	
+ 	
+
+
+
+So you can write any
+sentences as comments!  
+	
+	
+    
+			
+	
+end
+end
+
+a = A.new
+input = StringIO.new("20\n22\n")
+output = StringIO.new
+a.sum(input, output)
+p output.string
+```
+
+## Development
+
+After checking out the repo, run `bin/setup` to install dependencies. You can also run `bin/console` for an interactive prompt that will allow you to experiment.
+
+To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and tags, and push the `.gem` file to [rubygems.org](https://rubygems.org).
+
+## Contributing
+
+Bug reports and pull requests are welcome on GitHub at https://github.com/pocke/akaza.

data/Rakefile

@@ -0,0 +1,9 @@
+require "bundler/gem_tasks"
+require 'rake/testtask'
+task :default => :test
+
+Rake::TestTask.new do |test|
+  test.libs << 'test'
+  test.test_files = Dir['test/**/*_test.rb']
+  test.verbose = true
+end

data/akaza.gemspec

@@ -0,0 +1,33 @@
+lib = File.expand_path("lib", __dir__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require "akaza/version"
+
+Gem::Specification.new do |spec|
+  spec.name          = "akaza"
+  spec.version       = Akaza::VERSION
+  spec.authors       = ["Masataka Pocke Kuwabara"]
+  spec.email         = ["kuwabara@pocke.me"]
+
+  spec.summary       = %q{}
+  spec.description   = %q{}
+  spec.homepage      = "https://github.com/pocke/akaza"
+
+  # spec.metadata["allowed_push_host"] = "TODO: Set to 'http://mygemserver.com'"
+
+  spec.metadata["homepage_uri"] = spec.homepage
+  spec.metadata["source_code_uri"] = spec.homepage
+  # spec.metadata["changelog_uri"] = "TODO: Put your gem's CHANGELOG.md URL here."
+
+  # Specify which files should be added to the gem when it is released.
+  # The `git ls-files -z` loads the files in the RubyGem that have been added into git.
+  spec.files         = Dir.chdir(File.expand_path('..', __FILE__)) do
+    `git ls-files -z`.split("\x0").reject { |f| f.match(%r{^(test|spec|features)/}) }
+  end
+  spec.bindir        = "exe"
+  spec.executables   = spec.files.grep(%r{^exe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+
+  spec.add_development_dependency "bundler", "~> 2.1.a"
+  spec.add_development_dependency "rake", "~> 12.0"
+  spec.add_development_dependency "minitest", ">= 5"
+end

data/bin/console

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+
+require "bundler/setup"
+require "akaza"
+
+# You can add fixtures and/or initialization code here to make experimenting
+# with your gem easier. You can also use a different console, if you like.
+
+# (If you use this, don't forget to add pry to your Gemfile!)
+# require "pry"
+# Pry.start
+
+require "irb"
+IRB.start(__FILE__)

data/bin/setup

@@ -0,0 +1,8 @@
+#!/usr/bin/env bash
+set -euo pipefail
+IFS=$'\n\t'
+set -vx
+
+bundle install
+
+# Do any other automated setup that you need to do here

data/bin/str_to_ws.rb

@@ -0,0 +1,12 @@
+# Convert string to Whitespace program that outputs the string.
+
+def main(str)
+  res = +""
+  str.chars.each do |ch|
+    res << "   #{ch.ord.to_s(2).gsub('1', "\t").gsub('0', ' ')}\n"
+    res << "	\n  "
+  end
+  res << "\n\n\n"
+end
+
+puts main ARGV[0]

data/lib/akaza.rb

@@ -0,0 +1,12 @@
+require "akaza/version"
+require 'akaza/ast_ext'
+require 'akaza/annotation'
+require 'akaza/parser'
+require 'akaza/vm'
+
+module Akaza
+  def self.eval(code, input: $stdin, output: $stdout)
+    commands = Parser.parse(code)
+    VM.new(commands, input, output).eval
+  end
+end

data/lib/akaza/annotation.rb

@@ -0,0 +1,35 @@
+module Akaza
+  module Annotation
+    using AstExt
+
+    def whitespace(method_name)
+      method = instance_method(method_name)
+      path = method.source_location[0]
+      ast = RubyVM::AbstractSyntaxTree.of(method)
+
+      placeholder = ast.find do |node|
+        case node
+        in [:COLON2, [:CONST, :Akaza], :Body] then true
+        else false
+        end
+      end
+
+      first_index = ast.scope_args.last_index(path) - ast.first_index(path)
+      last_index = -1
+      code = ast.to_source(path)[first_index..last_index]
+      define_method("__#{method_name}_whitespace") do |input, output|
+        Akaza.eval(code, input: input, output: output)
+      end
+
+      undef_method method_name
+      if placeholder
+        original_code = ast.to_source(path)
+        s, e = placeholder.first_index(path) - ast.first_index(path), placeholder.last_index(path) - ast.first_index(path)
+        original_code[s..e] = "(__#{method_name}_whitespace(input, output))"
+        class_eval original_code
+      else
+        alias_method method_name, "__#{method_name}_whitespace"
+      end
+    end
+  end
+end

data/lib/akaza/ast_ext.rb

@@ -0,0 +1,61 @@
+module Akaza
+  module AstExt
+    refine RubyVM::AbstractSyntaxTree::Node do
+      def to_source(path)
+        file_content(path)[first_index(path)..last_index(path)]
+      end
+
+      def traverse(&block)
+        block.call self
+        children.each do |child|
+          child.traverse(&block) if child.is_a?(RubyVM::AbstractSyntaxTree::Node)
+        end
+      end
+
+      def find(&block)
+        traverse do |node|
+          return node if block.call(node)
+        end
+        nil
+      end
+
+      def deconstruct
+        [type, *children]
+      end
+
+      # method node ext
+
+      def scope_body
+        children[2]
+      end
+
+      def scope_args
+        children[1]
+      end
+
+      def first_index(path)
+        return first_column if first_lineno == 1
+
+        lines = file_content(path).split("\n")
+        lines[0..(first_lineno - 2)].sum(&:size) +
+          first_lineno - 1 + # For \n
+          first_column
+      end
+
+      def last_index(path)
+        last_column = self.last_column - 1
+        return last_column if last_lineno == 1
+
+        lines = file_content(path).split("\n")
+        lines[0..(last_lineno - 2)].sum(&:size) +
+          last_lineno - 1 + # For \n
+          last_column
+      end
+
+      private def file_content(path)
+        @file_content ||= {}
+        @file_content[path] ||= File.binread(path)
+      end
+    end
+  end
+end

data/lib/akaza/parser.rb

@@ -0,0 +1,156 @@
+module Akaza
+  class Parser
+    EOF = Class.new(StandardError)
+
+    SPACE = " "
+    TAB = "\t"
+    NL = "\n"
+
+    def self.parse(code)
+      self.new(code).parse
+    end
+
+    def initialize(code)
+      @io = StringIO.new(code)
+    end
+
+    def parse
+      commands = []
+
+      loop do
+        case c = nextc
+        when SPACE
+          commands << parse_stack
+        when NL
+          commands << parse_flow
+        when TAB
+          case nextc
+          when SPACE
+            commands << parse_calc
+          when TAB
+            commands << parse_heap
+          when NL
+            commands << parse_io
+          end
+        else
+          raise "unreachable: #{c}"
+        end
+      rescue EOF
+        return commands
+      end
+    end
+
+    private def parse_stack
+      case ch = nextc
+      when SPACE
+        [:stack, :push, nextint]
+      else
+        case c = [ch, nextc]
+        when [NL, SPACE]
+          [:stack, :dup]
+        when [NL, TAB]
+          [:stack, :swap]
+        when [NL, NL]
+          [:stack, :pop]
+        else
+          raise "unreachable: #{c}"
+        end
+      end
+    end
+
+    private def parse_flow
+      case c = [nextc, nextc]
+      when [SPACE, SPACE]
+        [:flow, :def, nextlabel]
+      when [SPACE, TAB]
+        [:flow, :call, nextlabel]
+      when [SPACE, NL]
+        [:flow, :jump, nextlabel]
+      when [TAB, SPACE]
+        [:flow, :jump_if_zero, nextlabel]
+      when [TAB, TAB]
+        [:flow, :jump_if_neg, nextlabel]
+      when [TAB, NL]
+        [:flow, :end]
+      when [NL, NL]
+        [:flow, :exit]
+      else
+        raise "unreachable: #{c}"
+      end
+    end
+
+    private def parse_calc
+      case c = [nextc, nextc]
+      when [SPACE, SPACE]
+        [:calc, :add]
+      when [SPACE, TAB]
+        [:calc, :sub]
+      when [SPACE, NL]
+        [:calc, :multi]
+      when [TAB, SPACE]
+        [:calc, :div]
+      when [TAB, TAB]
+        [:calc, :mod]
+      else
+        raise "unreachable: #{c}"
+      end
+    end
+
+    private def parse_heap
+      case c = nextc
+      when SPACE
+        [:heap, :save]
+      when TAB
+        [:heap, :load]
+      else
+        raise "unreachable: #{c}"
+      end
+    end
+
+    private def parse_io
+      case c = [nextc, nextc]
+      when [SPACE, SPACE]
+        [:io, :write_char]
+      when [SPACE, TAB]
+        [:io, :write_num]
+      when [TAB, SPACE]
+        [:io, :read_char]
+      when [TAB, NL]
+        [:io, :read_num]
+      else
+        raise "unreachable: #{c}"
+      end
+    end
+
+    private def nextc
+      case ch = @io.read(1)
+      when SPACE, TAB, NL
+        return ch
+      when nil
+        raise EOF
+      else
+        # comment
+        nextc
+      end
+    end
+
+    private def nextint
+      sign = nextc
+      int = +""
+      while (ch = nextc) != NL
+        int << ch
+      end
+      res = int.gsub(SPACE, '0').gsub(TAB, '1').to_i(2)
+      res = 0 - res if sign == TAB
+      res
+    end
+
+    private def nextlabel
+      label = +""
+      while (ch = nextc) != NL
+        label << ch
+      end
+      label
+    end
+  end
+end

data/lib/akaza/version.rb

@@ -0,0 +1,3 @@
+module Akaza
+  VERSION = "0.1.0"
+end

data/lib/akaza/vm.rb

@@ -0,0 +1,87 @@
+module Akaza
+  class VM
+    def initialize(commands, input, output)
+      @commands = commands
+      @input = input
+      @output = output
+      @stack = []
+      @heap = {}
+      @call_stack = []
+      @index = 0
+      @labels = {}
+
+      prepare_label
+    end
+
+    def eval
+      while true
+        case @commands[@index]
+        in [:stack, :push, number]
+          @stack.push number
+        in [:stack, :dup]
+          @stack.push @stack.last
+        in [:stack, :swap]
+          @stack[-1], @stack[-2] = @stack[-2], @stack[-1]
+        in [:stack, :pop]
+          @stack.pop
+        in [:calc, :add]
+          @stack.push @stack.pop + @stack.pop
+        in [:calc, :sub]
+          @stack.push @stack.pop - @stack.pop
+        in [:calc, :multi]
+          @stack.push @stack.pop * @stack.pop
+        in [:calc, :div]
+          @stack.push @stack.pop / @stack.pop
+        in [:calc, :mod]
+          @stack.push @stack.pop % @stack.pop
+        in [:heap, :save]
+          val = @stack.pop
+          addr = @stack.pop
+          @heap[addr] = val
+        in [:heap, :load]
+          addr = @stack.pop
+          @stack.push @heap[addr]
+        in [:flow, :def, label]
+          # does nothing
+        in [:flow, :call, label]
+          raise "unknwon label:#{label}" unless @labels.key?(label)
+          @call_stack.push @index
+          @index = @labels[label]
+        in [:flow, :jump, label]
+          raise "unknwon label:#{label}" unless @labels.key?(label)
+          @index = @labels[label]
+        in [:flow, :jump_if_zero, label]
+          @index = @labels[label] if @stack.pop == 0
+        in [:flow, :jump_if_neg, label]
+          @index = @labels[label] if @stack.pop < 0
+        in [:flow, :end]
+          @index = @call_stack.pop
+        in [:flow, :exit]
+          return
+        in [:io, :write_char]
+          @output.write @stack.pop.chr
+        in [:io, :write_num]
+          @output.write @stack.pop.to_s
+        in [:io, :read_char]
+          addr = @stack.pop
+          @heap[addr] = @input.read(1).ord
+        in [:io, :read_num]
+          addr = @stack.pop
+          @heap[addr] = @input.readline.to_i
+        end
+        @index += 1
+      end
+    end
+
+    def prepare_label
+      @commands.each.with_index do |command, index|
+        case command
+        in [:flow, :def, label]
+          @labels[label] = index - 1
+        else
+          # skip
+        end
+      end
+    end
+  end
+end

metadata

@@ -0,0 +1,101 @@
+--- !ruby/object:Gem::Specification
+name: akaza
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Masataka Pocke Kuwabara
+autorequire: 
+bindir: exe
+cert_chain: []
+date: 2019-04-28 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 2.1.a
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 2.1.a
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '12.0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '12.0'
+- !ruby/object:Gem::Dependency
+  name: minitest
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '5'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '5'
+description: ''
+email:
+- kuwabara@pocke.me
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- Gemfile
+- Gemfile.lock
+- README.md
+- Rakefile
+- akaza.gemspec
+- bin/console
+- bin/setup
+- bin/str_to_ws.rb
+- lib/akaza.rb
+- lib/akaza/annotation.rb
+- lib/akaza/ast_ext.rb
+- lib/akaza/parser.rb
+- lib/akaza/version.rb
+- lib/akaza/vm.rb
+homepage: https://github.com/pocke/akaza
+licenses: []
+metadata:
+  homepage_uri: https://github.com/pocke/akaza
+  source_code_uri: https://github.com/pocke/akaza
+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: []
+rubygems_version: 3.0.3
+signing_key: 
+specification_version: 4
+summary: ''
+test_files: []