basic101 0.1.0 → 0.2.0

data/lib/basic101/parser/print_statement.rb

@@ -0,0 +1,19 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:print_statement) do
+      str('PRINT').as(:print) >> print_arguments.as(:print_arguments)
+    end
+
+    rule(:print_arguments) do
+      (space? >> (expression | print_separator)).repeat(0)
+    end
+
+    rule(:print_separator) do
+      match('[;,]').as(:print_separator)
+    end
+
+  end
+
+end

data/lib/basic101/parser/program.rb

@@ -0,0 +1,17 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    root(:program)
+
+    rule(:program) do
+      ((line >> (new_line >> line).repeat(0) >> new_line.maybe).maybe).as(:program)
+    end
+
+    rule(:line) do
+      (integer >> space? >> statements.as(:statements))
+    end
+
+  end
+
+end

data/lib/basic101/parser/randomize_statement.rb

@@ -0,0 +1,11 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:randomize_statement) do
+      str('RANDOMIZE').as(:randomize)
+    end
+
+  end
+
+end

data/lib/basic101/parser/read_statement.rb

@@ -0,0 +1,12 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:read_statement) do
+      str('READ').as(:read) >>
+        space? >> reference_list.as(:references)
+    end
+
+  end
+
+end

data/lib/basic101/parser/reference.rb

@@ -0,0 +1,36 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:scalar_reference_list) do
+      scalar_reference >>
+        (space? >> str(',') >>
+         space? >> scalar_reference).repeat(0)
+    end
+
+    rule(:reference_list) do
+      reference >> (space? >> str(',') >> space? >> reference).repeat(0)
+    end
+
+    rule(:reference) do
+      array_reference | scalar_reference
+    end
+
+    rule(:array_reference) do
+      identifier.as(:subscript_base) >> space? >> 
+        str('(') >> space? >> argument_list.as(:argument_list) >>
+        space? >> str(')')
+    end
+
+    rule(:scalar_reference) do
+      identifier.as(:scalar_reference)
+    end
+
+    rule(:argument_list) do
+      expression >> (space? >> str(',') >> space? >> expression).repeat(0)
+    end
+
+  end
+
+end
+

data/lib/basic101/parser/remark_statement.rb

@@ -0,0 +1,11 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:remark_statement) do
+      (str('REM') >> printable.repeat(0)).as(:remark)
+    end
+
+  end
+
+end

data/lib/basic101/parser/restore_statement.rb

@@ -0,0 +1,12 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:restore_statement) do
+      str('RESTORE').as(:restore) >>
+        (space? >> integer).maybe.as(:line_number)
+    end
+
+  end
+
+end

data/lib/basic101/parser/return_statement.rb

@@ -0,0 +1,11 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:return_statement) do
+      str('RETURN').as(:return)
+    end
+
+  end
+
+end

data/lib/basic101/parser/space.rb

@@ -0,0 +1,23 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:space) do
+      match(' ').repeat(1)
+    end
+
+    rule(:new_line) do
+      str("\r").maybe >> str("\n")
+    end
+
+    rule(:space?) do
+      space.maybe
+    end
+
+    rule(:printable) do
+      match('[[:print:]]')
+    end
+
+  end
+
+end

data/lib/basic101/parser/statements.rb

@@ -0,0 +1,36 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:statements) do
+      statement >>
+        (space? >> str(':') >>
+         space? >> statement).repeat(0) >>
+        space? >> str(':').maybe
+    end
+
+    rule(:statement) do
+      (goto_statement |
+       remark_statement |
+       print_statement |
+       if_statement |
+       randomize_statement |
+       input_statement |
+       end_statement |
+       dim_statement |
+       for_statement |
+       next_statement |
+       on_goto_statement |
+       data_statement |
+       read_statement |
+       gosub_statement |
+       return_statement |
+       stop_statement |
+       restore_statement |
+       define_function_statement |
+       let_statement)
+    end
+
+  end
+
+end

data/lib/basic101/parser/stop_statement.rb

@@ -0,0 +1,11 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:stop_statement) do
+      str('STOP').as(:stop)
+    end
+
+  end
+
+end

data/lib/basic101/parser/string.rb

@@ -0,0 +1,17 @@
+module Basic101
+
+  class Parser < Parslet::Parser
+
+    rule(:unquoted_string) do
+      match('(?=[[:print:]])[^,": ]').repeat(0).as(:string)
+    end
+
+    rule(:quoted_string) do
+      str('"') >>
+        match('(?=[[:print:]])[^"]').repeat(0).maybe.as(:string) >>
+        str('"')
+    end
+
+  end
+
+end

data/test/spec/basic_float_spec.rb

@@ -12,7 +12,7 @@ module Basic101
         it 'should return a basic integer' do
           a = described_class.new(12.0)
           b = a.simplest
-          b.should eq BasicInteger.new(12)
+          expect(b).to eq BasicInteger.new(12)
         end
       end
 
@@ -20,7 +20,7 @@ module Basic101
         it 'should return itself' do
           a = described_class.new(12.34)
           b = a.simplest
-          b.should eq a
+          expect(b).to eq a
         end
       end
 

data/test/spec/basic_object_spec.rb

@@ -13,7 +13,7 @@ module Basic101
     describe '#eval' do
       let(:runtime) {double Runtime}
       it 'should return itself' do
-        subject.eval(runtime).should eq subject
+        expect(subject.eval(runtime)).to eq subject
       end
     end
 

data/test/spec/basic_string_spec.rb

@@ -240,14 +240,14 @@ module Basic101
 
       describe '#print_string' do
         specify do
