Module: Erlang

Defined in:
lib/erlang/map.rb,
lib/erlang/nil.rb,
lib/erlang/pid.rb,
lib/erlang/atom.rb,
lib/erlang/cons.rb,
lib/erlang/list.rb,
lib/erlang/port.rb,
lib/erlang/term.rb,
lib/erlang/trie.rb,
lib/erlang/error.rb,
lib/erlang/float.rb,
lib/erlang/terms.rb,
lib/erlang/tuple.rb,
lib/erlang/binary.rb,
lib/erlang/export.rb,
lib/erlang/string.rb,
lib/erlang/function.rb,
lib/erlang/bitstring.rb,
lib/erlang/immutable.rb,
lib/erlang/reference.rb,
lib/erlang/undefined.rb,
lib/erlang/associable.rb,
lib/erlang/enumerable.rb,
lib/erlang/terms/version.rb

Defined Under Namespace

Modules: Associable, Enumerable, List Classes: Atom, Binary, Bitstring, Export, Float, Function, ImproperListError, Map, Pid, Port, ProperListError, Reference, String, Tuple

Constant Summary collapse

Nil =

A list without any elements. This is a singleton, since all empty lists are equivalent.

EmptyList.instance
PositiveInfinity = 
(1.0 / 0.0).freeze
NegativeInfinity = 
-PositiveInfinity

Class Method Summary collapse

Class Method Details

.compare(a, b) ⇒ Object 



55
56
57
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
 
# File 'lib/erlang/terms.rb', line 55

def self.compare(a, b)
  a = Erlang.from(a)
  b = Erlang.from(b)
  t = type(a)
  c = Erlang::Terms::TERM_ORDER[t] <=> Erlang::Terms::TERM_ORDER[type(b)]
  return c if c != 0
  case t
  when :atom
    return Erlang::Atom.compare(a, b)
  when :bitstring
    return Erlang::Bitstring.compare(a, b)
  when :fun
    return Erlang::Function.compare(a, b)
  when :list
    return Erlang::List.compare(a, b)
  when :map
    return Erlang::Map.compare(a, b)
  when :nil
    return 0
  when :number
    if is_float(a) or is_float(b)
      af = a
      if not is_float(a)
        begin
          af = Erlang::Float[a]
        rescue ArgumentError
          af = a
        end
      end
      bf = b
      if not is_float(b)
        begin
          bf = Erlang::Float[b]
        rescue ArgumentError
          bf = b
        end
      end
      return Erlang::Float.compare(af, bf) if af.kind_of?(Erlang::Float) and bf.kind_of?(Erlang::Float)
      return af.data <=> bf if af.kind_of?(Erlang::Float) and not bf.kind_of?(Erlang::Float)
      afbfcmp = bf.data <=> af
      return -afbfcmp
    end
    return a <=> b
  when :pid
    return Erlang::Pid.compare(a, b)
  when :port
    return Erlang::Port.compare(a, b)
  when :reference
    return Erlang::Reference.compare(a, b)
  when :tuple
    return Erlang::Tuple.compare(a, b)
  else
    raise NotImplementedError
  end
end

.from(term) ⇒ Object

Raises:

  • (ArgumentError) 


111
112
113
114
115
116
117
118
119
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
 
# File 'lib/erlang/terms.rb', line 111

