rasel 0.0.1 → 0.1.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: cae44ed33f59f745a94923f22d89396ab952da24
-  data.tar.gz: 9eb3e3ee26db600781c4086cacfa7455a44dbdd2
+  metadata.gz: 77212c7620ca6230ba0c4562b45787671cffbb21
+  data.tar.gz: ebdcac80864dffb0df2bebb02d2a7f15b5362f89
 SHA512:
-  metadata.gz: c18aa154e357e510ad159b108ed639454f30bcafe5b3cd9ef9d9b7002c2464632851180be9edf8d83424e1418f3f6058f2043c9291b020fb12b5bf7f388715ce
-  data.tar.gz: 0c4160519d76732eb8487a05582e6a22a7bbb6ed2487bfdc4f40676129ce410afae3fa99019ba6a899574c2aac053e4e9a29dbbe7294a5879c46caeb5db1995d
+  metadata.gz: 3bb914dd708affb43b1e49464e6309cfc1efc63a6836f32cde276cf84b6a2366a75832cf1eb25f84f15e48f5921427be7a36c2f32dcc871b6e70f83659927123
+  data.tar.gz: 128a0eb852b51f588cc7d4eb9461e9be0321a9983a24bcc8e33ba0ce5e2a057102702ce052fcbb027239932d742a68f3d40dc3ecc039219a19b2e1e2c8fd886d

data/lib/rasel.rb

@@ -40,6 +40,7 @@ def RASEL source, stdout = StringIO.new, stdin = STDIN
     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[]
@@ -68,27 +69,21 @@ def RASEL source, stdout = StringIO.new, stdin = STDIN
         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 ?~ ; if _ = stdin.getbyte then stack.push _; move[] end
       when ?&
-        getc = ->{ stdin.getc or (reverse[]; throw nil) }
+        getc = ->{ stdin.getc or throw nil }
         catch nil do
           nil until (?0..?9).include? c = getc[]
-          while (?0..?9).include? cc = getc[] ; c << cc end
-          stdin.ungetbyte cc
+          while (?0..?9).include? cc = stdin.getc ; c << cc end
+          stdin.ungetbyte cc if cc
           stack.push c.to_i
+          move[]
         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
+        y = (y + dy * t.to_i) % code.size
+        x = (x + dx * t.to_i) % code[y].size
 
       else ; error[]
     end

data/rasel.gemspec

@@ -1,6 +1,6 @@
 Gem::Specification.new do |spec|
   spec.name         = "rasel"
-  spec.version      = "0.0.1"
+  spec.version      = "0.1.0"
   spec.summary      = "Random Access Stack Esoteric Language"
 
   spec.author       = "Victor Maslov aka Nakilon"

data/test.rb

@@ -14,19 +14,17 @@ describe "tests" do
   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
+    require "open3"
+    [
+      ["helloworld.rasel", 0, "Hello, World!\n"],
+      ["naive_if_zero.rasel", 0, "false\nfalse\ntrue\nfalse\nfalse\n"],
+      ["short_if_zero.rasel", 0, "false\nfalse\ntrue\nfalse\nfalse\n"],
+      ["cat.rasel < examples/cat.rasel", 0, File.read("examples/cat.rasel")],
+    ].each do |cmd, expected_status, expected_stdout|
+      it cmd do
+        string, status = Open3.capture2e "./bin/rasel examples/#{cmd}"
+        assert_equal [expected_status, expected_stdout], [status.exitstatus, string]
       end
-      assert_equal [0, "Hello, World!\n"], [status.exitstatus, string]
     end
   end
 
@@ -118,15 +116,15 @@ describe "tests" do
         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,
+        assert_stack [1], "~1@2", StringIO.new, StringIO.new
+        assert_stack [0, 10, 255, 0], "~0~0~0~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
+        assert_stack [1], "&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) }
+          assert_stack [12, 34, c, 56], "&0&0~0&0@", StringIO.new,
+            StringIO.new.tap{ |s| "#{c.chr}-12#{c.chr}-34#{c.chr}-56".bytes.reverse_each &s.method(:ungetbyte) }
         end
       end
       [

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: rasel
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.1.0
 platform: ruby
 authors:
 - Victor Maslov aka Nakilon
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2020-12-16 00:00:00.000000000 Z
+date: 2020-12-17 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: minitest-around