campa 0.1.0

data/lib/campa/node.rb

@@ -0,0 +1,17 @@
+module Campa
+  class Node
+    attr_accessor :next_node
+    attr_reader :value
+
+    def initialize(value:, next_node: nil)
+      @value = value
+      @next_node = next_node
+    end
+
+    def ==(other)
+      return false if !other.is_a?(Node)
+
+      value == other.value
+    end
+  end
+end

data/lib/campa/printer.rb

@@ -0,0 +1,70 @@
+module Campa
+  class Printer
+    FORMATS = {
+      String => :string,
+      Symbol => :symbol,
+      List => :list,
+      TrueClass => :boolean,
+      FalseClass => :boolean,
+      Lambda => :lambda,
+      Context => :context,
+      NilClass => :null,
+    }.freeze
+
+    def call(expr)
+      format = FORMATS.fetch(expr.class) do
+        expr.is_a?(Context) ? :context : :default
+      end
+      send(format, expr)
+    end
+
+    private
+
+    def string(expr)
+      "\"#{expr}\""
+    end
+
+    def symbol(expr)
+      expr.label
+    end
+
+    def list(expr)
+      "(#{expr.map { |el| call(el) }.join(" ")})"
+    end
+
+    def boolean(expr)
+      (expr == true).to_s
+    end
+
+    def lambda(expr)
+      list(
+        List
+          .new(expr.body.map { |e| call(e) })
+          .push(expr.params)
+          .push(SYMBOL_LAMBDA)
+      )
+    end
+
+    def context(expr)
+      context_bindings(expr).join("\n")
+    end
+
+    def null(_expr)
+      "NIL"
+    end
+
+    def default(expr)
+      expr
+    end
+
+    def context_bindings(expr, sep: "")
+      own =
+        expr
+        .bindings
+        .map { |tuple| "#{sep}#{call(tuple[0])}: #{call(tuple[1])}" }
+      return own if expr.fallback.nil?
+
+      own + context_bindings(expr.fallback, sep: "#{sep}  ")
+    end
+  end
+end

data/lib/campa/reader.rb

