basic101 0.1.0

data/lib/basic101/for_statement.rb

@@ -0,0 +1,57 @@
+require_relative 'statement'
+
+module Basic101
+
+  class ForStatement < Statement
+
+    # attr_writer :next_statement
+    attr_reader :reference
+
+    def initialize(reference, from, to, step)
+      @reference = reference
+      @from = from
+      @to = to
+      @step = step || BasicInteger.new(1)
+    end
+
+    def execute(runtime)
+      delete_from_stack(runtime)
+      runtime.for_stack.push self
+      from = @from.eval(runtime)
+      @reference.assign(runtime, from)
+    end
+
+    def increment(runtime)
+      step = @step.eval(runtime)
+      counter = @reference.eval(runtime)
+      @reference.assign(runtime, counter + step)
+    end
+
+    def done?(runtime)
+      step = @step.eval(runtime)
+      counter = @reference.eval(runtime)
+      to = @to.eval(runtime)
+      if step.value < 0
+        counter.lt(to)
+      else
+        counter.gt(to)
+      end.to_b
+    end
+
+    def goto_following_statement(runtime)
+      runtime.goto_index_after @index
+    end
+
+    def delete_from_stack(runtime)
+      runtime.for_stack.delete_reference(@reference)
+    end
+
+    protected
+
+    def state
+      [@reference, @from, @to, @step]
+    end
+
+  end
+
+end

data/lib/basic101/function.rb

@@ -0,0 +1,11 @@
+module Basic101
+
+  class Function
+
+    def check_args(args, required_types, optional_types = [])
+      ArgumentChecker.new(args, required_types, optional_types).check
+    end
+
+  end
+
+end

data/lib/basic101/function_call.rb

@@ -0,0 +1,32 @@
+module Basic101
+
+  class FunctionCall
+
+    include Identity
+
+    def initialize(identifier, arguments)
+      @identifier = identifier
+      @arguments = arguments
+    end
+
+    def eval(runtime)
+      runtime.call_function(@identifier, argument_values(runtime))
+    end
+
+    protected
+
+    def state
+      [@identifier, @arguments]
+    end
+
+    private
+
+    def argument_values(runtime)
+      @arguments.map do |argument|
+        argument.eval(runtime)
+      end
+    end
+
+  end
+
+end

data/lib/basic101/function_identifier.rb

@@ -0,0 +1,8 @@
+require_relative 'identifier'
+
+module Basic101
+
+  class FunctionIdentifier < Identifier
+  end
+
+end

data/lib/basic101/functions.rb

@@ -0,0 +1,39 @@
+require_relative 'abs_function'
+require_relative 'asc_function'
+require_relative 'chr_function'
+require_relative 'int_function'
+require_relative 'left_function'
+require_relative 'len_function'
+require_relative 'mid_function'
+require_relative 'right_function'
+require_relative 'rnd_function'
+require_relative 'str_function'
+require_relative 'tab_function'
+require_relative 'val_function'
+
+module Basic101
+
+  class Functions
+
+    def initialize(functions = BuiltInFunctions.make)
+      @functions = {}
+      functions.each do |function|
+        add_function function
+      end
+    end
+
+    def call(runtime, identifier, argument_values)
+      @functions[identifier.to_s].call(runtime, argument_values)
+    end
+
+    def add_function(function)
+      @functions[function.name] = function
+    end
+
+    def has_function?(name)
+      @functions.has_key?(name.to_s)
+    end
+
+  end
+
+end

data/lib/basic101/gosub_statement.rb

@@ -0,0 +1,23 @@
+require_relative 'statement'
+
+module Basic101
+
+  class GosubStatement < Statement
+
+    def initialize(target_line_number)
+      @target_line_number = target_line_number
+    end
+
+    def execute(runtime)
+      runtime.gosub_line(@target_line_number)
+    end
+
+    protected
+
+    def state
+      [@target_line_number]
+    end
+
+  end
+
+end

data/lib/basic101/goto_statement.rb

@@ -0,0 +1,23 @@
+require_relative 'statement'
+
+module Basic101
+
+  class GotoStatement < Statement
+
+    def initialize(target_line_number)
+      @target_line_number = target_line_number
+    end
+
+    def execute(runtime)
+      runtime.goto_line(@target_line_number)
+    end
+
+    protected
+
+    def state
+      [@target_line_number]
+    end
+
+  end
+
+end

data/lib/basic101/identifier.rb

@@ -0,0 +1,23 @@
+module Basic101
+
+  class Identifier
+
+    include Identity
+
+    def initialize(name)
+      @name = name.to_s
+    end
+
+    def to_s
+      @name
+    end
+
+    protected
+
+    def state
+      [@name]
+    end
+
+  end
+
+end

data/lib/basic101/identity.rb

