elixir.rb 0.0.0 → 0.1.0

data/lib/elixir/file.rb

@@ -0,0 +1,17 @@
+module Elixir
+  module File
+    module_function
+
+    def cd path
+      :ok if Dir.chdir(path).zero?
+    rescue Errno::ENOENT
+      [:error, :enoent]
+    end
+
+    def cd! path
+      :ok if Dir.chdir(path).zero?
+    end 
+
+    # TODO: All the other File module functions.
+  end
+end

data/lib/elixir/float.rb

@@ -0,0 +1,34 @@
+module Elixir
+  module Float
+    module_function
+
+    def ceil number, precision = 0
+      # TODO: precision
+      number.ceil
+    end
+
+    def floor number, precision = 0
+      # TODO: precision
+      number.floor
+    end
+
+    def parse string
+      return :error unless string =~ /\A\d/
+      string_match = string.match /\A\d+\.?\d*/
+
+      [Float(string_match.to_s), string_match.post_match]
+    end
+
+    def round number, precision = 0
+      number.round precision
+    end
+
+    def to_char_list number, options = nil
+      # TODO
+    end
+
+    def to_string float, options = nil
+      # TODO
+    end
+  end
+end

data/lib/elixir/integer.rb

@@ -0,0 +1,31 @@
+module Elixir
+  module Integer
+    module_function
+
+    def is_even integer
+      integer.even?
+    end
+
+    def is_odd integer
+      integer.odd?
+    end
+
+    def parse string
+      return :error unless string =~ /\A\d/
+
+      if remainder_index = string =~ /\D/
+        [Integer(string[0...remainder_index]), string[remainder_index..-1]]
+      else
+        [Integer(string), '']
+      end
+    end
+
+    def to_char_list integer, base = 10
+      integer.to_s(base).upcase.chars
+    end
+
+    def to_string integer, base = 10
+      integer.to_s(base).upcase
+    end
+  end
+end

data/lib/elixir/list.rb

@@ -0,0 +1,121 @@
+module Elixir
+  module List
+    module_function
+
+    def delete array, item
+      array.delete item
+
+      array
+    end
+
+    def delete_at array, index
+      array.delete_at index
+
+      array
+    end
+
+    def duplicate elem, n
+      Array.new n, elem
+    end
+
+    def first array
+      array.first
+    end
+
+    def flatten array, tail = []
+      array.flatten + tail
+    end
+
+    def foldl array, acc, &fun
+      array.reduce acc do |accumulator, item|
+        fun.call item, accumulator
+      end
+    end
+
+    def foldr array, acc, &fun
+      array.reverse_each.reduce acc do |accumulator, item|
+        fun.call item, accumulator
+      end
+    end
+
+    def insert_at array, index, value
+      array.insert index, value
+    end
+
+    def keydelete array, key, position
+      # TODO
+    end
+
+    def keyfind array, key, position, default = nil
+      # TODO
+    end
+
+    def keymember? array, key, position
+      # TODO
+    end
+
+    def keyreplace array, key, position, new_array
+      # TODO
+    end
+
+    def keysort array, position
+      # TODO
+    end
+
+    def last array
+      array.last
+    end
+
+    def replace_at array, index, value
+      # TODO
+    end
+
+    def to_atom char_array
+      # TODO
+    end
+
+    def to_existing_atom char_array
+      # TODO
+    end
+
+    def to_float char_array
+      # TODO
+    end
+
+    def to_integer char_array
+      # TODO
+    end
+
+    def to_string array
+      array.flatten.map do |elem|
+        case elem
+        when ::Integer
+          elem.chr
+        when ::String
+          elem
+        else
+          raise ArgumentError
+        end
+      end.join
+    end
+
+    def to_tuple array
+      array
+    end
+
+    def update_at array, index, &fun
+      # TODO
+    end
+
+    def wrap obj
+      obj.respond_to?(:to_a) ? obj.to_a : [obj]
+    end
+
+    def zip array_of_arrays
+      array_of_arrays.transpose
+    rescue IndexError
+      min_size = array_of_arrays.min_by(&:size).size
+      array_of_arrays.map { |array| array.first min_size }.transpose
+    end
+  end
+end

