rasel 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: cae44ed33f59f745a94923f22d89396ab952da24
+  data.tar.gz: 9eb3e3ee26db600781c4086cacfa7455a44dbdd2
+SHA512:
+  metadata.gz: c18aa154e357e510ad159b108ed639454f30bcafe5b3cd9ef9d9b7002c2464632851180be9edf8d83424e1418f3f6058f2043c9291b020fb12b5bf7f388715ce
+  data.tar.gz: 0c4160519d76732eb8487a05582e6a22a7bbb6ed2487bfdc4f40676129ce410afae3fa99019ba6a899574c2aac053e4e9a29dbbe7294a5879c46caeb5db1995d

data/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2020 Victor Maslov
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

data/bin/rasel

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+Signal.trap(:INT){ abort "\n(interrupted by SIGINT)" }
+
+require_relative "../lib/rasel"
+exit RASEL(ARGF.read, STDOUT).exitcode

data/lib/rasel.rb

@@ -0,0 +1,96 @@
+Encoding::default_internal = Encoding::default_external = "ASCII-8BIT"
+END { RubyProf::FlatPrinter.new(RubyProf.stop).print STDERR, min_percent: 1 } if ENV["PROFILE"]
+
+def RASEL source, stdout = StringIO.new, stdin = STDIN
+  lines = source.tap{ |_| fail "empty source" if _.empty? }.gsub(/ +$/,"").split(?\n)
+  code = lines.map{ |_| _.ljust(lines.map(&:size).max).bytes }
+  stack = []
+  pop = ->{ stack.pop || 0r }
+  dx, dy = 1, 0
+  x, y = -1, 0
+
+  history = {}
+  move = lambda do
+    y = (y + dy) % code.size
+    x = (x + dx) % code[y].size
+    next unless ENV.key?("DEBUG_HISTORY") && code[y][x] == 32
+    history[[x, y]] ||= 0
+    history[[x, y]] += 1
+  end
+  time = Time.now
+  thread = Thread.new do
+    loop do
+      unless Time.now < time + 1
+        time += 1
+        p history.sort_by(&:last).last(10)
+      end
+      sleep 0.1
+    end
+  end if ENV.key? "DEBUG_HISTORY"
+  if ENV["PROFILE"]
+    require "ruby-prof"
+    RubyProf.start
+  end
+
+  reverse = ->{ dy, dx = -dy, -dx }
+  stringmode = false
+  error = Proc.new{ return Struct.new(:stdout, :stack, :exitcode).new stdout, stack, 255 }
+  loop do
+    move[]
+    byte = code[y][x]
+    char = byte.chr
+    STDERR.puts [char, stringmode, (stack.last Integer ENV["DEBUG"] rescue stack)].inspect if ENV.key? "DEBUG"
+    next stack.push byte if stringmode && char != ?"
+    return Struct.new(:stdout, :stack, :exitcode).new stdout, stack, (
+      t = pop[]
+      1 != t.denominator || t < 0 || t > 255 ? 255 : t.to_i
+    ) if char == ?@
+    case char
+      when ?\s
+
+      when ?0..?9, ?A..?Z ; stack.push char.to_i(36).to_r
+      when ?" ; stringmode ^= true
+      when ?# ; move[]
+      when ?$ ; pop[]
+      when ?: ; stack.concat [pop[]] * 2
+      when ?- ; stack.push -(pop[] - pop[])
+      when ?\\ ; stack.concat [pop[], pop[]]
+      when ?/ ; b, a = pop[], pop[]; stack.push (b.zero? ? 0 : a / b)
+      when ?% ; b, a = pop[], pop[]; stack.push (b.zero? ? 0 : a % b)
+      when ?v ; dx, dy =  0,  1
+      when ?> ; dx, dy =  1,  0
+      when ?^ ; dx, dy =  0, -1
+      when ?< ; dx, dy = -1,  0
+      when ?? ; move[] if pop[] > 0
+      when ?a
+        t = pop[]
+        error[] if 0 > t || 1 != t.denominator
+        stack.push t.zero? ? 0 : stack[-t] || 0
+      when ?. ; stdout.print "#{_ = pop[]; 1 != _.denominator ? _.to_f : _.to_i} "
+      when ?, ; stdout.print "#{_ = pop[]; 1 != _.denominator ? error[] : _ < 0 || _ > 255 ? error[] : _.to_i.chr}"
+      when ?~ ; if c = stdin.getbyte then stack.push c else reverse[] end
+      when ?&
+        getc = ->{ stdin.getc or (reverse[]; throw nil) }
+        catch nil do
+          nil until (?0..?9).include? c = getc[]
+          while (?0..?9).include? cc = getc[] ; c << cc end
+          stdin.ungetbyte cc
+          stack.push c.to_i
+        end
+      when ?j
+        t = pop[]
+        error[] if 1 != t.denominator
+        if 0 < t
+          y = (y + dy * t.to_i) % code.size
+          x = (x + dx * t.to_i) % code[y].size
+        else
+          reverse[]
+          y = (y - dy * t.to_i) % code.size
+          x = (x - dx * t.to_i) % code[y].size
+          reverse[]
+        end
+
+      else ; error[]
+    end
+  end
+end

