rus3 0.1.0 → 0.1.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: a733b3f40b0fb9223d58d5293f08f68cbc404dbea10df196e92d15e47453a9b6
-  data.tar.gz: 20749c1d7410e925577b76fdca4ecf92ffc0c1ff4aef5d894079548c324f84ed
+  metadata.gz: dfda189d1f2499f00d441efe70f0e8db49ecc443a8c414ec7b4f9282caf28fe2
+  data.tar.gz: 1a0c858ec768aec68e79b66815fd8b5cdd2c6eef2f4e688e55f90fbcd1fde558
 SHA512:
-  metadata.gz: 5350b2341a176d7844910acb888faeae61c499659471148c9370deaad7ba2192e346a5d7e8a03cc3799540c2fe372feabc925cb8f8bdfd94e34dcaad01a36247
-  data.tar.gz: 2aab5a0555331938bc986d418dcb18e0d116be078088846bdad73aebc520ae8bda7b1b334f5ec26dc78bfb5ffe814ff380d1fc9eb9072ad027f4b8539f4fb3ed
+  metadata.gz: cb42c290cdcea8dacd9ae0b024ce0c2b266ae912ddc4178c40c5134fda5a79507d420ab959fc10a9860dd8bf3d805e16347a9cd791c4e90ddffaf1e7afd29932
+  data.tar.gz: 16450eb77a484889dc5572a62fd48670b278fac5f4845111d6b192dbf8820bac54854a150a628004b9461b995a166f1957876d72636b732b11cf7c6db3dbc6c6

data/CHANGELOG.md