def self.from(term)
  return term.to_erlang if term.respond_to?(:to_erlang)
  # integer
  return term if is_integer(term)
  # float
  return term if term.kind_of?(Erlang::Float)
  return Erlang::Float[term] if is_float(term)
  # atom
  return term if term.kind_of?(Erlang::Atom)
  return Erlang::Atom[term] if term.kind_of?(::Symbol)
  return Erlang::Atom[term] if term.kind_of?(::FalseClass)
  return Erlang::Atom[term] if term.kind_of?(::NilClass)
  return Erlang::Atom[term] if term.kind_of?(::TrueClass)
  # reference, function, port, pid, and tuple
  return term if is_reference(term)
  return term if is_function(term)
  return term if is_port(term)
  return term if is_pid(term)
  return term if is_tuple(term)
  # map
  return term if term.kind_of?(Erlang::Map)
  return Erlang::Map[term] if term.kind_of?(::Hash)
  # nil
  return term if term.equal?(Erlang::Nil)
  return Erlang::Nil if is_list(term) and term.empty?
  # list
  return term if term.kind_of?(Erlang::List)
  return term if term.kind_of?(Erlang::String)
  return Erlang::List.from_enum(term) if term.kind_of?(::Array)
  # bitstring
  return term if term.kind_of?(Erlang::Binary)
  return term if term.kind_of?(Erlang::Bitstring)
  return Erlang::Binary[term] if term.kind_of?(::String)
  raise ArgumentError, "unable to convert ruby object of class #{term.class} to erlang term"
end

.inspect(term = Erlang::Undefined, raw: false) ⇒ Object

Raises:

  • (NotImplementedError) 


147
148
149
150
151
152
153
 
# File 'lib/erlang/terms.rb', line 147

def self.inspect(term = Erlang::Undefined, raw: false)
  return super() if Erlang::Undefined.equal?(term)
  term = from(term)
  return term.erlang_inspect(raw) if term.respond_to?(:erlang_inspect)
  return term.inspect if is_any(term)
  raise NotImplementedError
end

.iolist_to_binary(iolist) ⇒ Object 



155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
 
# File 'lib/erlang/terms.rb', line 155

def self.iolist_to_binary(iolist)
  return iolist if is_binary(iolist)
  return Erlang::Binary.new(iolist) if iolist.is_a?(::String)
  return Erlang::Binary.new(iolist.to_s) if iolist.is_a?(::Symbol)
  if is_list(iolist)
    return Erlang::Binary.new(iolist.flatten.map do |element|
      data = nil
      if element.is_a?(::Integer) and element <= 255 and element >= -256
        element = element + 256 if element < 0
        data = element.chr
      elsif element.is_a?(::String)
        data = element
      elsif is_binary(element)
        data = element.data
      elsif element.is_a?(::Symbol)
        data = element.to_s
      elsif is_list(element)
        data = iolist_to_binary(element).data
      else
        raise ArgumentError, "unknown element in iolist: #{element.inspect}"
      end
      next Erlang::Terms.binary_encoding(data)
    end.join)
  else
    raise ArgumentError, "unrecognized iolist: #{iolist.inspect}"
  end
end

.is_any(term) ⇒ Object 



183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
 
# File 'lib/erlang/terms.rb', line 183

def self.is_any(term)
  return true if is_atom(term)
  return true if is_bitstring(term)
  return true if is_boolean(term)
  return true if is_float(term)
  return true if is_function(term)
  return true if is_integer(term)
  return true if is_list(term)
  return true if is_map(term)
  return true if is_number(term)
  return true if is_pid(term)
  return true if is_port(term)
  return true if is_reference(term)
  return true if is_tuple(term)
  return false
end

.is_atom(term) ⇒ Object 



200
201
202
203
204
205
206
207
 
# File 'lib/erlang/terms.rb', line 200

def self.is_atom(term)
  return true if term.kind_of?(::Symbol)
  return true if term.kind_of?(::FalseClass)
  return true if term.kind_of?(::NilClass)
  return true if term.kind_of?(::TrueClass)
  return true if term.kind_of?(Erlang::Atom)
  return false
end

.is_binary(term) ⇒ Object 



209
210
211
212
213
 
# File 'lib/erlang/terms.rb', line 209

def self.is_binary(term)
  return true if term.kind_of?(::String)
  return true if term.kind_of?(Erlang::Binary)
  return false
end

.is_bitstring(term) ⇒ Object 



215
216
217
218
219
 