data/lib/elixir/option_parser.rb

@@ -0,0 +1,91 @@
+require 'shellwords'
+require 'strscan'
+
+module Elixir
+  module OptionParser
+    module_function
+
+    def next argv, switches = []
+      # TODO: switches
+      argv = argv.dup
+
+      option = argv.shift
+      return [:error, argv] unless option
+
+      if option.start_with? '-'
+        key = option.sub(/\-{,2}/, '').gsub(/\-/, '_').to_sym
+
+        if argv.empty? || argv.first.start_with?('-')
+          value = true
+        else
+          value = argv.shift
+        end
+
+        [:ok, key, value, argv]
+      else
+        [:error, argv.unshift(option)]
+      end
+    end
+
+    def parse argv, switches = []
+      # TODO: switches
+      parsed = {}
+      argv = argv.dup
+      extras = []
+      errors = {}
+      
+      loop do
+        option_tuple = self.next argv
+
+        case option_tuple.first
+        when :ok
+          _, key, value, argv = option_tuple
+      
+          parsed[key] = value
+        when :error
+          _, string = option_tuple
+          argv.shift
+          extra = string.shift
+
+          extras << extra if extra
+        end
+
+        break [parsed, extras, errors] if option_tuple.last.empty?
+      end
+    end
+
+    def parse_head argv, switches = []
+      # TODO: switches
+      parsed = {}
+      argv = argv.dup
+      errors = {}
+
+      loop do
+        option_tuple = self.next argv
+
+        case option_tuple.first
+        when :ok
+          _, key, value, argv = option_tuple
+
+          parsed[key] = value
+        when :error
+          _, argv = option_tuple
+
+          break [parsed, argv, errors]
+        end
+      end
+    end
+
+    def split string
+      Shellwords.shellsplit string
+    end
+
+    def to_argv enum
+      enum.flat_map do |k, v|
+        return unless v
+
+        v == true ? "--#{k}" : ["--#{k}", v]
+      end.compact
+    end
+  end
+end

data/lib/elixir/path.rb

@@ -0,0 +1,29 @@
+module Elixir
+  module Path
+    module_function
+
+    def absname path
+      ::File.expand_path path
+    end
+
+    def basename path
+      base = ::File.basename path
+
+      base == '/' ? '' : base
+    end
+
+    def dirname path
+      ::File.dirname path
+    end
+
+    def expand path
+      ::File.expand_path path
+    end
+
+    def extname path
+      ::File.extname path
+    end
+
+    # TODO: The other Path module functions.
+  end
+end

data/lib/elixir/range.rb

@@ -0,0 +1,13 @@
+module Elixir
+  module Range
+    module_function
+
+    def new first, last
+      first..last
+    end
+
+    def range? range
+      range.instance_of? ::Range
+    end
+  end
+end

data/lib/elixir/set.rb

@@ -0,0 +1,49 @@
+module Elixir
+  module Set
+    module_function
+
+    def delete set, value
+      set.delete value
+    end
+
+    def difference set1, set2
+      set1.difference set2
+    end
+
+    def disjoint? set1, set2
+      set1.disjoint? set2
+    end
+
+    def equal? set1, set2
+      set1 === set2
+    end
+
+    def intersection set1, set2
+      set1.intersection set2
+    end
+
+    def member? set, value
+      set.member? value
+    end
+
+    def put set, value
+      set << value
+    end
+
+    def size set
+      set.size
+    end
+
+    def subset? set1, set2
+      set1.subset? set2
+    end
+
+    def to_list set
+      set.to_a
+    end
+
+    def union set1, set2
+      set1.union set2
+    end
+  end
+end

data/lib/elixir/stream.rb

@@ -1,5 +1,7 @@
 module Elixir
   module Stream
+    INFINITY = ::Float::INFINITY
+
     module_function
 
     def cycle collection
