code-ruby 0.13.1 → 0.14.0

data/lib/code/object/global.rb

@@ -4,22 +4,21 @@ class Code
   class Object
     class Global < Object
       def initialize(...)
-        super
+        @raw = "global"
       end
 
       def call(**args)
         operator = args.fetch(:operator, nil)
-        arguments = args.fetch(:arguments, [])
+        arguments = args.fetch(:arguments, List.new)
         output = args.fetch(:output)
         context = args.fetch(:context)
-        globals = multi_fetch(args, *GLOBALS)
-        value = arguments.first&.value
-        values = arguments.map(&:value)
+        multi_fetch(args, *GLOBALS)
+        value = arguments.code_first
 
         case operator.to_s
         when "Boolean"
           sig(args) { Object.repeat }
-          value ? Boolean.new(*values) : Class.new(Boolean)
+          arguments.any? ? Boolean.new(*arguments.raw) : Class.new(Boolean)
         when "break"
           sig(args) { Object.repeat }
           raise Error::Break, value || Nothing.new
@@ -28,78 +27,80 @@ class Code
           raise Error::Next, value || Nothing.new
         when "Class"
           sig(args) { Object.repeat }
-          value ? Class.new(*values) : Class.new(Class)
+          arguments.any? ? Class.new(*arguments.raw) : Class.new(Class)
         when "Date"
           sig(args) { Object.repeat }
-          value ? Date.new(*values) : Class.new(Date)
+          arguments.any? ? Date.new(*arguments.raw) : Class.new(Date)
         when "Decimal"
           sig(args) { Object.repeat }
-          value ? Decimal.new(*values) : Class.new(Decimal)
+          arguments.any? ? Decimal.new(*arguments.raw) : Class.new(Decimal)
         when "Dictionary"
           sig(args) { Object.repeat }
-          value ? Dictionary.new(*values) : Class.new(Dictionary)
+          if arguments.any?
+            Dictionary.new(*arguments.raw)
+          else
+            Class.new(Dictionary)
+          end
         when "Duration"
           sig(args) { Object.repeat }
-          value ? Duration.new(*values) : Class.new(Duration)
+          arguments.any? ? Duration.new(*arguments.raw) : Class.new(Duration)
         when "Function"
           sig(args)
-          Class.new(Function)
+          arguments.any? ? Function.new(*arguments.raw) : Class.new(Function)
         when "Integer"
           sig(args) { Object.repeat }
-          value ? Integer.new(*values) : Class.new(Integer)
+          arguments.any? ? Integer.new(*arguments.raw) : Class.new(Integer)
         when "List"
           sig(args) { Object.repeat }
-          value ? List.new(*values) : Class.new(List)
+          arguments.any? ? List.new(*arguments.raw) : Class.new(List)
         when "Nothing"
           sig(args) { Object.repeat }
-          value ? Nothing.new(*values) : Class.new(Nothing)
+          arguments.any? ? Nothing.new(*arguments.raw) : Class.new(Nothing)
         when "context"
           sig(args)
           context
         when "Object"
           sig(args)
-          Class.new(Object)
+          arguments.any? ? Object.new(*arguments.raw) : Class.new(Object)
         when "Range"
           sig(args) { Object.repeat }
-          value ? Range.new(*values) : Class.new(Range)
+          arguments.any? ? Range.new(*arguments.raw) : Class.new(Range)
         when "String"
           sig(args) { Object.repeat }
-          value ? String.new(*values) : Class.new(String)
+          arguments.any? ? String.new(*arguments.raw) : Class.new(String)
         when "Time"
           sig(args) { Object.repeat }
-          value ? Time.new(*values) : Class.new(Time)
+          arguments.any? ? Time.new(*arguments.raw) : Class.new(Time)
         when "Context"
           sig(args) { Object.repeat }
-          value ? Context.new(*values) : Class.new(Context)
+          arguments.any? ? Context.new(*arguments.raw) : Class.new(Context)
         when "Code"
           sig(args) { Object.repeat }
-          value ? Code.new(*values) : Class.new(Code)
-        when "Argument"
-          sig(args) { Object.repeat }
-          value ? Argument.new(*values) : Class.new(Argument)
+          arguments.any? ? Code.new(*arguments.raw) : Class.new(Code)
         when "Parameter"
           sig(args) { Object.repeat }