@@ -0,0 +1,198 @@
+require "stringio"
+
+module Campa
+  # rubocop: disable Metrics/ClassLength
+  class Reader
+    # rubocop: enable Metrics/ClassLength
+    def initialize(input)
+      @input = to_io_like(input)
+      next_char
+    end
+
+    def next
+      eat_separators
+      return read if !@input.eof?
+      return if @current_char.nil?
+
+      # Exhaust the reader if @input.eof? and !@current_char.nil?
+      read.tap { @current_char = nil }
+    end
+
+    private
+
+    SEPARATORS = ["\s", ","].freeze
+    BOOLS = %w[true false].freeze
+    BOOLS_START = %w[t f].freeze
+    CAST_INT = ->(str) { Integer(str) }
+    CAST_FLOAT = ->(str) { Float(str) }
+
+    def to_io_like(input)
+      return input if input.respond_to?(:getc) && input.respond_to?(:eof?)
+      return File.new(input) if File.file?(input)
+
+      # TODO: check if it is "castable" first,
+      StringIO.new(input)
+    end
+
+    def next_char
+      if @next_char.nil?
+        @current_char = @input.getc
+      else
+        @current_char = @next_char
+        @next_char = nil
+      end
+
+      @current_char
+    end
+
+    def peek
+      return @next_char if !@next_char.nil?
+
+      @next_char = @input.getc
+    end
+
+    def eat_separators
+      if @input.eof?
+        @current_char = nil if separator? || break?
+        return
+      end
+
+      next_char while separator? || break?
+    end
+
+    # rubocop: disable Metrics/MethodLength, Metrics/PerceivedComplexity
+    # rubocop: disable Style/EmptyCaseCondition, Metrics/CyclomaticComplexity
+    def read
+      case
+      when @current_char == "\""
+        read_string
+      when digit? || @current_char == "-" && digit?(peek)
+        read_number
+      when @current_char == "'"
+        read_quotation
+      when @current_char == "("
+        read_list
+      when boolean?
+        read_boolean
+      else
+        read_symbol
+      end
+    end
+    # rubocop: enable Metrics/MethodLength, Metrics/PerceivedComplexity
+    # rubocop: enable Style/EmptyCaseCondition, Metrics/CyclomaticComplexity
+
+    def read_string
+      return if @input.eof?
+
+      string = ""
+      # eats the opening "
+      next_char
+
+      while !@input.eof? && @current_char != "\""
+        string << @current_char
+        next_char
+      end
+      raise Error::MissingDelimiter, "\"" if @current_char != "\""
+
+      # eats the closing "
+      next_char
+
+      string
+    end
+
+    def read_number
+      number = @current_char
+      cast = CAST_INT
+
+      until @input.eof?
+        next_char
+        break if separator? || delimiter?
+
+        cast = CAST_FLOAT if @current_char == "."
+        number << @current_char
+      end
+
+      safe_cast(number, cast)
+    end
+
+    def safe_cast(number, cast)
+      cast.call(number)
+    rescue ArgumentError
+      raise Error::InvalidNumber, number
+    end
+
+    def read_quotation
+      # eats the ' char
+      next_char
+
+      List.new(SYMBOL_QUOTE, self.next)
+    end
+
+    def read_list
+      # eats the opening (
+      next_char
+
+      elements = []
+      while !@input.eof? && !delimiter?
+        token = self.next
+        elements << token
+        eat_separators if separator?
+      end
+      raise Error::MissingDelimiter, ")" if !delimiter?
+
+      # eats the closing )
+      next_char
+
+      List.new(*elements)
+    end
+
+    def read_boolean
+      boolean_value = @current_token
+      @current_token = nil
+      next_char
+      boolean_value == "true"
+    end
+
+    def read_symbol
+      label = @current_token || @current_char
+      @current_token = nil
+
+      until @input.eof?
+        next_char
+        break if separator? || delimiter? || break?
+
+        label << @current_char
+      end
+
+      # TODO: validate symbol (raise if invalid chars are present)
+      Symbol.new(label)
+    end
+
+    def separator?
+      SEPARATORS.include? @current_char
+    end
+
+    def break?
+      @current_char == "\n"
+    end
+
+    def delimiter?
+      @current_char == ")"
+    end
+
+    def digit?(char = nil)
+      char ||= @current_char
+      # TODO: should we force the encoding of source files?
+      #   (since codepoints will be different depending on encoding).
+      !char.nil? && (char.ord >= 48 && char.ord <= 57)
+    end
+
+    def boolean?
+      return false if !BOOLS_START.include?(@current_char)
+
+      @current_token = @current_char
+      @current_token << next_char until @input.eof? || peek == " " || peek == ")"
+      BOOLS.include? @current_token
+    end
+  end
+end

data/lib/campa/repl.rb

@@ -0,0 +1,75 @@
+module Campa
+  class Repl
+    def initialize(evaler, context, reader: Reader)
+      @reader = reader
+      @evaler = evaler
+      @context = context
+      @environment = @context.push(Context.new)
+      @printer = Printer.new
+    end
+
+    # rubocop: disable Metrics/MethodLength
+    def run(input, output)
+      output.print "=> "
+      reader = @reader.new(input)
+
+      loop do
+        begin
+          token = reader.next
+          break if token.nil?
+
+          show(output, evaler.call(token, environment))
+        rescue ExecutionError => e
+          handle_exec_error(output, e)
+        rescue StandardError => e
+          handle_standard_error(output, e)
+        end
+
+        output.print "=> "
+      end
+    rescue Interrupt
+      output.puts "see you soon"
+    end
+    # rubocop: enable Metrics/MethodLength
+
+    private
+
+    attr_reader :evaler, :environment, :printer
+
+    def show(output, result)
+      output
+        .puts(
+          printer.call(
+            result
+          )
+        )
+    end
+
+    def handle_exec_error(output, exception)
+      [
+        "Execution Error: #{exception.class}",
+        "  message: #{exception.message}",
+        "  >> Runtime details:",
+        back_trace_to_s(exception),
+      ].each { |str| output.puts str }
+    end
+
+    def handle_standard_error(output, exception)
+      [
+        "FATAL!",
+        "Exeception error was raised at Runtime level",
+        "Runtime Error: #{exception.class}",
+        "  message: #{exception.message}",
+        back_trace_to_s(exception),
+      ].each { |str| output.puts str }
+    end
+
+    def back_trace_to_s(exception)
+      exception
+        .backtrace[0..10]
+        .push("...")
+        .map { |s| "    #{s}" }
+        .join("\n")
+    end
+  end
+end

