lisp-interpreter 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: b05bfd3f510fb947e037a1de118289cd36f77f37
+  data.tar.gz: de9c23f86e55ef264e44a1e54bee0282dc83ee51
+SHA512:
+  metadata.gz: b83a05bd09ad2d0f92b23b47e10f35810dfff583281357bf14980b299c10877d1cf91ec565bb58cab8c3611dc475353603ebd4571bdde65260f3d81b740595cd
+  data.tar.gz: f6b0962fec13104184464a03c60663393ef6858e8eb2f8aeb31dfa4c482cb9605a7868c682cb2cbca8c3954aa8445ea238be5f066ab6a9aef6aea38085658a14

data/.gitignore

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

data/.rspec

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

data/.travis.yml

@@ -0,0 +1,5 @@
+sudo: false
+language: ruby
+rvm:
+  - 2.3.3
+before_install: gem install bundler -v 1.15.2

data/CODE_OF_CONDUCT.md

@@ -0,0 +1,75 @@
+# Contributor Covenant Code of Conduct
+
+## Our Pledge
+
+In the interest of fostering an open and welcoming environment, we as
+contributors and maintainers pledge to making participation in our project and
+our community a harassment-free experience for everyone, regardless of age, body
+size, disability, ethnicity, gender identity and expression, level of experience,
+nationality, personal appearance, race, religion, or sexual identity and
+orientation.
+
+## Our Standards
+
+Examples of behavior that contributes to creating a positive environment
+include:
+
+* Using welcoming and inclusive language
+* Being respectful of differing viewpoints and experiences
+* Gracefully accepting constructive criticism
+* Focusing on what is best for the community
+* Showing empathy towards other community members
+
+Examples of unacceptable behavior by participants include:
+
+* The use of sexualized language or imagery and unwelcome sexual attention or
+advances
+* Trolling, insulting/derogatory comments, and personal or political attacks
+* Public or private harassment
+* Publishing others' private information, such as a physical or electronic
+  address, without explicit permission
+* Other conduct which could reasonably be considered inappropriate in a
+  professional setting
+
+## Our Responsibilities
+
+Project maintainers are responsible for clarifying the standards of acceptable
+behavior and are expected to take appropriate and fair corrective action in
+response to any instances of unacceptable behavior.
+
+Project maintainers have the right and responsibility to remove, edit, or
+reject comments, commits, code, wiki edits, issues, and other contributions
+that are not aligned to this Code of Conduct, or to ban temporarily or
+permanently any contributor for other behaviors that they deem inappropriate,
+threatening, offensive, or harmful.
+
+## Scope
+
+This Code of Conduct applies both within project spaces and in public spaces
+when an individual is representing the project or its community. Examples of
+representing a project or community include using an official project e-mail
+address, posting via an official social media account, or acting as an appointed
+representative at an online or offline event. Representation of a project may be
+further defined and clarified by project maintainers.
+
+## Enforcement
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be
+reported by contacting the project team at zaki1993@abv.bg
+. All
+complaints will be reviewed and investigated and will result in a response that
+is deemed necessary and appropriate to the circumstances. The project team is
+obligated to maintain confidentiality with regard to the reporter of an incident.
+Further details of specific enforcement policies may be posted separately.
+
+Project maintainers who do not follow or enforce the Code of Conduct in good
+faith may face temporary or permanent repercussions as determined by other
+members of the project's leadership.
+
+## Attribution
+
+This Code of Conduct is adapted from the [Contributor Covenant][homepage], version 1.4,
+available at [http://contributor-covenant.org/version/1/4][version]
+
+[homepage]: http://contributor-covenant.org
+[version]: http://contributor-covenant.org/version/1/4/

data/Gemfile

@@ -0,0 +1,6 @@
+source "https://rubygems.org"
+
+git_source(:github) {|repo_name| "https://github.com/zaki1993#{Ruby-Project/lisp-interpreter}" }
+
+# Specify your gem's dependencies in lisp-interpreter.gemspec
+gemspec

data/LICENSE.txt

@@ -0,0 +1,21 @@
+The MIT License (MIT)
+
+Copyright (c) 2017 Zaki Petrov
+
+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,173 @@
+# Lisp::Interpreter
+Lisp interpreter implemented in Ruby.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'lisp-interpreter'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install lisp-interpreter
+
+## Usage
+booleans:
+
+    #t; #t
+    
+    #f; #f
+    
+    (not #t); #f
+    
+    (equal? 5 5); #t
+    
+    (if (<= 2 3) 'TRUE 'FALSE); TRUE
+    
+numbers:
+    
+    (+ 1 2); 3
+    
+    (- 1 2); -1
+    
+    (* 1 2); 2
+    
+    (/ 1 2); 0.5
+    
+    (quotient 10 3); 3
+    
+    (remainder 10 3); 1
+    
+    (modulo 10 3); 1
+    
+    (numerator 5); 5
+    
+    (denominator 5); 1
+    
+    (abs -10); 10
+    
+    (add1 1); 2
+    
+    (sub1 1); 0
+    
+    (min 5 3 1 2 4); 1
+    
+    (max 5 3 1 2 4); 5
+    
+    (< 1 2); #t
+    
+    (<= 2 2); #t
+    
+    (> 1 2); #f
+    
+    (>= 2 2); #t
+    
+strings:
+    
+    (string-length "Hello world"); 11
+    
+    (substring "Hello world" 4); "o world"
+    
+    (string-upcase "sample"); "SAMPLE"
+    
+    (string-downcase "SAMPLE"); "sample"
+    
+    (string-contains? "Racket" "Rac"); #t
+    
+    (string->list "Sample"); (#\S #\a #\m #\p #\l #\e)
+    
+    (string-split "  foo bar  baz \r\n\t"); ("foo" "bar" "baz")
+    
+    (string? "str"); #t
+    
+    (string-replace "foo bar baz" "bar" "blah"); "foo blah baz"
+    
+    (string-prefix? "Racket" "Rac"); #t
+    
+    (string-sufix? "Racket" "cket"); #t
+    
+    (string-join '(1 2) "potato"); "1potato2"
+    
+list and pairs:
+    
+    (null? \'()); #t
+    
+    (cons 1 2); (1 . 2)
+    
+    null; ()
+    
+    (list 1 "s"); (1 "s")
+    
+    (car (list #f 2 3 4)); #f
+    
+    (cdr (list #f 2 3 4)); (2 3 4)
+    
+    (cadr (list 1 2 3 4)); 2
+    
+    (cdar (list (list 1 2) 2 3 4)); (2)
+    
+    (list? (list 1 2)); #t
+    
+    (pair? (list 1 2)); #t
+    
+    (length (list 1 2 3)); 3
+    
+    (reverse (list 1 2 3)); (3 2 1)
+    
+    (remove 1 (list 1 2 3)); (2 3)
+    
+    (shuffle (list 1 2 3)); permutation of [1, 2, 3]
+    
+    (map (lambda (n)(+ 1 n)) '(1 2 3 4)); (2 3 4 5)
+    
+    (foldl cons '() '(1 2 3 4 5)); (5 4 3 2 1)
+    
+    (foldr cons '() '(1 2 3 4 5)); (1 2 3 4 5)
+    
+    (filter (<= 3) '(1 2 3 4 5)); (1 2 3)
+    
+    (member 2 (list 1 2 3 4)); (2 3 4
+    
+functions and procedures:
+    
+    (lambda (x) (* 2 x)); <Proc>
+    
+    ((lambda (x) (* 2 x)) 5); 10
+    
+    (apply + '(1 2 3)); 6
+    
+    ((compose fn1 fn2) val); (fn1 (fn2 val))
+    
+other:
+    
+    (define x 5) ; 5
+    
+    (define (even? x) (if (equal? (remainder x 2) 0) #t #f))
+    
+    (even? 4); #t
+    
+    (even? 3); #f
+    
+## 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 tags, 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/[USERNAME]/lisp-interpreter. This project is intended to be a safe, welcoming space for collaboration, and contributors are expected to adhere to the [Contributor Covenant](http://contributor-covenant.org) code of conduct.
+
+## License
+
+The gem is available as open source under the terms of the [MIT License](http://opensource.org/licenses/MIT).
+
+## Code of Conduct
+
+Everyone interacting in the Lisp::Interpreter project’s codebases, issue trackers, chat rooms and mailing lists is expected to follow the [code of conduct](https://github.com/[USERNAME]/lisp-interpreter/blob/master/CODE_OF_CONDUCT.md).

data/Rakefile

@@ -0,0 +1,6 @@
+require "bundler/gem_tasks"
+require "rspec/core/rake_task"
+
+RSpec::Core::RakeTask.new(:spec)
+
+task default: :spec

data/bin/console.bat

@@ -0,0 +1,2 @@
+@echo off
+start cmd /C "title lisp-interpreter & ruby start.rb"

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/bin/start.rb

@@ -0,0 +1,2 @@
+require "../lib/lisp/interpreter/run"
+ruby run.rb

data/lib/lisp/interpreter.rb

@@ -0,0 +1,9 @@
+require 'lisp/interpreter/version'
+require 'lisp/interpreter/parser'
+
+# Lisp interpreter
+module Lisp
+  # Interpreter
+  module Interpreter
+  end
+end

data/lib/lisp/interpreter/boolean.rb

@@ -0,0 +1,42 @@
+# Scheme booleans helper
+module SchemeBooleansHelper
+  def if_idx_helper(other)
+    if other[0] == '('
+      idx = find_bracket_idx other, 0
+      (find_next_value other[idx + 1..-1])[0]
+    else
+      _, other = find_next_value other
+      (find_next_value other)[0]
+    end
+  end
+
+  def if_helper(expr, other)
+    if expr == '#f'
+      if_idx_helper other
+    else
+      (find_next_value other)[0]
+    end
+  end
+end
+
+# Scheme booleans module
+module SchemeBooleans
+  include SchemeBooleansHelper
+  def equal?(other)
+    raise 'Incorrect number of arguments' if other.size != 2
+    other[0].to_s == other[1].to_s ? '#t' : '#f'
+  end
+
+  def not(other)
+    raise 'Incorrect number of arguments' if other.size != 1
+    raise 'Invalid data type' unless check_for_bool other[0]
+    other[0] == '#t' ? '#f' : '#t'
+  end
+
+  def if(other)
+    raise 'Incorrect number of arguments' if other.empty?
+    expr, other = find_next_value other
+    raise 'Incorrect number of arguments' if other.empty?
+    if_helper expr, other
+  end
+end

data/lib/lisp/interpreter/checker.rb

@@ -0,0 +1,45 @@
+# Check if variable is specific type
+module SchemeChecker
+  def check_for_bool(token)
+    return true if ['#t', '#f'].include? token
+    is_instance_var = check_instance_var token
+    return true if is_instance_var && (check_for_bool get_var token)
+    false
+  end
+
+  def check_for_string(token)
+    return true if token.string?
+    is_instance_var = check_instance_var token
+    return true if is_instance_var && (check_for_string get_var token)
+    false
+  end
+
+  def check_for_number(token)
+    return true if token.to_s.number?
+    is_instance_var = check_instance_var token
+    return true if is_instance_var && (check_for_number get_var token)
+    false
+  end
+
+  def check_for_quote(token)
+    return true if token[0].quote?
+    is_instance_var = check_instance_var token
+    return true if is_instance_var && (check_for_number get_var token)
+    false
+  end
+
+  def check_instance_var(var)
+    return false if var.is_a? Proc
+    return false unless valid_var_name var
+    instance_variable_defined?("@#{var}")
+  end
+
+  def check_for_symbol(var)
+    var = var.join('') if var.is_a? Array
+    return true if var == '#\space'
+    return true if var.character?
+    is_instance_var = check_instance_var var
+    return true if is_instance_var && (check_for_character get_var var)
+    false
+  end
+end

data/lib/lisp/interpreter/errors.rb

@@ -0,0 +1,13 @@
+# ErrorMessages module contains different error messages
+module ErrorMessages
+  def unbalanced_brackets_error
+    'error signaled: unbalanced brackets'
+  end
+
+  def unbalanced_quotes_error
+    'error signaled: unbalanced quotes'
+  end
+end
+
+class SchemeException < RuntimeError
+end