-          value ? Parameter.new(*values) : Class.new(Parameter)
-        when "Range"
-          sig(args) { Object.repeat }
-          value ? Range.new(*values) : Class.new(Range)
+          arguments.any? ? Parameter.new(*arguments.raw) : Class.new(Parameter)
         when "IdentifierList"
           sig(args) { Object.repeat }
-          value ? IdentifierList.new(*values) : Class.new(IdentifierList)
+          if arguments.any?
+            IdentifierList.new(*arguments.raw)
+          else
+            Class.new(IdentifierList)
+          end
         when "evaluate"
           sig(args) { Object }
           Code.evaluate(value.to_s)
         when "p"
           sig(args) { Object.repeat }
-          output.puts(*arguments.map(&:value).map(&:inspect))
+          output.puts(*arguments.raw.map(&:inspect))
           Nothing.new
         when "print"
           sig(args) { Object.repeat }
-          output.print(*arguments.map(&:value))
+          output.print(*arguments.raw)
           Nothing.new
         when "puts"
           sig(args) { Object.repeat }
-          output.puts(*arguments.map(&:value))
+          output.puts(*arguments.raw)
           Nothing.new
         else
           context = context.lookup!(operator)

data/lib/code/object/identifier_list.rb

@@ -5,9 +5,9 @@ class Code
     class IdentifierList < List
       def call(**args)
         operator = args.fetch(:operator, nil)
-        arguments = args.fetch(:arguments, [])
+        arguments = args.fetch(:arguments, List.new)
         context = args.fetch(:context)
-        value = arguments.first&.value
+        value = arguments.code_first
 
         case operator.to_s
         when /=$/
@@ -27,8 +27,8 @@ class Code
             else
               context.fetch(raw.last).call(
                 **args,
-                operator: operator[..-2],
-                arguments: [Argument.new(value)]
+                operator: operator.chop,
+                arguments: List.new([value])
               )
             end
           )

data/lib/code/object/integer.rb

@@ -9,15 +9,15 @@ class Code
         whole = whole.raw if whole.is_an?(Object)
         exponent = exponent.raw if exponent.is_an?(Object)
         @raw = whole.to_i * 10**exponent
-      rescue FloatDomainError => e
+      rescue FloatDomainError
         raise Error, "#{decimal.inspect} * 10**#{exponent.inspect} is invalid"
       end
 
       def call(**args)
         operator = args.fetch(:operator, nil)
-        arguments = args.fetch(:arguments, [])
+        arguments = args.fetch(:arguments, List.new)
         globals = multi_fetch(args, *GLOBALS)
-        value = arguments.first&.value
+        value = arguments.code_first
 
         case operator.to_s
         when "%", "modulo"
@@ -34,10 +34,10 @@ class Code
           code_power(value)
         when "+", "plus", "self"
           sig(args) { Object.maybe }
-          value ? code_plus(value) : code_self
+          arguments.any? ? code_plus(value) : code_self
         when "-", "minus", "unary_minus"
           sig(args) { Integer | Decimal.maybe }
-          value ? code_minus(value) : code_unary_minus
+          arguments.any? ? code_minus(value) : code_unary_minus
         when "/", "division", "÷"
           sig(args) { Integer | Decimal }
           code_division(value)
@@ -137,15 +137,6 @@ class Code
         when "times"
           sig(args) { Function }
           code_times(value, **globals)
-        when "to_decimal"
-          sig(args)
-          code_to_decimal
-        when "to_integer"
-          sig(args)
-          code_to_integer
-        when "to_string"
-          sig(args)
-          code_to_string
         when "truncate"
           sig(args) { Integer.maybe }
           code_truncate(value)
@@ -180,7 +171,7 @@ class Code
       end
 
       def code_ceil(n = nil)
-        n ||= Integer.new(0)
+        n = Integer.new(0) if n.nil? || n.is_a?(Nothing)
         Integer.new(raw.ceil(n.raw))
       end
 
@@ -193,13 +184,13 @@ class Code
       end
 
       def code_decrement!(n = nil)
