campa 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 65c3985813d98dec3df69c8f956d3fc06fc2c8c4b48875d8ff1f273a324b83d4
+  data.tar.gz: a1563601fdb1e7cb7e9727a80670d51c11704c91595e6cc22184b25a79b89975
+SHA512:
+  metadata.gz: 39d8e5da9a5bda8b42cb6e2ec03fed4d2f49eceaaf1f17b8deab6dd903885b79b212c42ba05910ebe253694e63aa42488c74740be6807422792caaf7a420aa26
+  data.tar.gz: f944df966fbdd2cbba599c876bc7536f3181aef0d016db96436987737dff9e8f83a95490cdfcc55ac344b6120aed20a741b9e4168dafba7fdda28074095fa715

data/.gitignore

@@ -0,0 +1,11 @@
+/.bundle/
+/.yardoc
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+
+# rspec failure tracking
+.rspec_status

data/.rspec

@@ -0,0 +1,3 @@
+--format documentation
+--color
+--require spec_helper

data/.rubocop.yml

@@ -0,0 +1,37 @@
+require:
+  - rubocop-rake
+  - rubocop-rspec
+
+AllCops:
+  TargetRubyVersion: 3.0
+
+Style/StringLiterals:
+  Enabled: true
+  EnforcedStyle: double_quotes
+
+Style/StringLiteralsInInterpolation:
+  Enabled: true
+  EnforcedStyle: double_quotes
+
+Layout/LineLength:
+  Max: 120
+
+# Sorry world.
+Style/FrozenStringLiteralComment:
+  Enabled: false
+
+Style/Documentation:
+  Enabled: false
+
+Metrics/BlockLength:
+  Exclude:
+    - spec/**/*_spec.rb
+
+Style/NegatedIf:
+  Enabled: false
+
+Style/TrailingCommaInArrayLiteral:
+  Enabled: false
+
+Style/TrailingCommaInHashLiteral:
+  Enabled: false

data/.travis.yml

@@ -0,0 +1,8 @@
+---
+language: ruby
+cache: bundler
+rvm:
+  - 3.0.1
+install:
+  - gem install bundler -v 2.2.20
+  - bundle install --jobs=3 --retry=3

data/CHANGELOG.md

@@ -0,0 +1,5 @@
+## [Unreleased]
+
+## [0.1.0] - 2021-06-14
+
+- Initial release

data/Gemfile

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+source "https://rubygems.org"
+
+gemspec
+
+gem "rake", "~> 13.0"
+gem "rspec", "~> 3.0"
+
+gem "rubocop", "~> 1.7"
+gem "rubocop-rake", require: false
+gem "rubocop-rspec", require: false
+
+gem "pry-byebug"
+gem "simplecov", require: false

data/Gemfile.lock

@@ -0,0 +1,82 @@
+PATH
+  remote: .
+  specs:
+    campa (0.1.0)
+      zeitwerk (~> 2.4)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    ast (2.4.2)
+    byebug (11.1.3)
+    coderay (1.1.3)
+    diff-lcs (1.4.4)
+    docile (1.4.0)
+    method_source (1.0.0)
+    parallel (1.20.1)
+    parser (3.0.1.1)
+      ast (~> 2.4.1)
+    pry (0.13.1)
+      coderay (~> 1.1)
+      method_source (~> 1.0)
+    pry-byebug (3.9.0)
+      byebug (~> 11.0)
+      pry (~> 0.13.0)
+    rainbow (3.0.0)
+    rake (13.0.3)
+    regexp_parser (2.1.1)
+    rexml (3.2.5)
+    rspec (3.10.0)
+      rspec-core (~> 3.10.0)
+      rspec-expectations (~> 3.10.0)
+      rspec-mocks (~> 3.10.0)
+    rspec-core (3.10.1)
+      rspec-support (~> 3.10.0)
+    rspec-expectations (3.10.1)
+      diff-lcs (>= 1.2.0, < 2.0)
+      rspec-support (~> 3.10.0)
+    rspec-mocks (3.10.2)
+      diff-lcs (>= 1.2.0, < 2.0)
+      rspec-support (~> 3.10.0)
+    rspec-support (3.10.2)
+    rubocop (1.16.1)
+      parallel (~> 1.10)
+      parser (>= 3.0.0.0)
+      rainbow (>= 2.2.2, < 4.0)
+      regexp_parser (>= 1.8, < 3.0)
+      rexml
+      rubocop-ast (>= 1.7.0, < 2.0)
+      ruby-progressbar (~> 1.7)
+      unicode-display_width (>= 1.4.0, < 3.0)
+    rubocop-ast (1.7.0)
+      parser (>= 3.0.1.1)
+    rubocop-rake (0.5.1)
+      rubocop
+    rubocop-rspec (2.4.0)
+      rubocop (~> 1.0)
+      rubocop-ast (>= 1.1.0)
+    ruby-progressbar (1.11.0)
+    simplecov (0.21.2)
+      docile (~> 1.1)
+      simplecov-html (~> 0.11)
+      simplecov_json_formatter (~> 0.1)
+    simplecov-html (0.12.3)
+    simplecov_json_formatter (0.1.3)
+    unicode-display_width (2.0.0)
+    zeitwerk (2.4.2)
+
+PLATFORMS
+  x86_64-darwin-19
+
+DEPENDENCIES
+  campa!
+  pry-byebug
+  rake (~> 13.0)
+  rspec (~> 3.0)
+  rubocop (~> 1.7)
+  rubocop-rake
+  rubocop-rspec
+  simplecov
+
+BUNDLED WITH
+   2.2.20

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2021 Ricardo Valeriano
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+THE SOFTWARE.

