Class: Code::Object::Function

Inherits:
Code::Object show all
Defined in:
lib/code/object/function.rb

Direct Known Subclasses

Super

Constant Summary

Constants inherited from Code::Object

NUMBER_CLASSES

Instance Attribute Summary collapse

Attributes included from Concerns::Shared

#methods, #raw

Instance Method Summary collapse

Methods inherited from Code::Object

code_new, #code_new, maybe, #name, repeat, |

Methods included from Concerns::Shared

#<=>, #==, #as_json, #blank?, #code_and, #code_as_json, #code_blank?, #code_compare, #code_deep_duplicate, #code_different, #code_duplicate, #code_equal, #code_exclamation_mark, #code_exclusive_range, #code_falsy?, code_fetch, code_get, #code_greater, #code_greater_or_equal, #code_inclusive_range, #code_inspect, #code_less, #code_less_or_equal, #code_methods, #code_name, #code_nothing?, #code_or, #code_presence, #code_presence_in, #code_present?, #code_self, code_set, #code_something?, #code_strict_different, #code_strict_equal, #code_to_boolean, #code_to_class, #code_to_date, #code_to_decimal, #code_to_dictionary, #code_to_duration, #code_to_integer, #code_to_json, #code_to_list, #code_to_nothing, #code_to_parameter, #code_to_range, #code_to_time, #code_truthy?, #eql?, #falsy?, #hash, #inspect, #multi_fetch, #nothing?, #present?, #sig, #something?, #succ, #to_code, #to_i, #to_json, #to_s, #truthy?

Constructor Details

#initialize(*args, parent: nil, methods: nil, **_kargs, &_block) ⇒ Function

Returns a new instance of Function.



8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
# File 'lib/code/object/function.rb', line 8

def initialize(*args, parent: nil, methods: nil, **_kargs, &_block)
  @code_parameters =
    List
      .new(args.first)
      .raw
      .map { |parameter| Parameter.new(parameter) }
      .to_code

  @code_body = Code.new(args.second.presence)
  @definition_context = args.third if args.third.is_a?(Context)
  @parent = parent.to_code
  self.methods = methods.to_code
  self.methods = Dictionary.new if self.methods.nothing?

  self.raw = List.new([code_parameters, code_body])
end

Instance Attribute Details

#code_bodyObject (readonly)

Returns the value of attribute code_body.



6
7
8
# File 'lib/code/object/function.rb', line 6

def code_body
  @code_body
end

#code_parametersObject (readonly)

Returns the value of attribute code_parameters.



6
7
8
# File 'lib/code/object/function.rb', line 6

def code_parameters
  @code_parameters
end

#definition_contextObject (readonly)

Returns the value of attribute definition_context.



6
7
8
# File 'lib/code/object/function.rb', line 6

def definition_context
  @definition_context
end

#parentObject (readonly)

Returns the value of attribute parent.



6
7
8
# File 'lib/code/object/function.rb', line 6

def parent
  @parent
end

Instance Method Details

#call(**args) ⇒ Object



25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
# File 'lib/code/object/function.rb', line 25

def call(**args)
  code_operator = args.fetch(:operator, nil).to_code
  code_arguments = args.fetch(:arguments, List.new).to_code
  globals = multi_fetch(args, *GLOBALS)

  case code_operator.to_s
  when "", "call"
    sig(args) { signature_for_call }
    code_call(
      *code_arguments.raw,
      explicit_arguments: args.fetch(:explicit_arguments, true),
      **globals
    )
  when "extend"
    sig(args) { Function }
    code_extend(code_arguments.code_first)
  when /=$/
    sig(args) { Object }
    code_set(code_operator.to_s.chop, code_value)
  when ->(operator) { code_has_key?(operator).truthy? }
    result = code_fetch(code_operator)

    if result.is_a?(Function)
      result.call(**args, operator: nil, bound_self: self)
    else
      sig(args)
      result
    end
  else
    super
  end
end

#code_call(*arguments, explicit_arguments: true, bound_self: nil, **globals) ⇒ Object



58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
# File 'lib/code/object/function.rb', line 58

