rbsiev 0.1.0

data/lib/scmo/object.rb

@@ -0,0 +1,117 @@
+# frozen_string_literal: true
+
+require "singleton"
+
+module Scmo
+
+  class Object
+    class << self
+      protected :new
+    end
+
+    def boolean?;   false; end
+    def pair?;      false; end
+    def symbol?;    false; end
+    def number?;    false; end
+    def char?;      false; end
+    def string?;    false; end
+    def vector?;    false; end
+    def port?;      false; end
+    def procedure?; false; end
+    def null?;      false; end
+    def list?;      false; end
+
+    def to_rb
+      true
+    end
+
+    def to_s
+      ""
+    end
+
+    class Boolean < Object
+      class << self
+        protected :new
+      end
+
+      def boolean?; true; end
+    end
+  end
+
+  class EmptyList < Object
+    include Singleton
+
+    def null?; true; end
+    def list?; true; end
+
+    def to_rb
+      []
+    end
+
+    def to_s
+      "()"
+    end
+  end
+
+  EMPTY_LIST = EmptyList.instance
+
+  class UndefValue < Object
+    include Singleton
+
+    def to_rb
+      nil
+    end
+
+    def to_s
+      "#<undef>"
+    end
+  end
+
+  UNDEF = UndefValue.instance
+
+  class FalseValue < Object::Boolean
+    include Singleton
+
+    def to_rb
+      false
+    end
+
+    def to_s
+      "#f"
+    end
+  end
+
+  class TrueValue < Object::Boolean
+    include Singleton
+
+    def to_rb
+      true
+    end
+
+    def to_s
+      "#t"
+    end
+  end
+
+  FALSE = FalseValue.instance
+  TRUE = TrueValue.instance
+
+  def self.scheme_object?(obj)
+    obj.kind_of?(Object)
+  end
+
+  def self.rbo2scmo(rb_obj)
+    case rb_obj
+    when FalseClass
+      FALSE
+    when TrueClass
+      TRUE
+    when NilClass
+      EMPTY_LIST
+    when Array
+      rb_obj.empty? ? EMPTY_LIST : List.list(*rb_obj)
+    else
+      rb_obj
+    end
+  end
+end

data/rbsiev.gemspec

@@ -0,0 +1,31 @@
+# frozen_string_literal: true
+
+require_relative "lib/rbsiev/version"
+
+Gem::Specification.new do |spec|
+  spec.name          = "rbsiev"
+  spec.version       = Rbsiev::VERSION
+  spec.authors       = ["mnbi"]
+  spec.email         = ["mnbi@users.noreply.github.com"]
+
+  spec.summary       = "SICP evaluator in Ruby"
+  spec.description   = "An evaluator of Scheme language written in Ruby, which is implemented in SICP Chater 4."
+  spec.homepage      = "https://github.com/mnbi/rbsiev"
+  spec.required_ruby_version = Gem::Requirement.new(">= 2.7.0")
+
+  spec.metadata["homepage_uri"] = spec.homepage
+  spec.metadata["source_code_uri"] = "https://github.com/mnbi/rbsiev"
+  spec.metadata["changelog_uri"] = "https://github.com/mnbi/rbsiev/blob/main/CHANGELOG.md"
+
+  # Specify which files should be added to the gem when it is released.
+  # The `git ls-files -z` loads the files in the RubyGem that have been added into git.
+  spec.files = Dir.chdir(File.expand_path(__dir__)) do
+    `git ls-files -z`.split("\x0").reject { |f| f.match(%r{\A(?:test|spec|features)/}) }
+  end
+  spec.bindir        = "exe"
+  spec.executables   = spec.files.grep(%r{\Aexe/}) { |f| File.basename(f) }
+  spec.require_paths = ["lib"]
+
+  spec.add_dependency "rbscmlex", ">= 0.1.3"
+  spec.add_dependency "rubasteme", ">= 0.1.4"
+end

metadata

@@ -0,0 +1,100 @@
+--- !ruby/object:Gem::Specification
+name: rbsiev
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- mnbi
+autorequire:
+bindir: exe
+cert_chain: []
+date: 2021-06-07 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rbscmlex
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.1.3
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.1.3
+- !ruby/object:Gem::Dependency
+  name: rubasteme
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.1.4
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: 0.1.4
+description: An evaluator of Scheme language written in Ruby, which is implemented
+  in SICP Chater 4.
+email:
+- mnbi@users.noreply.github.com
+executables:
+- rbsiev
+extensions: []
+extra_rdoc_files: []
+files:
+- ".github/workflows/main.yml"
+- ".gitignore"
+- CHANGELOG.md
+- Gemfile
+- LICENSE
+- README.md
+- Rakefile
+- bin/console
+- bin/setup
+- exe/rbsiev
+- lib/rbsiev.rb
+- lib/rbsiev/environment.rb
+- lib/rbsiev/error.rb
+- lib/rbsiev/evaluator.rb
+- lib/rbsiev/primitives.rb
+- lib/rbsiev/primitives/arithmetic.rb
+- lib/rbsiev/primitives/comparison.rb
+- lib/rbsiev/primitives/empty_list.rb
+- lib/rbsiev/printer.rb
+- lib/rbsiev/procedure.rb
+- lib/rbsiev/repl.rb
+- lib/rbsiev/version.rb
+- lib/rubasteme/ast/misc.rb
+- lib/scmo/object.rb
+- rbsiev.gemspec
+homepage: https://github.com/mnbi/rbsiev
+licenses: []
+metadata:
+  homepage_uri: https://github.com/mnbi/rbsiev
+  source_code_uri: https://github.com/mnbi/rbsiev
+  changelog_uri: https://github.com/mnbi/rbsiev/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: 2.7.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: SICP evaluator in Ruby
+test_files: []