data/README.md

@@ -0,0 +1,39 @@
+# Campa
+
+Welcome to your new gem! In this directory, you'll find the files you need to be able to package up your Ruby library into a gem. Put your Ruby code in the file `lib/campa`. To experiment with that code, run `bin/console` for an interactive prompt.
+
+TODO: Delete this and the text above, and describe your gem
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'campa'
+```
+
+And then execute:
+
+    $ bundle install
+
+Or install it yourself as:
+
+    $ gem install campa
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Development
+
+After checking out the repo, run `bin/setup` to install dependencies. Then, run `rake spec` to run the tests. You can also run `bin/console` for an interactive prompt that will allow you to experiment.
+
+To install this gem onto your local machine, run `bundle exec rake install`. To release a new version, update the version number in `version.rb`, and then run `bundle exec rake release`, which will create a git tag for the version, push git commits and the created tag, and push the `.gem` file to [rubygems.org](https://rubygems.org).
+
+## Contributing
+
+Bug reports and pull requests are welcome on GitHub at https://github.com/mistersourcerer/campa.
+
+## License
+
+The gem is available as open source under the terms of the [MIT License](https://opensource.org/licenses/MIT).

data/Rakefile

@@ -0,0 +1,23 @@
+# frozen_string_literal: true
+
+require "bundler/gem_tasks"
+require "rspec/core/rake_task"
+RSpec::Core::RakeTask.new(:spec)
+
+require "rubocop/rake_task"
+RuboCop::RakeTask.new
+
+require "campa"
+desc "executes the campa language tests"
+task :campatest do
+  Campa::Cli.new.execute([
+    "test",
+    Dir.glob(Campa.root.join("../test/**/*").to_s)
+  ].flatten)
+rescue SystemExit => e
+  # Do not interrupt the rake execution
+  # if campa tests were successfull
+  exit(1) if e.status != 0
+end
+
+task default: %i[spec rubocop campatest]

data/bin/console

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# frozen_string_literal: true
+
+require "bundler/setup"
+require "campa"
+
+# You can add fixtures and/or initialization code here to make experimenting
+# with your gem easier. You can also use a different console, if you like.
+
+# (If you use this, don't forget to add pry to your Gemfile!)
+# require "pry"
+# Pry.start
+
+require "irb"
+IRB.start(__FILE__)

data/bin/setup

@@ -0,0 +1,8 @@
+#!/usr/bin/env bash
+set -euo pipefail
+IFS=$'\n\t'
+set -vx
+
+bundle install
+
+# Do any other automated setup that you need to do here

data/campa.gemspec

@@ -0,0 +1,34 @@
+# frozen_string_literal: true
+
+require_relative "lib/campa/version"
+
+Gem::Specification.new do |spec|
+  spec.name          = "campa"
+  spec.version       = Campa::VERSION
+  spec.authors       = ["Ricardo Valeriano"]
+  spec.email         = ["ricardo.valeriano@gmail.com"]
+
+  spec.summary       = "A tiny lispey type of thing for learning purposes."
+  spec.description   = "A tiny lispey type of thing for learning purposes."
+  spec.homepage      = "https://github.com/mistersourcerer/campa"
+  spec.license       = "MIT"
+  spec.required_ruby_version = ">= 3.0"
+
+  spec.metadata["homepage_uri"] = spec.homepage
+  spec.metadata["source_code_uri"] = "https://github.com/mistersourcerer/campa."
+  spec.metadata["changelog_uri"] = "https://github.com/mistersourcerer/campa/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 "zeitwerk", "~> 2.4"
+
+  # For more information and examples about making a new gem, checkout our
+  # guide at: https://bundler.io/guides/creating_gem.html
+end

data/campa/core.cmp

@@ -0,0 +1,59 @@
+(defun null. (x)
+  (eq x '()))
+
+(defun and. (x y)
+  (cond (x (cond (y true) (true '())))))
+
+(defun not. (x)
+  (cond (x '())
+        (true true)))
+
+(defun append. (x y)
+  (cond ((null. x) y)
+        (true (cons (car x) (append. (cdr x) y)))))
+
+(defun pair. (x y)
+  (cond ((and. (null. x) (null. y)) '())
+        ((and. (not. (atom x)) (not. (atom y)))
+         (cons (list (car x) (car y))
+               (pair. (cdr x) (cdr y))))))
+
+(defun assoc. (x y)
+  (cond ((eq y '()) '())
+        ((eq (caar y) x) (cadar y))
+        (true (assoc. x (cdr y)))))
+
+(defun evcon. (c a)
+  (cond ((eval. (caar c) a)
+         (eval. (cadar c) a))
+        (true (evcon. (cdr c) a))))
+
+(defun evlis. (m a)
+  (cond ((null. m) '())
+        (true (cons (eval.  (car m) a)
+                    (evlis. (cdr m) a)))))
+
+(defun eval. (e a)
+  (cond
+    ((atom e) (assoc. e a))
+    ((atom (car e))
+     (cond
+       ((eq (car e) 'quote) (cadr e))
+       ((eq (car e) 'atom)  (atom    (eval. (cadr e) a)))
+       ((eq (car e) 'eq)    (eq      (eval. (cadr e) a)
+                                     (eval. (caddr e) a)))
+       ((eq (car e) 'car)   (car     (eval. (cadr e) a)))
+       ((eq (car e) 'cdr)   (cdr     (eval. (cadr e) a)))
+       ((eq (car e) 'cons)  (cons    (eval. (cadr e) a)
+                                     (eval. (caddr e) a)))
+       ((eq (car e) 'cond)  (evcon.  (cdr e) a))
+       (true (eval. (cons (assoc. (car e) a)
+                          (cdr e))
+                    a))))
+    ((eq (caar e) 'label)
+     (eval. (cons (caddar e) (cdr e))
+            (cons (list (cadar e) (car e)) a)))
+    ((eq (caar e) 'lambda)
+     (eval. (caddar e)
+            (append. (pair. (cadar e) (evlis. (cdr e) a))
+                     a)))))

data/campa/example.cmp

@@ -0,0 +1,2 @@
+(defun hello-world () (print "hello world"))
+(hello-world)

data/campa/test.cmp

@@ -0,0 +1,2 @@
+(defun assert (x y)
+  (eq x y))

data/exe/campa

@@ -0,0 +1,7 @@
+#!/usr/bin/env ruby
+
+require "campa"
+
+Campa::Cli
+  .new
+  .execute(ARGV)

data/lib/campa.rb

@@ -0,0 +1,18 @@
+# frozen_string_literal: true
+
+require_relative "campa/version"
+require "zeitwerk"
+
+loader = Zeitwerk::Loader.for_gem
+loader.setup
+
+module Campa
+  CR_REGEX = /\Ac((ad)|(a|d){2,})r$$/ # caar, cddr, cadr, but not car or cdr
+  SYMBOL_OUT = Symbol.new("__out__")
+  SYMBOL_LAMBDA = Symbol.new("lambda")
+  SYMBOL_QUOTE = Symbol.new("quote")
+
+  def self.root
+    @root ||= Pathname.new File.expand_path(__dir__)
+  end
+end

data/lib/campa/cli.rb

@@ -0,0 +1,66 @@
+module Campa
+  class Cli
+    def initialize(repl: nil, evaler: nil, context: nil, reader: nil)
+      @evaler = evaler || default_evaler
+      @context = context || default_context
+      @reader = reader || default_reader
+
+      @repl = repl || default_repl
+    end
+
+    def execute(argv = nil, input: $stdin, out: $stdout)
+      return repl.run(input, out) if argv.nil? || argv.empty?
+      return evaluate(argv[0], input, out) if File.file?(argv[0])
+
+      execute_option(argv[0].to_sym, argv[1..], input, out)
+    end
+
+    private
+
+    OPTIONS = {
+      test: :test,
+    }.freeze
+
+    attr_reader :repl, :evaler, :context, :reader
+
+    def new_eval_ctx(out)
+      context.push(SYMBOL_OUT => out)
+    end
+
+    def evaluate(file, _, out)
+      evaler.eval(reader.new(file), new_eval_ctx(out))
+      exit(0)
+    end
+
+    def execute_option(option, args, input, out)
+      method = OPTIONS.fetch(option) { raise "Unknown option #{option}" }
+      method(method).call(args, input, out)
+    end
+
+    def test(files, _, out)
+      eval_ctx = new_eval_ctx(out)
+      files.each { |file| evaler.eval(reader.new(file), eval_ctx) }
+      results = Campa::Core::Test.new.call(env: eval_ctx)
+      reporter = Campa::Core::TestReport.new
+      code = reporter.call(results, env: eval_ctx) ? 0 : 1
+
+      exit(code)
+    end
+
+    def default_repl
+      @default_repl ||= Campa::Repl.new(evaler, context)
+    end
+
+    def default_evaler
+      @default_evaler ||= Campa::Evaler.new
+    end
+
+    def default_context
+      @default_context ||= Campa::Language.new
+    end
+
+    def default_reader
+      @default_reader ||= Campa::Reader
+    end
+  end
+end