def code_call(*arguments, explicit_arguments: true, bound_self: nil, **globals)
  code_arguments = arguments.to_code
  code_context = Context.new({}, definition_context || globals[:context])
  code_self = bound_self.to_code
  code_self = captured_self if code_self.nothing? && captured_self
  code_self = Dictionary.new if code_self.nil? || code_self.nothing?

  code_context.code_set("self", code_self)

  if parent.is_a?(Function)
    code_context.code_set(
      "super",
      Super.new(
        parent,
        code_arguments,
        code_self,
        definition_context || globals[:context],
        explicit_arguments: explicit_arguments
      )
    )
  end

  code_parameters.raw.each.with_index do |code_parameter, index|
    code_argument =
      if code_parameter.spread?
        code_arguments
      elsif code_parameter.regular_splat?
        code_arguments
      elsif code_parameter.keyword_splat?
        code_arguments.raw.detect do |code_argument|
          code_argument.is_a?(Dictionary)
        end || Dictionary.new
      elsif code_parameter.block?
        code_arguments
          .raw
          .detect { |code_argument| code_argument.is_a?(Function) }
          .to_code
      elsif code_parameter.keyword?
        code_arguments
          .raw
          .select { |code_argument| code_argument.is_a?(Dictionary) }
          .detect do |code_dictionary|
            code_dictionary.code_has_key?(
              code_parameter.code_name
            ).truthy?
          end
          &.code_get(code_parameter.code_name)
          .to_code
      else
        code_arguments.raw[index].to_code
      end

    code_argument = code_parameter.code_default if code_argument.nothing?

    code_context.code_set(code_parameter.code_name, code_argument)
  end

  code_body.code_evaluate(**globals, context: code_context)
rescue Error::Return => e
  e.code_value
end

#code_extend(function) ⇒ Object



169
170
171
172
173
174
175
176
177
178
179
# File 'lib/code/object/function.rb', line 169

def code_extend(function)
  code_function = function.to_code

  Function.new(
    code_function.code_parameters,
    code_function.code_body.raw,
    code_function.definition_context,
    parent: self,
    methods: methods.code_deep_duplicate
  )
end

#code_fetch(key) ⇒ Object



181
182
183
# File 'lib/code/object/function.rb', line 181

def code_fetch(key)
  methods.code_fetch(key)
end

#code_get(key) ⇒ Object



185
186
187
# File 'lib/code/object/function.rb', line 185

def code_get(key)
  methods.code_get(key)
end

#code_has_key?(key) ⇒ Boolean

Returns:



189
190
191
# File 'lib/code/object/function.rb', line 189

def code_has_key?(key)
  methods.code_has_key?(key)
end

#code_set(key, value) ⇒ Object



193
194
195
# File 'lib/code/object/function.rb', line 193

def code_set(key, value)
  methods.code_set(key, value)
end

#code_to_stringObject



154
155
156
157
158
159
160
161
162
163
164
165
166
167
# File 'lib/code/object/function.rb', line 154

def code_to_string
  String.new(
    Format.format(
      [
        {
          function: {
            parameters: code_parameters.raw.map { |parameter| parameter_to_raw(parameter) },
            body: code_body.raw.to_raw
          }
        }
      ]
    )
  )
end

#signature_for_callObject



120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
# File 'lib/code/object/function.rb', line 120

def signature_for_call
  code_parameters
    .raw
    .inject([]) do |signature, code_parameter|
      if code_parameter.spread?
        signature + [Object.repeat]
      elsif code_parameter.block?
        signature + [Function]
      elsif code_parameter.keyword_splat?
        signature + [Dictionary.maybe]
      elsif code_parameter.regular_splat?
        signature + [Object.repeat]
      elsif code_parameter.keyword? && code_parameter.required?
        if signature.last.is_a?(::Hash)
          signature.last[code_parameter.code_name] = Object
          signature
        else
          signature + [{ code_parameter.code_name => Object }]
        end
      elsif code_parameter.keyword?
        if signature.last.is_a?(::Hash)
          signature.last[code_parameter.code_name] = Object.maybe
          signature
        else
          signature + [{ code_parameter.code_name => Object.maybe }]
        end
      elsif code_parameter.required?
        signature + [Object]
      else
        signature + [Object.maybe]
      end
    end + [Object.repeat]
end