data/rasel.gemspec

@@ -0,0 +1,18 @@
+Gem::Specification.new do |spec|
+  spec.name         = "rasel"
+  spec.version      = "0.0.1"
+  spec.summary      = "Random Access Stack Esoteric Language"
+
+  spec.author       = "Victor Maslov aka Nakilon"
+  spec.email        = "nakilon@gmail.com"
+  spec.license      = "MIT"
+  spec.metadata     = {"source_code_uri" => "https://github.com/nakilon/rasel"}
+
+  spec.add_development_dependency "minitest-around"
+  spec.add_development_dependency "ruby-prof" unless ENV["CI"]
+
+  spec.bindir       = "bin"
+  spec.executable   = "rasel"
+  spec.test_file    = "test.rb"
+  spec.files        = %w{ LICENSE rasel.gemspec lib/rasel.rb bin/rasel }
+end

data/test.rb

@@ -0,0 +1,165 @@
+require "minitest/autorun"
+require "minitest/around/spec"
+require "timeout"
+
+require_relative "lib/rasel"
+
+# TODO: assert that all RASEL() return with 0 exit code unless the opposite is expected
+
+describe "tests" do
+  around{ |test| Timeout.timeout(1){ test.call } }
+  def assert_stack expectation, *args
+    result = RASEL *args
+    assert_equal expectation.map(&:to_r), [*result.stack, result.exitcode]
+  end
+
+  describe "executable" do
+    it "hello world" do
+      require "open3"
+      require "tempfile"
+      begin
+        file = Tempfile.new "temp.rasel"
+        file.write 'A"!dlroW ,olleH">:?@,Hj'
+        file.flush
+        string, status = Open3.capture2e "./bin/rasel #{file.path}"
+      ensure
+        file.close
+        file.unlink
+      end
+      assert_equal [0, "Hello, World!\n"], [status.exitstatus, string]
+    end
+  end
+
+  describe "non-instructional" do
+    it "trim spaces and empty lines" do
+      assert_stack [64, 32, 118],
+        " v @\n" +
+        "\n" +
+        " > v\n" +
+        "   \"\n" +
+        "\n \n\n"
+      assert_stack [1, 2],
+        '  v@ '"\n"\
+        '   2 '"\n"\
+        '   @ '"\n"\
+        '@v># '"\n"\
+        ' >1v '"\n"\
+        '   # '"\n"\
+        '     '
+    end
+    it "exit status code 255 on invalid character" do
+      assert_equal 255, RASEL("Ы").exitcode
+    end
+    it "print to STDOUT" do
+      # TODO: mock
+      begin
+        STDOUT, stdout = StringIO.new, STDOUT
+        RASEL ",@", STDOUT
+      ensure
+        STDOUT, stdout = stdout, STDOUT
+      end
+      assert_equal ?\0, stdout.string
+    end
+    it "print to StringIO" do
+      string = StringIO.new
+      RASEL ",@", string
+      assert_equal ?\0, string.string
+    end
+  end
+
+  describe "instructional" do
+
+    describe "old" do
+      it '"'  do assert_stack ["@".ord], '"@' end
+      it '#' do assert_stack [1], '##1@' end
+      it '#"Ы' do assert_stack [64, 208, 171, 35, 64], '#@"@Ы' end
+      it '#><^vЫ' do
+        assert_stack [1, 2, 3],
+          <<~HEREDOC
+            1v@
+            v>2\#
+            >3v
+              \#
+                Ы
+          HEREDOC
+      end
+      it "0..9, A..Z" do assert_stack [*0..35], "#{[*0..9].join}#{[*?A..?Z].join}@" end
+      it "$"  do assert_stack [1], "$12$@" end
+      it ":" do assert_stack [0, 0, 1, 1], ":1:@" end
+      it ?\\ do assert_stack [0, 1, 0], "\\1\\@" end
+      it "><^v" do
+        assert_stack [1, 2, 3, 4],
+          <<~HEREDOC
+            <@^1
+            3v>
+            5425
+          HEREDOC
+      end
+      it "-" do assert_stack [-90000, 0], "--"+"9-"*10000+"0@" end
+      it "/" do assert_stack [0, 0, 0.5, 1, 2], "//10/12/22/21/@" end
+      it "%" do assert_stack [0, 0, 1, 0, 0], "%%10%12%22%21%@" end
+      it "/-" do assert_equal [-0.5], RASEL("1-2/0@").stack end
+      it "%-" do assert_equal [1], RASEL("1-2%0@").stack end
+      it ".-" do assert_equal "0 10 255 0 ",        RASEL(".A."+"5-"*51+"-..@").stdout.string end
+      it ",-" do assert_equal "\x00\x0A\xFF\x00".b, RASEL(",A,"+"5-"*51+"-,,@").stdout.string end
+      it ".- negative float" do assert_equal "-0.3333333333333333 ", RASEL("13/-.@").stdout.string end
+      it ",- errors" do
+        assert_equal 255, RASEL("1-,@").exitcode
+        assert_equal 255, RASEL("GG*,@").exitcode
+        assert_equal 255, RASEL("12/,@").exitcode
+      end
+    end
+
+    describe "changed" do
+      it "@" do
+        assert_equal 0, RASEL("@").exitcode
+        assert_equal 2, RASEL("2@").exitcode
+        assert_equal 255, RASEL("2-@").exitcode
+        assert_equal 255, RASEL("12/@").exitcode
+      end
+      it "~" do
+        assert_stack [2], "~1@2", StringIO.new, StringIO.new
+        assert_stack [0, 10, 255, 0], "~~~~@", StringIO.new,
+          StringIO.new.tap{ |s| [0, 10, 255, 0].reverse_each &s.method(:ungetbyte) }
+      end
+      it "&" do
+        assert_stack [2], "&1@2", StringIO.new, StringIO.new
+        [0, 10, 255].each do |c|
+          assert_stack [12, 34, c], "&&~@", StringIO.new,
+            StringIO.new.tap{ |s| "#{c.chr}-12#{c.chr}-34#{c.chr}".bytes.reverse_each &s.method(:ungetbyte) }
+        end
+      end
+      [
+        [[1], ""],
+        [[0], "1"],
+        [[1], "1-"],
+        [[0], "12/"],
+        [[1], "12/-"],
+      ].each do |expectation, code|
+        it "? #{code}" do
+          assert_stack expectation, "#{code}?1@"
+          assert_stack expectation, "v#{code}?1@".chars.zip.transpose.join(?\n)
+          assert_stack expectation, "<@1?#{code.reverse}"
+          assert_stack expectation, "^@1?#{code.reverse}".chars.zip.transpose.join(?\n)
+        end
+      end
+    end
+
+    describe "new" do
+      # TODO: non-instructional-like tests about jumping over spaces on the edges
+      it "j" do assert_stack [1], "j1@" end
+      it 'j"' do assert_stack [5, 6], '3j2"456@' end
+      it "j-" do assert_stack [2, 3], "6-j123@" end
+      it "exit status code 255 on non-integer jump" do
+        assert_equal 255, RASEL("12/j@").exitcode
+      end
+      it "a:." do assert_equal "2 0 0 ", RASEL("21a:.a:.a:.@").stdout.string end
+      it "exit status code 255 on negative 'take at' argument" do
+        assert_equal 255, RASEL("1-a@").exitcode
+        assert_equal 255, RASEL("12/a@").exitcode
+      end
+    end
+
+  end
+
+end

metadata

@@ -0,0 +1,79 @@
+--- !ruby/object:Gem::Specification
+name: rasel
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Victor Maslov aka Nakilon
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2020-12-16 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: minitest-around
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+- !ruby/object:Gem::Dependency
+  name: ruby-prof
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '0'
+description: 
+email: nakilon@gmail.com
+executables:
+- rasel
+extensions: []
+extra_rdoc_files: []
+files:
+- LICENSE
+- bin/rasel
+- lib/rasel.rb
+- rasel.gemspec
+- test.rb
+homepage: 
+licenses:
+- MIT
+metadata:
+  source_code_uri: https://github.com/nakilon/rasel
+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.5.2.3
+signing_key: 
+specification_version: 4
+summary: Random Access Stack Esoteric Language
+test_files:
+- test.rb