-        n ||= Integer.new(1)
+        n = Integer.new(1) if n.nil? || n.is_a?(Nothing)
         @raw -= n.raw
         self
       end
 
       def code_decrement(n = nil)
-        n ||= Integer.new(1)
+        n = Integer.new(1) if n.nil? || n.is_a?(Nothing)
         Integer.new(raw - n.raw)
       end
 
@@ -220,7 +211,7 @@ class Code
       end
 
       def code_floor(n = nil)
-        n ||= Integer.new(0)
+        n = Integer.new(0) if n.nil? || n.is_a?(Nothing)
         Integer.new(raw.floor(n.raw))
       end
 
@@ -229,13 +220,13 @@ class Code
       end
 
       def code_increment!(n = nil)
-        n ||= Integer.new(1)
+        n = Integer.new(1) if n.nil? || n.is_a?(Nothing)
         @raw += n.raw
         self
       end
 
       def code_increment(n = nil)
-        n ||= Integer.new(1)
+        n = Integer.new(1) if n.nil? || n.is_a?(Nothing)
         Integer.new(raw + n.raw)
       end
 
@@ -312,7 +303,7 @@ class Code
       end
 
       def code_round(n = nil)
-        n ||= Integer.new(0)
+        n = Integer.new(0) if n.nil? || n.is_a?(Nothing)
         Integer.new(raw.round(n.raw))
       end
 
@@ -355,7 +346,7 @@ class Code
       def code_times(argument, **globals)
         raw.times do |element|
           argument.call(
-            arguments: [Argument.new(Integer.new(element))],
+            arguments: List.new([Integer.new(element), self]),
             **globals
           )
         end
@@ -364,7 +355,7 @@ class Code
       end
 
       def code_truncate(n = nil)
-        n ||= Integer.new(0)
+        n = Integer.new(0) if n.nil? || n.is_a?(Nothing)
         Integer.new(raw.truncate(n.raw))
       end
 

data/lib/code/object/json.rb

@@ -1,3 +1,5 @@
+# frozen_string_literal: true
+
 class Code
   class Object
     class Json < Object
@@ -5,9 +7,15 @@ class Code
         if json.is_an?(Object)
           json
         elsif json.is_a?(::Hash)
-          Dictionary.new(json)
+          Dictionary.new(
+            json.transform_keys do |key|
+              Json.to_code(key)
+            end.transform_values do |value|
+              Json.to_code(value)
+            end
+          )
         elsif json.is_a?(::Array)
-          List.new(json)
+          List.new(json.map { |element| Json.to_code(element) })
         elsif json.is_a?(::String)
           String.new(json)
         elsif json.is_a?(::Float)

data/lib/code/object/list.rb

@@ -4,16 +4,16 @@ class Code
   class Object
     class List < Object
       def initialize(*args, **_kargs, &_block)
-        raw = args.first || Nothing.new
+        raw = args.first
         raw = raw.raw if raw.is_an?(Object)
         @raw = raw.to_a
       end
 
       def call(**args)
         operator = args.fetch(:operator, nil)
-        arguments = args.fetch(:arguments, [])
+        arguments = args.fetch(:arguments, List.new)
         globals = multi_fetch(args, *GLOBALS)
-        value = arguments.first&.value
+        value = arguments.code_first
 
         case operator.to_s
         when "sort"