@@ -7,8 +9,8 @@ module Elixir
     end
 
     def interval milliseconds
-      Enumerator.new Float::INFINITY do |yielder|
-        0.upto Float::INFINITY do |n|
+      Enumerator.new INFINITY do |yielder|
+        0.upto INFINITY do |n|
           sleep milliseconds.fdiv 1000
           yielder << n
         end
@@ -16,7 +18,7 @@ module Elixir
     end
 
     def iterate value
-      Enumerator.new Float::INFINITY do |yielder|
+      Enumerator.new INFINITY do |yielder|
         loop do
           yielder << value
           value = yield value
@@ -25,7 +27,7 @@ module Elixir
     end
 
     def repeatedly
-      Enumerator.new Float::INFINITY do |yielder|
+      Enumerator.new INFINITY do |yielder|
         loop do
           yielder << yield
         end
@@ -40,12 +42,14 @@ module Elixir
     end
 
     def unfold tuple
-      Enumerator.new Float::INFINITY do |yielder|
+      Enumerator.new INFINITY do |yielder|
         loop do
           value, tuple = yield tuple
           yielder << value
         end
       end
     end
+
+    # TODO: The other Stream module functions.
   end
 end

data/lib/elixir/string.rb

@@ -0,0 +1,154 @@
+module Elixir
+  module String
+    module_function
+
+    def at string, index
+      string[index]
+    end
+
+    def capitalize string
+      string.capitalize
+    end
+
+    def chunk string, trait
+      # TODO
+    end
+
+    def codepoints string
+      string.chars
+    end
+
+    def contains? string, contents
+      warn '[deprecation] Calling String.contains?/2 with an empty string is deprecated and will fail in the future' if contents.empty?
+
+      string.include? contents
+    end
+
+    def downcase string
+      string.downcase
+    end
+
+    def duplicate string, n
+      string * n
+    end
+
+    def ends_with? string, *suffixes
+      warn '[deprecation] Calling String.ends_with?/2 with an empty string is deprecated and will fail in the future' if string.empty?
+
+      string.end_with? *suffixes.flatten(1)
+    end
+
+    def first string
+      string[0]
+    end
+
+    def graphemes string
+      string.chars
+    end
+
+    def last string
+      string[-1]
+    end
+
+    def length string
+      string.size
+    end
+
+    def ljust string, length, padding = ' '
+      string.ljust length, padding
+    end
+
+    def lstrip string, char = :todo
+      string.lstrip
+    end
+
+    def match? string, regex
+      # TODO
+    end
+
+    def next_codepoint string
+      [string[0], string[1..-1]]
+    end
+
+    def next_grapheme string
+      [string[0], string[1..-1]]
+    end
+
+    def printable? string
+      # TODO
+    end
+
+    def replace string, pattern, replacement, options = []
+      # TODO
+    end
+
+    def reverse string
+      string.reverse
+    end
+
+    def rjust string, len, padding
+      # TODO
+    end
+
+    def rstrip string, char = ' '
+      # TODO
+    end
+
+    def slice string, range
+      # TODO
+    end
+
+    def split string
+      string.split
+    end
+
+    def split_at string, offset
+      # TODO
+    end
+
+    def starts_with string, prefix
+      string.start_with? prefix
+    end
+
+    def strip string, char = nil
+      # TODO
+    end
+
+    def to_atom string
+      string.to_sym
+    end
+
+    def to_char_list string
+      string.chars
+    end
+
+    def to_existing_atom string
+      # Nothing to see here... >.>
+      if Symbol.all_symbols.map(&:to_s).include? string
+        string.to_sym
+      else
+        raise ArgumentError
+      end
+    end
+
+    def to_float string
+      Float(string)
+    end
+
+    def to_integer string, base = 10
+      Integer(string)
+    end
+
+    def upcase string
+      string.upcase
+    end
+
+    def valid? string
+      string.valid_encoding?
+    end
+
+    def valid_character? char
+      char.size == 1 && char.valid_encoding?
+    end
+  end
+end