# File 'lib/erlang/terms.rb', line 215

def self.is_bitstring(term)
  return true if is_binary(term)
  return true if term.kind_of?(Erlang::Bitstring)
  return false
end

.is_boolean(term) ⇒ Object 



221
222
223
224
225
226
227
 
# File 'lib/erlang/terms.rb', line 221

def self.is_boolean(term)
  return true if term.kind_of?(::FalseClass)
  return true if term.kind_of?(::TrueClass)
  return true if term == :true
  return true if term == :false
  return false
end

.is_float(term) ⇒ Object 



229
230
231
232
233
234
235
 
# File 'lib/erlang/terms.rb', line 229

def self.is_float(term)
  return true if term.kind_of?(::BigDecimal)
  return true if term.kind_of?(::Float)
  return true if term.kind_of?(::Rational)
  return true if term.kind_of?(Erlang::Float)
  return false
end

.is_function(term, arity = nil) ⇒ Object 



237
238
239
240
241
242
243
244
245
 
# File 'lib/erlang/terms.rb', line 237

def self.is_function(term, arity = nil)
  if arity == nil
    return true if term.kind_of?(Erlang::Export)
    return true if term.kind_of?(Erlang::Function)
  else
    return true if is_function(term) and term.arity == arity
  end
  return false
end

.is_integer(term) ⇒ Object 



247
248
249
250
 
# File 'lib/erlang/terms.rb', line 247

def self.is_integer(term)
  return true if term.kind_of?(::Integer)
  return false
end

.is_list(term) ⇒ Object 



252
253
254
255
256
257
258
 
# File 'lib/erlang/terms.rb', line 252

def self.is_list(term)
  return true if term.kind_of?(Erlang::List)
  return true if term.kind_of?(Erlang::String)
  return true if term.kind_of?(::Array)
  return true if term.equal?(Erlang::Nil)
  return false
end

.is_map(term) ⇒ Object 



260
261
262
263
264
 
# File 'lib/erlang/terms.rb', line 260

def self.is_map(term)
  return true if term.kind_of?(Erlang::Map)
  return true if term.kind_of?(::Hash)
  return false
end

.is_number(term) ⇒ Object 



266
267
268
269
 
# File 'lib/erlang/terms.rb', line 266

def self.is_number(term)
  return true if is_float(term) or is_integer(term)
  return false
end

.is_pid(term) ⇒ Object 



271
272
273
274
 
# File 'lib/erlang/terms.rb', line 271

def self.is_pid(term)
  return true if term.kind_of?(Erlang::Pid)
  return false
end

.is_port(term) ⇒ Object 



276
277
278
279
 
# File 'lib/erlang/terms.rb', line 276

def self.is_port(term)
  return true if term.kind_of?(Erlang::Port)
  return false
end

.is_reference(term) ⇒ Object 



281
282
283
284
 
# File 'lib/erlang/terms.rb', line 281

def self.is_reference(term)
  return true if term.kind_of?(Erlang::Reference)
  return false
end

.is_tuple(term) ⇒ Object 



286
287
288
289
 
# File 'lib/erlang/terms.rb', line 286

def self.is_tuple(term)
  return true if term.kind_of?(Erlang::Tuple)
  return false
end

.type(term) ⇒ Object

Raises:

  • (NotImplementedError) 


291
292
293
294
295
296
297
298
299
300
301
302
303
304
 
# File 'lib/erlang/terms.rb', line 291

def self.type(term)
  return :atom if is_atom(term)
  return :bitstring if is_bitstring(term)
  return :fun if is_function(term)
  return :list if is_list(term) and not term.empty?
  return :map if is_map(term)
  return :nil if is_list(term) and term.empty?
  return :number if is_number(term)
  return :pid if is_pid(term)
  return :port if is_port(term)
  return :reference if is_reference(term)
  return :tuple if is_tuple(term)
  raise NotImplementedError
end