@@ -0,0 +1,18 @@
+module Basic101
+
+  module Identity
+
+    def ==(other)
+      return false unless other.is_a?(self.class)
+      self.state == other.state
+    end
+
+    protected
+
+    def state
+      []
+    end
+
+  end
+
+end

data/lib/basic101/if_statement.rb

@@ -0,0 +1,31 @@
+require_relative 'statement'
+
+module Basic101
+
+  class IfStatement < Statement
+
+    attr_writer :else_statement
+
+    def initialize(condition)
+      @condition = condition
+    end
+
+    def end_statement=(statement)
+      @else_statement.end_statement = statement
+    end
+
+    def execute(runtime)
+      if @condition.eval(runtime).to_f == 0
+        @else_statement.goto_following_statement(runtime)
+      end
+    end
+
+    protected
+
+    def state
+      [@condition, @true_statement]
+    end
+
+  end
+
+end

data/lib/basic101/input.rb

@@ -0,0 +1,44 @@
+module Basic101
+
+  class Input
+
+    def initialize(output, file = $stdout)
+      @file = file
+      @output = output
+      @transcript = NullTranscript.new
+    end
+
+    def transcript=(transcript)
+      @transcript = transcript
+    end
+
+    def read_line
+      unless line = @file.gets
+        @transcript.save_output "\n"
+        echo "\n"
+        raise NoMoreInputError, 'No more input'
+      end
+      @transcript.save_input line
+      @transcript.save_output line
+      echo line
+      line.chomp
+    end
+
+    private
+
+    def echo(s)
+      return unless echo?
+      @output.echo s
+    end
+
+    def isatty
+      @file.isatty
+    end
+
+    def echo?
+      !(isatty && @output.isatty)
+    end
+
+  end
+
+end

data/lib/basic101/input_reader.rb

@@ -0,0 +1,55 @@
+module Basic101
+
+  class InputReader
+
+    def initialize(input)
+      line = input.read_line
+      line += ',' unless line.empty?
+      line += EOS
+      @columns = line.parse_csv
+    rescue CSV::MalformedCSVError => e
+      raise BadInputFormatError, 'Invalid format'
+    end
+
+    def read_string
+      end_of_input_error if @columns.empty?
+      value = @columns.shift
+      if value == EOS
+        ''
+      else
+        value || ''
+      end
+    end
+
+    def read_numeric
+      column = next_column
+      unless column =~ /^[+-]?\d+/
+        raise BadInputFormatError, "Not numeric: #{column.inspect}"
+      end
+      column.to_f
+    end
+
+    private
+
+    def next_column
+      raise_error_if_eos
+      @columns.shift || ''
+    end
+
+    def raise_error_if_eos
+      if @columns.first == EOS
+        end_of_input_error
+      end
+    end
+
+    private
+
+    EOS = "EOS"
+
+    def end_of_input_error
+      raise TooFewInputItemsError, "Too few items"
+    end
+
+  end
+
+end

data/lib/basic101/input_statement.rb

@@ -0,0 +1,46 @@
+require_relative 'statement'
+
+module Basic101
+
+  class InputStatement < Statement
+
+    def initialize(prompt, prompt_delimeter, references)
+      @prompt = prompt
+      @prompt_delimeter = prompt_delimeter
+      @references = references
+    end
+
+    def execute(runtime)
+      begin
+        print_prompt(runtime)
+        read_references(runtime)
+      rescue InputError => e
+        runtime.output.puts "#{e}, try again"
+        retry
+      end
+    end
+
+    protected
+
+    def state
+      [@prompt, @prompt_delimeter, @references]
+    end
+
+    def print_prompt(runtime)
+      if @prompt
+        @prompt.print_string runtime.output
+      end
+      @prompt_delimeter.print(runtime.output)
+    end
+
+    def read_references(runtime)
+      input_reader = InputReader.new(runtime.input)
+      @references.each do |reference|
+        value = reference.input(input_reader)
+        reference.assign(runtime, value)
+      end
+    end
+
+  end
+
+end

data/lib/basic101/int_function.rb

@@ -0,0 +1,17 @@
+module Basic101
+
+  class IntFunction < Function
+
+    def name
+      'INT'
+    end
+
+    def call(runtime, args)
+      check_args args, [BasicNumeric]
+      value = args.first.eval(runtime)
+      value.to_float.floor
+    end
+
+  end
+
+end

data/lib/basic101/left_function.rb

@@ -0,0 +1,19 @@
+module Basic101
+
+  class LeftFunction < Function
+
+    def name
+      'LEFT$'
+    end
+
+    def call(runtime, args)
+      check_args args, [BasicString, BasicNumeric]
+      string, count = *args
+      string = string.eval(runtime).to_string
+      count = count.eval(runtime).to_integer
+      string.left(count)
+    end
+
+  end
+
+end