@@ -5,9 +5,22 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/)
 and this project adheres to [Semantic Versioning](https://semver.org/).
 
 ## [Unreleased]
-- Add `CHANGELOG.md`. (2021-04-04)
-- Modify some files to pass tests. (2021-04-04)
-- Add files those are generated by `bundler`. (2021-04-04)
+- (nothing to record)
+
+## [0.1.1] - 2021-04-22
+### Added
+- Add `vector`:
+  - add Rus3::Vector class,
+  - modify Rus3::Parser::Lexer to accept a vector literal,
+  - modify Rus3::Parser::SchemeParser to parse and translate a vector
+    literal,
+- Add new error classes (VectorRequiredError and ExceedUpperLimitError),
+- Add tests around `vector`.
+
+### Changed
+- Modify Rus3::Parser::Lexer to convert "->" to "_to_",
+  - now, the Scheme identifier such "list->vector" is usable in the
+    REPL
 
 ## [0.1.0] - 2021-04-21
 - Initial release:

data/Gemfile.lock

@@ -1,7 +1,7 @@
 PATH
   remote: .
   specs:
-    rus3 (0.1.0)
+    rus3 (0.1.1)
 
 GEM
   remote: https://rubygems.org/

data/README.md

@@ -52,6 +52,8 @@ Rus3(scheme)> 1/9
 ==> (1/9)
 Rus3(scheme)> 3+4i
 ==> (3+4i)
+Rus3(scheme)> #(1 2 3)
+==> #<Rus3::Vector:0x00007facf12d9fb0 @content=[1, 2, 3]>
 ```
 
 ### Procedure call
@@ -115,8 +117,8 @@ Following procedures described in the spec is available.
 - Predicates:
   - null?, list?
   - eqv?, eq?
-  - boolean?, pair?, symbol?, number?, string?
-    - char?, vector?, and port? are defined but it always returns `false`.
+  - boolean?, pair?, symbol?, number?, string?, vector?
+    - char? and port? are defined but it always returns `false`.
   - complex?, real?, rational?, integer?
   - zero?, positive?, negative?, odd?, even?
   - string-eq?, string-ci-eq?, string-lt?, string-gt?, string-le?,
@@ -128,6 +130,10 @@ Following procedures described in the spec is available.
   - cons, car, cdr, set-car!, set-cdr!, cxxr (caar and so on)
   - list, length, append, reverse, list-tail, list-ref
 
+- Vector operations
+  - make-vector, vector, vector-length, vector-ref, vector-set!,
+    vector->list, list->vector, vector-fill!
+
 - Write values
   - write
   - display

data/exe/rus3

@@ -2,4 +2,17 @@
 
 require "rus3"
 
-Rus3::Repl.start(verbose: ARGV.size > 0)
+opts = {}
+
+while ARGV.size > 0
+  arg = ARGV.shift
+  case arg
+  when "-d", "--debug"
+    opts[:debug] = true
+  when "-v", "--version"
+    puts "rus3 version #{Rus3::VERSION} (#{Rus3::RELEASE})"
+    exit 0
+  end
+end
+
+Rus3::Repl.start(verbose: opts[:debug])

data/lib/rus3.rb

@@ -39,9 +39,12 @@ module Rus3
   require_relative "rus3/pair"
   require_relative "rus3/char"
   require_relative "rus3/port"
+  require_relative "rus3/vector"
 
+  require_relative "rus3/procedure/utils"
   require_relative "rus3/procedure/predicate"
   require_relative "rus3/procedure/list"
+  require_relative "rus3/procedure/vector"
   require_relative "rus3/procedure/control"
   require_relative "rus3/procedure/write"
 

data/lib/rus3/error.rb

@@ -11,12 +11,14 @@ module Rus3
           "()"
         else                    # a normal proper list
           list_notation = obj.to_s().gsub(/[\[\],]/, A2L_MAP)
-          "list( %s )" % obj
+          "list( %s )" % list_notation
         end
       when Numeric
         "number(%d)" % obj
       when Rus3::Pair
         "pair(%s)" % obj
+      when Rus3::Vector
+        "vector(%s)" % obj
       else
         "%s(%s)" % [obj.class, obj]
       end
@@ -31,7 +33,9 @@ module Rus3
     :pair_required => "pair required: got=%s",
     :list_required => "proper list required: got=%s",
     :pair_or_list_required => "pair or proper list required: got=%s",
+    :vector_required => "vector required: got=%s",
     :out_of_range  => "argument out of range: got=%s",
+    :exceed_upper_limit => "argument exceeds its upper limit (%d): got=%d",
     :unsupported_method => "specified method does not work now.",
     :wrong_type => "wrong type argument: got=%s, wants=%s",
     :integer_required => "integer required: got=%s",
@@ -63,12 +67,24 @@ module Rus3
     end
   end
 
+  class VectorRequiredError < Error
+    def initialize(obj)
+      super(EMSG[:vector_required] % smart_error_value(obj))
+    end
+  end
+
   class OutOfRangeError < Error
     def initialize(obj)
       super(EMSG[:out_of_range] % smart_error_value(obj))
     end
   end
 
+  class ExceedUpperLimitError < Error
+    def initialize(value, limit)
+      super(EMSG[:exceed_upper_limit] % [limit, value])
+    end
+  end
+
   class UnsupportedMethodError < Error
     def initialize
       super(EMSG[:unsupported_method])

data/lib/rus3/evaluator.rb

@@ -14,6 +14,7 @@ module Rus3
     class Environment
       include Rus3::Procedure::Control
       include Rus3::Procedure::Write
+      include Rus3::Procedure::Vector
       include Rus3::Procedure::List
       include Rus3::Procedure::Predicate
       include Rus3::EmptyList

data/lib/rus3/parser/lexer.rb

@@ -5,7 +5,7 @@ module Rus3::Parser
   class Lexer < Enumerator
 
     # Indicates the version of the lexer class
-    LEXER_VERSION = "0.1.0"
+    LEXER_VERSION = "0.1.1"
 
     # :stopdoc:
 
@@ -13,6 +13,7 @@ module Rus3::Parser
       # delimiters
       :lparen,
       :rparen,
+      :vec_lparen,
       # value types
       :boolean,
       :ident,
@@ -31,12 +32,12 @@ module Rus3::Parser
     STRING     = /\A\"[^\"]*\"\Z/
 
     # idents
-    EXTENDED   = "\\-"
+    EXTENDED   = "\\->"
     IDENT_PAT  = "[a-zA-Z_][\\w?!#{EXTENDED}]*"
     IDENTIFIER = Regexp.new("\\A#{IDENT_PAT}\\Z")
 
     EXTENDED_REGEXP = Regexp.new("[#{EXTENDED}]")
-    EXTENDED_MAP = { "-" => "_", }
+    EXTENDED_MAP = { "-" => "_", ">" => "to_"}
 
     # operators
     ARITHMETIC_OPS = /\A[+\-*\/%]\Z/
@@ -90,6 +91,8 @@ module Rus3::Parser
             Token.new(:lparen, literal)
           when "]"
             Token.new(:rparen, literal)
+          when "#["
+            Token.new(:vec_lparen, literal)
           when BOOLEAN
             Token.new(:boolean, literal)
           when IDENTIFIER

data/lib/rus3/parser/scheme_parser.rb

@@ -6,7 +6,7 @@ module Rus3::Parser
   class SchemeParser < Parser
 
     # Indicates the version of the parser class
-    PARSER_VERSION = "0.1.0"
+    PARSER_VERSION = "0.1.1"
 
     # Constructs the version string.
 
@@ -115,6 +115,10 @@ module Rus3::Parser
     #              ["mul", "x", "y"]] ... i_exp
     #         -> "lambda { |x, y| mul(x, y) }.call(2, 3)" ... r_exp
     #
+    #  - vector (s_exp -> r_exp)
+    #    - #(1 2 #(3 4) 5)
+    #      -> "vector(1, 2, vector(3, 4), 5)"
+    #
     #  - list (s_exp -> r_exp)
     #    - (1 2 3 (4 5) (6 7 8) 9 0)
     #      -> "[1, 2, 3, [4, 5], [6, 7, 8], 9, 0]"
@@ -125,18 +129,25 @@ module Rus3::Parser
 
     def parse_tokens(lexer)     # :nodoc:
       r_exps = []
-      loop {
-        token = lexer.next
-        if token.type == :lparen
-          i_exp = parse_compound(lexer)
-          r_exps << translate(i_exp)
-        else
-          r_exps << parse_primitive(token)
-        end
-      }
+      loop { r_exps << parse_s_exp(lexer) }
       r_exps.join("\n")
     end
 
+    def parse_s_exp(lexer)
+      r_exp = nil
+      token = lexer.next
+      case token.type
+      when :lparen
+        i_exp = parse_compound(lexer)
+        r_exp = translate(i_exp)
+      when :vec_lparen
+        r_exp = parse_vector(lexer)
+      else
+        r_exp = parse_primitive(token)
+      end
+      r_exp
+    end
+
     def parse_primitive(token)
       r_exp = nil
       case token.type
@@ -153,6 +164,30 @@ module Rus3::Parser
       r_exp
     end
 
+    def parse_vector(lexer)
+      r_exp = "vector("
+      Kernel.loop {
+        token = lexer.peek
+        case token.type
+        when :lparen
+          lexer.next
+          i_exp = parse_compound(lexer)
+          r_exp += translate(i_exp)
+        when :vec_lparen
+          lexer.next
+          r_exp += parse_vector(lexer)
+        when :rparen
+          lexer.next
+          r_exp = r_exp.sub(/,\s*\Z/, "") + ")"
+          break
+        else
+          r_exp += parse_s_exp(lexer)
+        end
+        r_exp += ", "
+      }
+      r_exp
+    end
+
     def parse_compound(lexer)
       i_exp = []
       Kernel.loop {

data/lib/rus3/procedure/list.rb

@@ -11,12 +11,13 @@ module Rus3::Procedure
 
   module List
 
+    include Utils
     include Predicate
     include Rus3::EmptyList
 
     # Constructs a Pair object with arguments.
     #
-    #   - R5RS procedure: (cons obj1 obj2)
+    #   - procedure (R5RS): (cons obj1 obj2)
 
     def cons(obj1, obj2)
       case obj2
@@ -36,7 +37,7 @@ module Rus3::Procedure
     # Returns the CAR part of the argument.  If the arguemnt is not
     # a pair, raises PairRequiredError.
     #
-    #   - R5RS procedure: (car pair)
+    #   - procedure (R5RS): (car pair)
 
     def car(pair)
       case pair
@@ -53,7 +54,7 @@ module Rus3::Procedure
     # Returns the CDR part of the argument.  If the arguemnt is not
     # a pair, raises PairRequiredError.
     #
-    #   - R5RS procedure: (cdr pair)
+    #   - procedure (R5RS): (cdr pair)
 
     def cdr(pair)
       case pair
@@ -70,7 +71,7 @@ module Rus3::Procedure
     # Replaces the CAR part with the 2nd argument and returns UNDEF.
     # If the 1st arguemnt is not a pair, raises PairRequiredError.
     #
-    #   - R5RS procedure: (set-car! pair obj)
+    #   - procedure (R5RS): (set-car! pair obj)
 
     def set_car!(pair, obj)
       case pair
@@ -87,7 +88,7 @@ module Rus3::Procedure
     # Replaces the CDR part with the 2nd argument and returns UNDEF.
     # If the 1st arguemnt is not a pair, raises PairRequiredError.
     #
-    #   - R5RS procedure: (set-cdr! pair obj)
+    #   - procedure (R5RS): (set-cdr! pair obj)
 
     def set_cdr!(pair, obj)
       case pair
@@ -113,8 +114,8 @@ module Rus3::Procedure
 
     # Retrieves the CAR part of the CAR part of the given pair.
     #
-    #   - R5RS library procedure: (caar pair)
-    #   - R7RS procedure: (caar pair)
+    #   - library procedure (R5RS): (caar pair)
+    #   - procedure (R7RS): (caar pair)
 
     def caar(pair)
       car(car(pair))
@@ -122,8 +123,8 @@ module Rus3::Procedure
 
     # Retrieves the CAR part of the CDR part of the given pair.
     #
-    #   - R5RS library procedure: (cadr pair)
-    #   - R7RS procedure: (cadr pair)
+    #   - library procedure (R5RS): (cadr pair)
+    #   - procedure (R7RS): (cadr pair)
 
     def cadr(pair)
       car(cdr(pair))
@@ -131,8 +132,8 @@ module Rus3::Procedure
 
     # Retrieves the CDR part of the CAR part of the given pair.
     #
-    #   - R5RS library procedure: (cdar pair)
-    #   - R7RS procedure: (cdar pair)
+    #   - library procedure (R5RS): (cdar pair)
+    #   - procedure (R7RS): (cdar pair)
 
     def cdar(pair)
       cdr(car(pair))
@@ -140,8 +141,8 @@ module Rus3::Procedure
 
     # Retrieves the CDR part of the CDR part of the given pair.
     #
-    #   - R5RS library procedure: (cddr pair)
-    #   - R7RS procedure: (cddr pair)
+    #   - libbrary procedure (R5RS): (cddr pair)
+    #   - procedure (R7RS): (cddr pair)
 
     def cddr(pair)
       cdr(cdr(pair))
@@ -149,15 +150,14 @@ module Rus3::Procedure
 
     # :stopdoc:
 
-    #    - R7RS: procedure: (make-list k)
-
-    #    - R7RS: procedure: (make-list k fill)
+    #    - procedure (R7RS): (make-list k)
+    #    - procedure (R7RS): (make-list k fill)
 
     # :startdoc:
 
     # Constructs a list from arguments in its order.
     #
-    #   - R5RS library procedure: (list obj ...)
+    #   - library procedure (R5RS): (list obj ...)
 
     def list(*objs)
       Array[*objs]
@@ -166,8 +166,8 @@ module Rus3::Procedure
     # Returns the length of the arguemnt.  If the argument is not a
     # proper list, raises ListRequiredError.
     #
-    #   - R5RS library procedure: (length list)
-    #   - R7RS procedure: (length list)
+    #   - library procedure (R5RS): (length list)
+    #   - procedure (R7RS): (length list)
 
     def length(lst)
       check_list(lst)
@@ -177,8 +177,8 @@ module Rus3::Procedure
     # Concatenates given lists into a single list.  Each argument
     # must be a proper list, otherwise raises ListRequiredError.
     #
-    #   - R5RS library procedure: (append list ...)
-    #   - R7RS procedure: (append list ...)
+    #   - library procedure (R5RS): (append list ...)
+    #   - procedure (R7RS): (append list ...)
 
     def append(*lists)
       lists.each { |lst|
@@ -189,8 +189,8 @@ module Rus3::Procedure
 
     # Returns a list of the same elements in reverse order.
     #
-    #   - R5RS library procedure: (reverse list)
-    #   - R7RS procedure: (reverse list)
+    #   - library procedure (R5RS): (reverse list)
+    #   - procedure (R7RS): (reverse list)
 
     def reverse(lst)
       check_list(lst)
@@ -199,12 +199,12 @@ module Rus3::Procedure
 
     # Returns the sublist of the arguemnt by omitting the first k
     # elements.  The 2nd argument, k must be in 0..length(lst),
-    # otherwise raises OutOfRangeError.
+    # otherwise raises ExceedUppeerLimitError.
     #
     # This implementation logic comes from R5RS 6.3.2.
     #
-    #   - R5RS library procedure: (list-tail list k)
-    #   - R7RS procedure: (list-tail list k)
+    #   - library procedure (R5RS): (list-tail list k)
+    #   - procedure (R7RS): (list-tail list k)
 
     def list_tail(lst, k)
       check_list(lst)
@@ -214,10 +214,10 @@ module Rus3::Procedure
     end
 
     # Returns kth element of the argument.  k must be less than the
-    # length of the list, otherwise, raises OutOfRangeError.
+    # length of the list, otherwise, raises ExceedUppeerLimitError.
     #
-    #   - R5RS library procedure: (list-ref list k)
-    #   - R7RS procedure: (list-ref list k)
+    #   - library procedure (R5RS): (list-ref list k)
+    #   - procedure (R7RS): (list-ref list k)
 
     def list_ref(lst, k)
       check_list(lst)
@@ -228,62 +228,45 @@ module Rus3::Procedure
 
     # :stopdoc:
 
-    #   - R7RS procedure: (list-set! list k obj)
+    #   - procedure (R7RS): (list-set! list k obj)
 
     # :startdoc:
 
     # :stopdpc:
 
-    #   - R5RS library procedure: (memq obj list)
-    #   - R7RS procedure: (memq obj list)
+    #   - library procedure (R5RS): (memq obj list)
+    #   - procedure (R7RS): (memq obj list)
 
-    #   - R5RS library procedure: (memv obj list)
-    #   - R7RS procedure: (memv obj list)
+    #   - library procedure (R5RS): (memv obj list)
+    #   - procedure (R7RS): (memv obj list)
 
-    #   - R5RS library procedure: (member obj list)
-    #   - R7RS procedure: (member obj list)
+    #   - library procedure (R5RS): (member obj list)
+    #   - procedure (R7RS): (member obj list)
 
-    #   - R7RS procedure: (member obj list compare)
+    #   - procedure (R7RS): (member obj list compare)
 
     # :startdoc:
 
     # :stopdpc:
 
-    #   - R5RS library procedure: (assq obj alist)
-    #   - R7RS procedure: (assq obj alist)
+    #   - library procedure (R5RS): (assq obj alist)
+    #   - procedure (R7RS): (assq obj alist)
 
-    #   - R5RS library procedure: (assv obj alist)
-    #   - R7RS procedure: (assv obj alist)
+    #   - library procedure (R5RS): (assv obj alist)
+    #   - procedure (R7RS): (assv obj alist)
 
-    #   - R5RS library procedure: (assoc obj alist)
-    #   - R7RS procedure: (assoc obj alist)
+    #   - library procedure (R5RS): (assoc obj alist)
+    #   - procedure (R7RS): (assoc obj alist)
 
-    #   - R7RS procedure: (assoc obj alist compare)
+    #   - procedure (R7RS): (assoc obj alist compare)
 
     # :startdoc:
 
     # :stopdoc:
 
-    #   - R7RS procedure: (list-copy obj)
+    #   - procedure (R7RS): (list-copy obj)
 
     # :startdoc:
 
-    private
-
-    def check_pair(pair)      # :nodoc:
-      if !pair.instance_of?(Rus3::Pair) and !pair.instance_of?(Array)
-        raise Rus3::PairRequiredError, pair
-      end
-    end
-
-    def check_list(lst)       # :nodoc:
-      raise Rus3::ListRequiredError, lst unless list?(lst)
-    end
-
-    # To make sure the number is less than its upper limit.
-    def check_upper_limit(k, limit) # :nodoc:
-      raise Rus3::OutOfRangeError, k if k >= limit
-    end
-
   end
 end

data/lib/rus3/procedure/predicate.rb

@@ -44,12 +44,12 @@ module Rus3::Procedure
     # provides some classes for the rest of them.
     #
     #   boolean? ---> FalseClass or TrueClass
-    #   pair? ------> Rus3::Pair
+    #   pair? ------> Array (as a list) or Rus3::Pair (as a dotted pair)
     #   symbol? ----> Symbol
     #   number? ----> Numeric
     #   char? ------> Rus3::Char
     #   string? ----> String
-    #   vector? ----> Array
+    #   vector? ----> Rus3::Vector
     #   port? ------> Rus3::Port
     #   procedure? -> Proc
 
@@ -64,11 +64,11 @@ module Rus3::Procedure
     end
 
     def symbol?(obj)
-      obj.is_a?(Symbol) && obj != Rus3::UNDEF
+      obj.instance_of?(Symbol) && obj != Rus3::UNDEF
     end
 
     def number?(obj)
-      obj.is_a?(Numeric)
+      obj.kind_of?(Numeric)
     end
 
     def char?(obj)
@@ -79,8 +79,9 @@ module Rus3::Procedure
       obj.kind_of?(String)
     end
 
+    # procedure (R5RS/R7RS): (vector? obj)
     def vector?(obj)
-      false
+      obj.instance_of?(Rus3::Vector)
     end
 
     def port?(obj)

data/lib/rus3/procedure/utils.rb

@@ -0,0 +1,28 @@
+# frozen_string_literal: true
+
+module Rus3::Procedure
+  module Utils
+
+    def check_pair(pair)        # :nodoc:
+      if !pair.instance_of?(Rus3::Pair) and !pair.instance_of?(Array)
+        raise Rus3::PairRequiredError, pair
+      end
+    end
+
+    def check_list(lst)         # :nodoc:
+      raise Rus3::ListRequiredError, lst unless list?(lst)
+    end
+
+    def check_vector(obj)       # :nodoc:
+      raise Rus3::VectorRequiredError, obj unless vector?(obj)
+    end
+
+    # To make sure the number is less than its upper limit.  When k
+    # greater than or equal to limit, raises ExceedUpperLimitError.
+
+    def check_upper_limit(k, limit)
+      raise Rus3::ExceedUpperLimitError.new(k, limit) if k >= limit
+    end
+
+  end
+end

data/lib/rus3/procedure/vector.rb

@@ -0,0 +1,98 @@
+# frozen_string_literal: true
+
+module Rus3::Procedure
+
+  # Provides procedures to operate a vector.
+
+  module Vector
+
+    include Utils
+    include List
+    include Predicate
+    include Rus3::EmptyList
+
+    UNDEF = Rus3::UNDEF
+
+    #   - procedure (R5RS/R7RS): (make-vector k) or (make-vector k fill)
+
+    def make_vector(k, fill = UNDEF)
+      Rus3::Vector.new(k, fill)
+    end
+
+    #   - library procedure (R5RS/R7RS): (vector obj ...)
+
+    def vector(*objs)
+      Rus3::Vector.vector(*objs)
+    end
+
+    #   - procedure (R5RS/R7RS): (vector-length vector)
+
+    def vector_length(vec)
+      check_vector(vec)
+      vec.length
+    end
+
+    #   - procedure (R5RS/R7RS): (vector-ref vector, k)
+
+    def vector_ref(vec, k)
+      check_vector(vec)
+      check_upper_limit(k, vec.length)
+      vec.ref(k)
+    end
+
+    #   - procedure (R5RS/R7RS): (vector-set! vector k obj)
+
+    def vector_set!(vec, k, obj)
+      check_vector(vec)
+      Rus3::Vector.vector_set!(vec, k, obj)
+    end
+
+    #   - library procedure (R5RS): (vector->list vector)
+    #   - procedure (R7RS):
+    #       (vector->list vector)
+    #       (vector->list vector start)
+    #       (vector->list vector start end)
+
+    def vector_to_list(vec, start_index = 0, end_index = -1)
+      end_index = vec.length if end_index == -1
+
+      check_vector(vec)
+      check_limits(start_index, end_index, vec.length)
+
+      list(*vec.ref(start_index...end_index))
+    end
+
+    #   - library procedure (R5RS): (list->vector list)
+    #   - procedre (R7RS): (list->vector list)
+
+    def list_to_vector(lst)
+      Rus3::Vector.list_to_vector(lst)
+    end
+
+    #   - library procedure (R5RS): (vector-fill! vector fill)
+    #   - procedure (R7RS): (vector-fill! vector fill start end)
+
+    def vector_fill!(vec, fill, start_index = 0, end_index = -1)
+      end_index = vec.length if end_index == -1
+
+      check_vector(vec)
+      check_limits(start_index, end_index, vec.length)
+
+      start_index.upto(end_index - 1) {|i| vec.set!(i, fill)}
+    end
+
+    # :stopdoc:
+
+    private
+
+    # Makes sure that start_index < end_index <= limit.
+    def check_limits(start_index, end_index, limit)
+      check_upper_limit(start_index, limit)
+      check_upper_limit(start_index, end_index)
+      check_upper_limit(end_index, limit + 1)
+    end
+
+    # :startdoc:
+
+  end
+end

data/lib/rus3/repl.rb

@@ -97,7 +97,9 @@ module Rus3
     # Shows the greeting message.
     def greeting
       puts "A simple REPL for Rus3:"
-      puts "- Rus3 version: #{Rus3::VERSION}"
+      puts "- Rus3 version: #{Rus3::VERSION} (#{Rus3::RELEASE})"
+      return unless @verbose
+
       puts "  - REPL version: #{VERSION}"
       COMPONENTS.keys.each { |comp_name|
         Kernel.print "    - "

data/lib/rus3/vector.rb

@@ -0,0 +1,57 @@
+# frozen_string_literal: true
+
+require "forwardable"
+
+module Rus3
+
+  # A class to represent a vector structure of Scheme.
+
+  class Vector
+    extend Forwardable
+
+    class << self
+      # Returns a new Vector instance which elements are the given objs.
+      def vector(*objs)
+        list_to_vector(objs)
+      end
+
+      # Converts a list into a new Vector instance.
+      def list_to_vector(lst)
+        vec = self.new(lst.size)
+        lst.each_with_index {|e, i| vec.set!(i, e)}
+        vec
+      end
+
+      # Converts a Vector instance into a list.
+      def vector_to_list(vec)
+        vec.to_a
+      end
+
+      # Replaces the k-th element of the given vector with obj.
+      def vector_set!(vec, k, obj)
+        raise ExceedUpperLimitError.new(k, vec.length) if k >= vec.length
+        vec.set!(k, obj)
+      end
+
+    end
+
+    def initialize(k, fill = UNDEF)
+      @content = Array.new(k, fill)
+    end
+
+    def_delegator :@content, :[], :ref
+    def_delegator :@content, :[]=, :set!
+    def_delegator :@content, :size, :length
+
+    # Returns an Array instance which contains the vector contents.
+    def to_a
+      @content.dup
+    end
+
+    # Converts a string represents as a Scheme vector.
+    def to_s
+      "#(#{@content.join(' ')})"
+    end
+
+  end
+end

data/lib/rus3/version.rb

@@ -1,5 +1,6 @@
 # frozen_string_literal: true
 
 module Rus3
-  VERSION = "0.1.0"
+  VERSION = "0.1.1"
+  RELEASE = "2021-04-22"
 end

data/rus3.gemspec

@@ -11,6 +11,7 @@ Gem::Specification.new do |spec|
   spec.summary       = "Ruby with Syntax Sugar of Scheme"
   spec.description   = "Ruby with Syntax Sugar of Scheme"
   spec.homepage      = "https://github.com/mnbi/rus3"
+  spec.license       = "MIT"
   spec.required_ruby_version = Gem::Requirement.new(">= 2.3.0")
 
   spec.metadata["homepage_uri"] = spec.homepage

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: rus3
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 0.1.1
 platform: ruby
 authors:
 - mnbi
 autorequire:
 bindir: exe
 cert_chain: []
-date: 2021-04-21 00:00:00.000000000 Z
+date: 2021-04-22 00:00:00.000000000 Z
 dependencies: []
 description: Ruby with Syntax Sugar of Scheme
 email:
@@ -45,12 +45,16 @@ files:
 - lib/rus3/procedure/control.rb
 - lib/rus3/procedure/list.rb
 - lib/rus3/procedure/predicate.rb
+- lib/rus3/procedure/utils.rb
+- lib/rus3/procedure/vector.rb
 - lib/rus3/procedure/write.rb
 - lib/rus3/repl.rb
+- lib/rus3/vector.rb
 - lib/rus3/version.rb
 - rus3.gemspec
 homepage: https://github.com/mnbi/rus3
-licenses: []
+licenses:
+- MIT
 metadata:
   homepage_uri: https://github.com/mnbi/rus3
   source_code_uri: https://github.com/mnbi/rus3