@@ -83,8 +83,11 @@ class Code
 
       def code_any?(argument, **globals)
         Boolean.new(
-          raw.any? do |element|
-            argument.call(arguments: [Argument.new(element)], **globals).truthy?
+          raw.any?.with_index do |element, index|
+            argument.call(
+              arguments: List.new([element, Integer.new(index), self]),
+              **globals
+            ).truthy?
           rescue Error::Next => e
             e.value || Nothing.new
           end
@@ -97,16 +100,22 @@ class Code
       end
 
       def code_detect(argument, **globals)
-        raw.detect do |element|
-          argument.call(arguments: [Argument.new(element)], **globals).truthy?
+        raw.detect.with_index do |element, index|
+          argument.call(
+            arguments: List.new([element, Integer.new(index), self]),
+            **globals
+          ).truthy?
         rescue Error::Next => e
           e.value || Nothing.new
         end || Nothing.new
       end
 
       def code_each(argument, **globals)
-        raw.each do |element|
-          argument.call(arguments: [Argument.new(element)], **globals)
+        raw.each.with_index do |element, index|
+          argument.call(
+            arguments: List.new([element, Integer.new(index), self]),
+            **globals
+          )
         rescue Error::Next => e
           e.value || Nothing.new
         end
@@ -118,7 +127,7 @@ class Code
       end
 
       def code_flatten(level = nil)
-        level ||= Integer.new(-1)
+        level = Integer.new(-1) if level.nil? || level.is_a?(Nothing)
         level = level.raw if level.is_a?(Integer)
 
         List.new(
@@ -148,8 +157,11 @@ class Code
 
       def code_map(argument, **globals)
         List.new(
-          raw.map do |element|
-            argument.call(arguments: [Argument.new(element)], **globals)
+          raw.map.with_index do |element, index|
+            argument.call(
+              arguments: List.new([element, Integer.new(index), self]),
+              **globals
+            )
           rescue Error::Next => e
             e.value || Nothing.new
           end
@@ -161,8 +173,11 @@ class Code
       end
 
       def code_max_by(argument, **globals)
-        raw.max_by do |element|
-          argument.call(arguments: [Argument.new(element)], **globals)
+        raw.max_by.with_index do |element, index|
+          argument.call(
+            arguments: List.new([element, Integer.new(index), self]),
+            **globals
+          )
         rescue Error::Next => e
           e.value || Nothing.new
         end || Nothing.new
@@ -170,8 +185,11 @@ class Code
 
       def code_none?(argument, **globals)
         Boolean.new(
-          raw.none? do |element|
-            argument.call(arguments: [Argument.new(element)], **globals).truthy?
+          raw.none?.with_index do |element, index|
+            argument.call(
+              arguments: List.new([element, Integer.new(index), self]),
+              **globals
+            ).truthy?
           rescue Error::Next => e
             (e.value || Nothing.new).truthy?
           end
@@ -179,9 +197,9 @@ class Code
       end
 
       def code_reduce(argument, **globals)
-        raw.reduce do |acc, element|
+        raw.reduce.with_index do |acc, element, index|
           argument.call(
-            arguments: [Argument.new(acc), Argument.new(element)],
+            arguments: List.new([acc, element, Integer.new(index), self]),
             **globals
           )
         rescue Error::Next => e
@@ -195,8 +213,11 @@ class Code
 
       def code_select(argument, **globals)
         List.new(
-          raw.select do |element|
-            argument.call(arguments: [Argument.new(element)], **globals).truthy?
+          raw.select.with_index do |element, index|
+            argument.call(
+              arguments: List.new([element, Integer.new(index), self]),
+              **globals
+            ).truthy?
           rescue Error::Next => e
             (e.value || Nothing.new).truthy?
           end
@@ -204,10 +225,12 @@ class Code
       end
 
       def code_select!(argument, **globals)
-        raw.select! do |element|
-          argument.call(arguments: [Argument.new(element)], **globals).truthy?
+        raw.select!.with_index do |element, index|
+          argument.call(
+            arguments: List.new([element, Integer.new(index), self]),
+            **globals
+          ).truthy?
         rescue Error::Next => e
-          p e.value
           (e.value || Nothing.new).truthy?
         end
 
@@ -229,6 +252,10 @@ class Code
       def code_sum
         raw.inject(&:code_plus) || Nothing.new
       end
+
+      def any?
+        raw.any?
+      end
     end
   end
 end

data/lib/code/object/parameter.rb

@@ -11,16 +11,24 @@ class Code
         String.new(raw.code_get(String.new(:name)))
       end
 
-      def code_keyword
-        Boolean.new(raw.code_get(String.new(:keyword)))
+      def code_regular?
+        Boolean.new(raw.code_get(String.new(:regular?)))
       end
 
-      def code_regular_splat
-        Boolean.new(raw.code_get(String.new(:regular_splat)))
+      def code_keyword?
+        Boolean.new(raw.code_get(String.new(:keyword?)))
       end
 
-      def code_keyword_splat
-        Boolean.new(raw.code_get(String.new(:keyword_splat)))
+      def code_keyword?
+        Boolean.new(raw.code_get(String.new(:keyword?)))
+      end
+
+      def code_regular_splat?
+        Boolean.new(raw.code_get(String.new(:regular_splat?)))
+      end
+
+      def code_keyword_splat?
+        Boolean.new(raw.code_get(String.new(:keyword_splat?)))
       end
 
       def code_default
@@ -32,19 +40,19 @@ class Code
       end
 
       def regular?
-        !keyword?
+        code_regular?.truthy?
       end
 
       def keyword?
-        code_keyword.truthy?
+        code_keyword?.truthy?
       end
 
       def regular_splat?
-        code_regular_splat.truthy?
+        code_regular_splat?.truthy?
       end
 
       def keyword_splat?
-        code_keyword_splat.truthy?
+        code_keyword_splat?.truthy?
       end
     end
   end

data/lib/code/object/range.rb

@@ -15,9 +15,9 @@ class Code
 
       def call(**args)
         operator = args.fetch(:operator, nil)
-        arguments = args.fetch(:arguments, [])
+        arguments = args.fetch(:arguments, List.new)
         globals = multi_fetch(args, *GLOBALS)
-        value = arguments.first&.value
+        value = arguments.code_first
 
         case operator.to_s
         when "all?"
@@ -53,24 +53,41 @@ class Code
       end
 
       def code_all?(argument, **globals)
+        index = 0
         Boolean.new(
           raw.all? do |element|
-            argument.call(arguments: [Argument.new(element)], **globals).truthy?
+            argument
+              .call(
+                arguments: List.new([element, Integer.new(index), self]),
+                **globals
+              )
+              .truthy?
+              .tap { index += 1 }
           end
         )
       end
 
       def code_any?(argument, **globals)
+        index = 0
         Boolean.new(
           raw.any? do |element|
-            argument.call(arguments: [Argument.new(element)], **globals).truthy?
+            argument
+              .call(
+                arguments: List.new([element, Integer.new(index), self]),
+                **globals
+              )
+              .truthy?
+              .tap { index += 1 }
           end
         )
       end
 
       def code_each(argument, **globals)
-        raw.each do |element|
-          argument.call(arguments: [Argument.new(element)], **globals)
+        raw.each.with_index do |element, index|
+          argument.call(
+            arguments: List.new([element, Integer.new(index), self]),
+            **globals
+          )
         end
         self
       end
@@ -85,16 +102,22 @@ class Code
 
       def code_map(argument, **globals)
         List.new(
-          raw.map do |element|
-            argument.call(arguments: [Argument.new(element)], **globals)
+          raw.map.with_index do |element, index|
+            argument.call(
+              arguments: List.new([element, Integer.new(index), self]),
+              **globals
+            )
           end
         )
       end
 
       def code_select(argument, **globals)
         List.new(
-          raw.select do |element|
-            argument.call(arguments: [Argument.new(element)], **globals).truthy?
+          raw.select.with_index do |element, index|
+            argument.call(
+              arguments: List.new([element, Integer.new(index), self]),
+              **globals
+            ).truthy?
           end
         )
       end

data/lib/code/object/string.rb

@@ -11,9 +11,9 @@ class Code
 
       def call(**args)
         operator = args.fetch(:operator, nil)
-        arguments = args.fetch(:arguments, [])
+        arguments = args.fetch(:arguments, List.new)
         globals = multi_fetch(args, *GLOBALS)
-        value = arguments.first&.value
+        value = arguments.code_first
 
         case operator.to_s
         when "&", "to_function"

data/lib/code/object/time.rb

@@ -47,8 +47,8 @@ class Code
 
       def call(**args)
         operator = args.fetch(:operator, nil)
-        arguments = args.fetch(:arguments, [])
-        value = arguments.first&.value
+        arguments = args.fetch(:arguments, List.new)
+        value = arguments.code_first
 
         case operator.to_s
         when "after?"
@@ -69,12 +69,12 @@ class Code
       end
 
       def code_after?(other = nil)
-        other ||= Time.code_now
+        other = Time.code_now if other.nil? || other.is_a?(Nothing)
         Boolean.new(raw.after?(other.raw))
       end
 
       def code_before?(other = nil)
-        other ||= Time.code_now
+        other = Time.code_now if other.nil? || other.is_a?(Nothing)
         Boolean.new(raw.before?(other.raw))
       end