data/lib/basic101/len_function.rb

@@ -0,0 +1,18 @@
+module Basic101
+
+  class LenFunction < Function
+
+    def name
+      'LEN'
+    end
+
+    def call(runtime, args)
+      check_args args, [BasicString]
+      string = args.first
+      string = string.eval(runtime).to_string
+      string.length
+    end
+
+  end
+
+end

data/lib/basic101/let_statement.rb

@@ -0,0 +1,24 @@
+require_relative 'statement'
+
+module Basic101
+
+  class LetStatement < Statement
+
+    def initialize(reference, expression)
+      @reference = reference
+      @expression = expression
+    end
+
+    def execute(runtime)
+      @reference.assign(runtime, @expression.eval(runtime))
+    end
+
+    protected
+
+    def state
+      [@reference, @expression]
+    end
+
+  end
+
+end

data/lib/basic101/line.rb

@@ -0,0 +1,32 @@
+module Basic101
+
+  class Line
+
+    include Identity
+
+    attr_reader :line_number
+    attr_reader :statements
+
+    def initialize(line_number, statements)
+      @line_number = line_number.to_i
+      @statements = statements
+      link_statements_to_line
+    end
+
+    protected
+
+    def state
+      [@line_number, @statements]
+    end
+
+    private
+
+    def link_statements_to_line
+      @statements.each do |statement|
+        statement.line = self
+      end
+    end
+
+  end
+
+end

data/lib/basic101/log_function.rb

@@ -0,0 +1,17 @@
+module Basic101
+
+  class LogFunction < Function
+
+    def name
+      'LOG'
+    end
+
+    def call(runtime, args)
+      check_args args, [BasicNumeric]
+      arg = args.first
+      arg.eval(runtime).log
+    end
+
+  end
+
+end

data/lib/basic101/main.rb

@@ -0,0 +1,24 @@
+module Basic101
+
+  class Main
+
+    def initialize(argv)
+      @args = Arguments.new(argv)
+    end
+
+    def run
+      program = Program.load(ARGF)
+      runtime = Runtime.new(:program => program)
+      if @args.transcript
+        runtime.transcript = Transcript.make(@args.filenames.first)
+      end
+      runtime.randomize if @args.randomize
+      runtime.run
+    rescue Error => e
+      puts e
+      exit 1
+    end
+
+  end
+
+end

data/lib/basic101/mid_function.rb

@@ -0,0 +1,20 @@
+module Basic101
+
+  class MidFunction < Function
+
+    def name
+      'MID$'
+    end
+
+    def call(runtime, args)
+      check_args args, [BasicString, BasicNumeric], [BasicNumeric]
+      string, start, count = *args
+      string = string.eval(runtime).to_string
+      start = start.eval(runtime).to_integer
+      count = count && count.eval(runtime).to_integer
+      string.mid(start, *[count])
+    end
+
+  end
+
+end

data/lib/basic101/negate_operation.rb

@@ -0,0 +1,21 @@
+module Basic101
+
+  class NegateOperation
+
+    include Identity
+
+    def initialize(expression)
+      @expression = expression
+    end
+
+    def eval(runtime)
+      @expression.eval(runtime).negate
+    end
+
+    protected
+
+    attr_reader :expression
+
+  end
+
+end

data/lib/basic101/next_statement.rb

@@ -0,0 +1,34 @@
+require_relative 'statement'
+
+module Basic101
+
+  class NextStatement < Statement
+
+    def initialize(reference)
+      @reference = reference
+    end
+
+    def execute(runtime) 
+      for_statement = if @reference.nil?
+                        runtime.for_stack.top
+                      else
+                        runtime.for_stack[@reference]
+                      end
+      raise NextWithoutFor unless for_statement
+      for_statement.increment(runtime)
+      if for_statement.done?(runtime)
+        for_statement.delete_from_stack(runtime)
+      else
+        for_statement.goto_following_statement(runtime)
+      end
+    end
+
+    protected
+
+    def state
+      @reference
+    end
+
+  end
+
+end

data/lib/basic101/not_operation.rb

@@ -0,0 +1,23 @@
+module Basic101
+
+  class NotOperation
+
+    include Identity
+
+    def initialize(expression)
+      @expression = expression
+    end
+
+    def eval(runtime)
+      @expression.eval(runtime).to_numeric.not
+    end
+
+    protected
+
+    def state
+      [@expression]
+    end
+
+  end
+
+end

data/lib/basic101/null_prompt_delimeter.rb

@@ -0,0 +1,12 @@
+module Basic101
+
+  class NullPromptDelimeter
+
+    include Identity
+
+    def print(output)
+    end
+
+  end
+
+end