-          output.should_receive(:print).with('123')
+          expect(output).to receive(:print).with('123')
           subject.print_string(output)
         end
       end
 
       describe '#print_new_line' do
         specify do
-          output.should_receive(:print).with("\n")
+          expect(output).to receive(:print).with("\n")
           subject.print_new_line(output)
         end
       end

data/test/spec/input_reader_spec.rb

@@ -21,35 +21,35 @@ module Basic101
       context 'when unquoted' do
         let(:line) {%Q'abc,123'}
         specify do
-          input_reader.read_string.should eq 'abc'
+          expect(input_reader.read_string).to eq 'abc'
         end
       end
 
       context 'with comma' do
         let(:line) {%Q'"abc,def",123'}
         specify do
-          input_reader.read_string.should eq 'abc,def'
+          expect(input_reader.read_string).to eq 'abc,def'
         end
       end
 
       context 'with quote' do
         let(:line) {%Q'"abc""def",123'}
         specify do
-          input_reader.read_string.should eq 'abc"def'
+          expect(input_reader.read_string).to eq 'abc"def'
         end
       end
 
       context 'when blank' do
         let(:line) {",abc"}
         specify do
-          input_reader.read_string.should eq ''
+          expect(input_reader.read_string).to eq ''
         end
       end
 
       context 'when end of line' do
         let(:line) {""}
         specify do
-          input_reader.read_string.should eq ''
+          expect(input_reader.read_string).to eq ''
         end
       end
 
@@ -70,42 +70,42 @@ module Basic101
       context 'when integer' do
         let(:line) {"123,abc"}
         specify do
-          input_reader.read_numeric.should eq 123
+          expect(input_reader.read_numeric).to eq 123
         end
       end
 
       context 'when positive integer' do
         let(:line) {"+123,abc"}
         specify do
-          input_reader.read_numeric.should eq 123
+          expect(input_reader.read_numeric).to eq 123
         end
       end
 
       context 'when negative integer' do
         let(:line) {"-123,abc"}
         specify do
-          input_reader.read_numeric.should eq -123
+          expect(input_reader.read_numeric).to eq -123
         end
       end
 
       context 'when float' do
         let(:line) {"1.2,abc"}
         specify do
-          input_reader.read_numeric.should be_within(0.000001).of(1.2)
+          expect(input_reader.read_numeric).to be_within(0.000001).of(1.2)
         end
       end
 
       context 'when positive float' do
         let(:line) {"+1.2,abc"}
         specify do
-          input_reader.read_numeric.should be_within(0.000001).of(1.2)
+          expect(input_reader.read_numeric).to be_within(0.000001).of(1.2)
         end
       end
 
       context 'when negative float' do
         let(:line) {"-1.2,abc"}
         specify do
-          input_reader.read_numeric.should be_within(0.000001).of(-1.2)
+          expect(input_reader.read_numeric).to be_within(0.000001).of(-1.2)
         end
       end
 

data/test/spec/input_spec.rb

@@ -9,7 +9,7 @@ module Basic101
     let(:file) {StringIO.new(input_string)}
     let(:output) {double Output, :isatty => output_isatty}
     subject(:input) {described_class.new(output, file)}
-    before(:each) {file.stub(:isatty => input_isatty)}
+    before(:each) {allow(file).to receive(:isatty).and_return(input_isatty)}
 
     describe 'transcript' do
 
@@ -61,7 +61,7 @@ module Basic101
           let(:input_isatty) {false}
           let(:output_isatty) {false}
           specify do
-            output.should receive(:echo).with(input_string)
+            expect(output).to receive(:echo).with(input_string)
             input.read_line
           end
         end
@@ -70,7 +70,7 @@ module Basic101
           let(:input_isatty) {false}
           let(:output_isatty) {true}
           specify do
-            output.should receive(:echo).with(input_string)
+            expect(output).to receive(:echo).with(input_string)
             input.read_line
           end
         end
@@ -79,7 +79,7 @@ module Basic101
           let(:input_isatty) {true}
           let(:output_isatty) {false}
           specify do
-            output.should receive(:echo).with(input_string)
+            expect(output).to receive(:echo).with(input_string)
             input.read_line
           end
         end
@@ -88,7 +88,7 @@ module Basic101
           let(:input_isatty) {true}
           let(:output_isatty) {true}
           specify do
-            output.should_not receive(:print)
+            expect(output).to_not receive(:print)
             input.read_line
           end
         end

data/test/spec/output_spec.rb

@@ -134,16 +134,16 @@ module Basic101
 
     describe '#isatty' do
 
-      before(:each) {file.stub(:isatty => file_isatty)}
+      before(:each) {allow(file).to receive(:isatty).and_return(file_isatty)}
 
       context 'when file is tty' do
         let(:file_isatty) {true}
-        its(:isatty) {should be_true}
+        its(:isatty) {should be_truthy}
       end
 
       context 'when file is tty' do
         let(:file_isatty) {false}
-        its(:isatty) {should be_false}
+        its(:isatty) {should be_falsey}
       end
 
     end

data/test/spec/spec_helper.rb

@@ -2,11 +2,12 @@
 require 'simplecov'
 SimpleCov.command_name 'RSpec'
 
+require 'rspec/its'
+
 require_relative '../../lib/basic101'
 
 # See http://rubydoc.info/gems/rspec-core/RSpec/Core/Configuration
 RSpec.configure do |config|
-  config.treat_symbols_as_metadata_keys_with_true_values = true
 end
 
 glob = File.expand_path('support/**/*.rb', __dir__)