basic101 0.2.0 → 1.0.1

data/.rspec

@@ -1,2 +0,0 @@
---color
---format progress

data/.simplecov

@@ -1 +0,0 @@
-SimpleCov.start

data/.travis.yml

@@ -1,4 +0,0 @@
-language: ruby
-rvm:
-- "2.0"
-- "2.1"

data/.yardopts

@@ -1,7 +0,0 @@
--o doc-api
---exclude '[~#]$'
---readme README.md
---files LICENSE.md
---files Changelog.md
---files doc/*.md
-lib/**/*.rb

data/rake_tasks/default.rake

@@ -1 +0,0 @@
-task :default => [:test]

data/rake_tasks/integration.rake

@@ -1,8 +0,0 @@
-desc 'Run integration tests'
-namespace :test do
-  task :integration do
-    command = File.expand_path('../test/integration/integration_test.rb',
-                               __dir__)
-    sh command
-  end
-end

data/rake_tasks/jeweler.rake

@@ -1,28 +0,0 @@
-# encoding: utf-8
-
-require 'jeweler'
-
-README_PATH = File.expand_path('../README.md', File.dirname(__FILE__))
-
-def extract_description_from_readme
-  readme = File.open(README_PATH, 'r', &:read)
-  s = readme[/^# basic101.*\n+((?:.*\n)+?)\n*##/i, 1]
-  unless s
-    raise 'Unable to extract description from readme'
-  end     
-  s.gsub(/\n/, ' ').strip
-end
-
-Jeweler::Tasks.new do |gem|
-  # gem is a Gem::Specification... see
-  # http://docs.rubygems.org/read/chapter/20 for more options
-  gem.name = 'basic101'
-  gem.homepage = 'http://github.com/wconrad/basic101'
-  gem.license = 'MIT'
-  gem.summary = %Q{Circa 1980 basic intepreter}
-  gem.description = extract_description_from_readme
-  gem.email = 'wconrad@yagni.com'
-  gem.authors = ['Wayne Conrad']
-  # dependencies defined in Gemfile
-end
-Jeweler::RubygemsDotOrgTasks.new

data/rake_tasks/spec.rake

@@ -1,8 +0,0 @@
-require 'rspec/core/rake_task'
-
-RSpec::Core::RakeTask.new 'test:spec' do |t|
-  t.pattern = File.join('test', t.pattern)
-  t.verbose = false
-end
-
-task :spec => ['test:spec']

data/rake_tasks/test.rake

@@ -1,2 +0,0 @@
-desc 'Run all tests'
-task :test => ['test:spec', 'test:integration']

data/rake_tasks/yard.rake

@@ -1,3 +0,0 @@
-require 'yard'
-YARD::Rake::YardocTask.new do |t|
-end

data/test/integration/arguments.rb

@@ -1,25 +0,0 @@
-module Integration
-
-  class Arguments
-
-    attr_reader :patterns
-    attr_reader :train
-
-    def initialize(argv)
-      @train = false
-      @patterns = []
-      OptionParser.new do |opts|
-        opts.banner << " [patterns]"
-        opts.on('-t', '--train', 'Train tests') do |v|
-          @train = v
-        end
-      end.parse!(argv)
-      @patterns = argv
-    rescue OptionParser::ParseError => e
-      $stderr.puts e
-      exit 1
-    end
-
-  end
-
-end

data/test/integration/errors.rb

@@ -1,7 +0,0 @@
-module Integration
-
-  class Error < StandardError ; end
-
-  class MaxOutputLines < Error ; end
-
-end

data/test/integration/integration_test.rb

@@ -1,28 +0,0 @@
-#!/usr/bin/env ruby
-
-# Must come first
-require 'simplecov'
-SimpleCov.command_name 'Integration'
-
-lib_path = File.expand_path('../../lib', __dir__)
-unless $LOAD_PATH.include?(lib_path)
-  $:.unshift lib_path
-end
-
-require 'fileutils'
-require 'forwardable'
-require 'optparse'
-require 'pathname'
-require 'stringio'
-require 'tempfile'
-require 'yaml'
-
-require 'basic101'
-
-require_relative 'arguments'
-require_relative 'errors'
-require_relative 'main'
-require_relative 'output_file'
-require_relative 'test'
-
-Integration::Main.new(ARGV).run if $0 == __FILE__

data/test/integration/main.rb

@@ -1,49 +0,0 @@
-module Integration
-
-  class Main
-
-    def initialize(argv)
-      @args = Arguments.new(argv)
-    end
-
-    def run
-      tests = load_tests
-      tests.each do |test|
-        test.run
-        test.print_progress
-      end
-      puts
-      if @args.train
-        tests.each(&:train)
-      else
-        tests.each(&:print_failure)
-      end
-      exit exitcode(tests)
-    end
-
-    private
-
-    def load_tests
-      glob = File.join(test_dir, '**', '*' + Test::BASIC_EXTENSION)
-      Dir[glob].map do |basic_path|
-        Test.new(basic_path)
-      end.select do |test|
-        test.matches_patterns?(@args.patterns)
-      end
-    end
-
-    def test_dir
-      File.expand_path('tests', __dir__)
-    end
-
-    def exitcode(tests)
-      if tests.all?(&:passed?)
-        0
-      else
-        1
-      end
-    end
-
-  end
-
-end

data/test/integration/output_file.rb

@@ -1,40 +0,0 @@
-module Integration
-
-  class OutputFile
-
-    extend Forwardable
-
-    attr_accessor :max_lines
-
-    def initialize
-      @out = StringIO.new
-      @total_lines = 0
-      @max_lines = nil
-    end
-
-    def print(*s)
-      raise_if_too_many_lines(s)
-      @out.print(*s)
-    end
-
-    def puts(*s)
-      raise_if_too_many_lines(s)
-      puts_unchecked(*s)
-    end
-
-    def_delegator :@out, :isatty
-    def_delegator :@out, :flush
-    def_delegator :@out, :string
-    def_delegator :@out, :puts, :puts_unchecked
-
-    def raise_if_too_many_lines(*s)
-      num_lines = s.join.scan(/\n/).size
-      @total_lines += num_lines
-      if max_lines && @total_lines >= max_lines
-        raise MaxOutputLines, "Maximum output lines reached"
-      end
-    end
-
-  end
-
-end

data/test/integration/test.rb

@@ -1,135 +0,0 @@
-module Integration
-
-  class Test
-
-    BASIC_EXTENSION = '.bas'
-
-    def initialize(basic_path)
-      @basic_path = basic_path
-      create_input
-      create_expected_output
-      @expected_output = read_expected_output
-    end
-
-    def matches_patterns?(patterns)
-      return true if patterns.empty?
-      path = Pathname.new(@basic_path)
-      path = path.relative_path_from(base_path)
-      path.to_s =~ Regexp.union(patterns)
-    end
-
-    def run
-      output_file = OutputFile.new
-      output_file.max_lines = options['max_output_lines']
-      File.open(input_path, 'r') do |input_file|
-        begin
-          program = Basic101::Program.load_file(@basic_path)
-          runtime = Basic101::Runtime.new(:input_file => input_file,
-                                          :output_file => output_file,
-                                          :program => program)
-          runtime.run
-        rescue Error => e
-          output_file.puts_unchecked e
-        rescue Parslet::ParseFailed => e
-          output_file.puts e
-        rescue Basic101::Error => e
-          output_file.puts e
-        rescue Exception => e
-          output_file.puts e, e.backtrace
-        end
-      end
-      @output = output_file.string
-    end
-
-    def print_progress
-      print progress_character
-    end
-
-    def print_failure
-      return if passed?
-      puts
-      puts "Failed: #{File.basename(@basic_path)}"
-      actual_output_file = Tempfile.new(expected_output_filename)
-      actual_output_file.write @output
-      actual_output_file.close
-      command = [
-        'diff',
-        '-u',
-        expected_output_path,
-        actual_output_file.path,
-      ].join(' ')
-      system(command)
-      actual_output_file.unlink
-    end
-
-    def train
-      File.open(expected_output_path, 'w') do |file|
-        file.write @output
-      end
-    end
-    
-    def passed?
-      @output == @expected_output
-    end
-
-    private
-
-    DEFAULT_OPTIONS = {
-      'max_output_lines' => 10_000
-    }
-
-    def base_path
-      Pathname.new(__dir__) + 'tests'
-    end
-
-    def progress_character
-      if passed?
-        '.'
-      else
-        'F'
-      end
-    end
-
-    def create_input
-      FileUtils.touch(input_path)
-    end
-
-    def create_expected_output
-      FileUtils.touch(expected_output_path)
-    end
-
-    def read_expected_output
-      File.read(expected_output_path)
-    end
-
-    def expected_output_filename
-      File.basename(expected_output_path)
-    end
-
-    def input_path
-      path_without_extension + '.input'
-    end
-
-    def expected_output_path
-      path_without_extension + '.output'
-    end
-
-    def options_path
-      path_without_extension + '.options'
-    end
-
-    def options
-      if File.exists?(options_path)
-        YAML.load_file(options_path)
-      else
-        DEFAULT_OPTIONS
-      end
-    end
-
-    def path_without_extension
-      @basic_path.chomp('.bas')
-    end
-
-  end
-
-end

data/test/integration/tests/basic_computer_games/23-match.input

@@ -1 +0,0 @@
-3

data/test/integration/tests/basic_computer_games/23-match.output

@@ -1,29 +0,0 @@
-                               23 MATCHES
-               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
-
-
-
- THIS IS A GAME CALLED '23 MATCHES'.
-
-WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE
-MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE
-THE LAST MATCH.
-
-LET'S FLIP A COIN TO SEE WHO GOES FIRST.
-IF IT COMES UP HEADS, I WILL WIN THE TOSS.
-
-HEADS! I WIN! HA! HA!
-PREPARE TO LOSE, MEATBALL-NOSE!!
-
-I TAKE 2 MATCHES
-THE NUMBER OF MATCHES IS NOW 21 
-
-YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES.
-HOW MANY DO YOU WISH TO REMOVE            ? 3
-THERE ARE NOW 18 MATCHES REMAINING.
-MY TURN ! I REMOVE 1 MATCHES
-THE NUMBER OF MATCHES IS NOW 17 
-
-YOUR TURN -- YOU MAY TAKE 1, 2 OR 3 MATCHES.
-HOW MANY DO YOU WISH TO REMOVE            ? 
-Error on line 310: No more input

data/test/integration/tests/basic_computer_games/3dplot.output

@@ -1,47 +0,0 @@
-                              SLOTS
-               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
-
-
-
-
-                         *
-                     *   *  *
-                  *  *   *  *   *
-              *   *  *   *  *   *  *
-              *   *  *   *  *   *  *
-              *   *  *   *  *   *  *
-           *  *   *  *   *  *   *  *   *
-           *  *   *   *  *   *  *  *   *
-           *  *   *   *   *  *  *  *   *
-       *   *  *   *    *  *   * *  *   *  *
-       *   *  *    *   *    * *  * *   *  *
-       *   *   *   *     *   *  **  *  *  *
-       *   *   *    *      *    * * *  *  *
-       *   *   *     *       *    * *  *  *
-       *   *   *      *        *      **  *
-       *   *    *       *         *       *
-       *   *    *        *           *       *
-       *   *     *         *            *        *
-       *   *     *          *             *         *
-       *   *     *          *               *         *
-    *  *   *     *           *              *          *
-       *   *     *          *               *         *
-       *   *     *          *             *         *
-       *   *     *         *            *        *
-       *   *    *        *           *       *
-       *   *    *       *         *       *
-       *   *   *      *        *      **  *
-       *   *   *     *       *    * *  *  *
-       *   *   *    *      *    * * *  *  *
-       *   *   *   *     *   *  **  *  *  *
-       *   *  *    *   *    * *  * *   *  *
-       *   *  *   *    *  *   * *  *   *  *
-           *  *   *   *   *  *  *  *   *
-           *  *   *   *  *   *  *  *   *
-           *  *   *  *   *  *   *  *   *
-              *   *  *   *  *   *  *
-              *   *  *   *  *   *  *
-              *   *  *   *  *   *  *
-                  *  *   *  *   *
-                     *   *  *
-                         *

data/test/integration/tests/basic_computer_games/aceyducy.input

@@ -1,8 +0,0 @@
-10
-20
-30
-40
-50
-60
-50
-NO

data/test/integration/tests/basic_computer_games/aceyducy.output

@@ -1,78 +0,0 @@
-                          ACEY DUCEY CARD GAME
-               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
-
-
-ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER 
-THE DEALER (COMPUTER) DEALS TWO CARDS FACE UP
-YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING
-ON WHETHER OR NOT YOU FEEL THE CARD WILL HAVE
-A VALUE BETWEEN THE FIRST TWO.
-IF YOU DO NOT WANT TO BET, INPUT A 0
-YOU NOW HAVE 100 DOLLARS.
-
-HERE ARE YOUR NEXT TWO CARDS: 
- 9 
-QUEEN
-
-WHAT IS YOUR BET? 10
- 10 
-YOU WIN!!!
-YOU NOW HAVE 110 DOLLARS.
-
-HERE ARE YOUR NEXT TWO CARDS: 
- 9 
-ACE
-
-
-WHAT IS YOUR BET? 20
- 2 
-SORRY, YOU LOSE
-YOU NOW HAVE 90 DOLLARS.
-
-HERE ARE YOUR NEXT TWO CARDS: 
- 8 
-QUEEN
-
-WHAT IS YOUR BET? 30
- 3 
-SORRY, YOU LOSE
-YOU NOW HAVE 60 DOLLARS.
-
-HERE ARE YOUR NEXT TWO CARDS: 
- 5 
-QUEEN
-
-WHAT IS YOUR BET? 40
- 8 
-YOU WIN!!!
-YOU NOW HAVE 100 DOLLARS.
-
-HERE ARE YOUR NEXT TWO CARDS: 
- 10 
-JACK
-
-WHAT IS YOUR BET? 50
- 7 
-SORRY, YOU LOSE
-YOU NOW HAVE 50 DOLLARS.
-
-HERE ARE YOUR NEXT TWO CARDS: 
- 8 
-JACK
-
-WHAT IS YOUR BET? 60
-SORRY, MY FRIEND, BUT YOU BET TOO MUCH.
-YOU HAVE ONLY  50  DOLLARS TO BET.
-
-WHAT IS YOUR BET? 50
- 2 
-SORRY, YOU LOSE
-
-
-SORRY, FRIEND, BUT YOU BLEW YOUR WAD.
-
-
-TRY AGAIN (YES OR NO)? NO
-
-
-O.K., HOPE YOU HAD FUN!

data/test/integration/tests/basic_computer_games/amazing.input

@@ -1 +0,0 @@
-10,10

data/test/integration/tests/basic_computer_games/amazing.output

@@ -1,32 +0,0 @@
-                            AMAZING PROGRAM
-               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
-
-
-
-
-WHAT ARE YOUR WIDTH AND LENGTH? 10,10
-
-
-
-
-.--.--.--.--.--.  .--.--.--.--.
-I        I        I           I
-:  :  :  :  :--:  :--:--:--:  .
-I  I  I        I              I
-:  :--:--:--:  :  :--:--:--:--.
-I  I        I  I  I  I        I
-:  :  :--:  :  :  :  :  :--:  .
-I     I     I  I     I  I     I
-:--:--:  :--:--:--:  :  :--:  .
-I     I     I     I        I  I
-:  :  :--:  :  :--:--:--:  :  .
-I  I     I     I           I  I
-:  :  :--:--:  :  :--:--:--:  .
-I  I  I     I  I  I     I     I
-:  :--:  :  :  :  :  :  :  :  .
-I  I     I     I  I  I     I  I
-:  :  :--:--:--:  :  :--:--:--.
-I  I           I  I           I
-:  :  :--:--:  :  :--:--:--:  .
-I     I        I  I           I
-:--:--:--:--:--:  :--:--:--:--.

data/test/integration/tests/basic_computer_games/animal.input

@@ -1,17 +0,0 @@
-Y
-YES
-NO
-JELLYFISH
-DOES IT HAVE SCALES
-NO
-YES
-NO
-NO
-GIRAFFE
-DOES IT HAVE A LONG NECK
-YES
-YES
-YES
-YES
-YES
-LIST

data/test/integration/tests/basic_computer_games/animal.output

@@ -1,38 +0,0 @@
-                                ANIMAL
-               CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY
-
-
-
-PLAY 'GUESS THE ANIMAL'
-
-THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT.
-
-ARE YOU THINKING OF AN ANIMAL? Y
-DOES IT SWIM? YES
-IS IT A FISH? NO
-THE ANIMAL YOU WERE THINKING OF WAS A ? JELLYFISH
-PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A
-JELLYFISH FROM A FISH
-? DOES IT HAVE SCALES
-FOR A JELLYFISH THE ANSWER WOULD BE ? NO
-ARE YOU THINKING OF AN ANIMAL? YES
-DOES IT SWIM? NO
-IS IT A BIRD? NO
-THE ANIMAL YOU WERE THINKING OF WAS A ? GIRAFFE
-PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A
-GIRAFFE FROM A BIRD
-? DOES IT HAVE A LONG NECK
-FOR A GIRAFFE THE ANSWER WOULD BE ? YES
-ARE YOU THINKING OF AN ANIMAL? YES
-DOES IT SWIM? YES
-DOES IT HAVE SCALES? YES
-IS IT A FISH? YES
-WHY NOT TRY ANOTHER ANIMAL?
-ARE YOU THINKING OF AN ANIMAL? LIST
-
-ANIMALS I ALREADY KNOW ARE:
-FISH           JELLYFISH      BIRD           GIRAFFE
-
-
-ARE YOU THINKING OF AN ANIMAL? 
-Error on line 130: No more input

data/test/integration/tests/basic_computer_games/awari.input

@@ -1,11 +0,0 @@
-6
-5
-4
-6
-5
-6
-1
-6
-5
-6
-4