data/lib/campa/symbol.rb

@@ -0,0 +1,23 @@
+module Campa
+  class Symbol
+    attr_reader :label
+
+    def initialize(label)
+      @label = label
+    end
+
+    def ==(other)
+      return false if !other.is_a?(self.class)
+
+      label == other.label
+    end
+
+    def eql?(other)
+      self == other && hash == other.hash
+    end
+
+    def hash
+      @hash ||= "Campa::Symbol_#{label}".hash
+    end
+  end
+end

data/lib/campa/version.rb

@@ -0,0 +1,5 @@
+# frozen_string_literal: true
+
+module Campa
+  VERSION = "0.1.0"
+end

metadata

@@ -0,0 +1,119 @@
+--- !ruby/object:Gem::Specification
+name: campa
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Ricardo Valeriano
+autorequire:
+bindir: exe
+cert_chain: []
+date: 2021-07-27 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: zeitwerk
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.4'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: '2.4'
+description: A tiny lispey type of thing for learning purposes.
+email:
+- ricardo.valeriano@gmail.com
+executables:
+- campa
+extensions: []
+extra_rdoc_files: []
+files:
+- ".gitignore"
+- ".rspec"
+- ".rubocop.yml"
+- ".travis.yml"
+- CHANGELOG.md
+- Gemfile
+- Gemfile.lock
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/console
+- bin/setup
+- campa.gemspec
+- campa/core.cmp
+- campa/example.cmp
+- campa/test.cmp
+- exe/campa
+- lib/campa.rb
+- lib/campa/cli.rb
+- lib/campa/context.rb
+- lib/campa/core/load.rb
+- lib/campa/core/print.rb
+- lib/campa/core/print_ln.rb
+- lib/campa/core/test.rb
+- lib/campa/core/test_report.rb
+- lib/campa/error/arity.rb
+- lib/campa/error/illegal_argument.rb
+- lib/campa/error/invalid_number.rb
+- lib/campa/error/missing_delimiter.rb
+- lib/campa/error/not_a_function.rb
+- lib/campa/error/not_found.rb
+- lib/campa/error/parameters.rb
+- lib/campa/error/reserved.rb
+- lib/campa/error/resolution.rb
+- lib/campa/evaler.rb
+- lib/campa/execution_error.rb
+- lib/campa/lambda.rb
+- lib/campa/language.rb
+- lib/campa/lisp/atom.rb
+- lib/campa/lisp/cadr.rb
+- lib/campa/lisp/car.rb
+- lib/campa/lisp/cdr.rb
+- lib/campa/lisp/cond.rb
+- lib/campa/lisp/cons.rb
+- lib/campa/lisp/core.rb
+- lib/campa/lisp/defun.rb
+- lib/campa/lisp/eq.rb
+- lib/campa/lisp/label.rb
+- lib/campa/lisp/lambda_fn.rb
+- lib/campa/lisp/list_fn.rb
+- lib/campa/lisp/quote.rb
+- lib/campa/list.rb
+- lib/campa/node.rb
+- lib/campa/printer.rb
+- lib/campa/reader.rb
+- lib/campa/repl.rb
+- lib/campa/symbol.rb
+- lib/campa/version.rb
+homepage: https://github.com/mistersourcerer/campa
+licenses:
+- MIT
+metadata:
+  homepage_uri: https://github.com/mistersourcerer/campa
+  source_code_uri: https://github.com/mistersourcerer/campa.
+  changelog_uri: https://github.com/mistersourcerer/campa/blob/main/CHANGELOG.md
+post_install_message:
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '3.0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.2.15
+signing_key:
+specification_version: 4
+summary: A tiny lispey type of thing for learning purposes.
+test_files: []