Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

102 lines (78 sloc) 2.055 kB
class Symbol {
"""
Symbols are unique identifiers and only created once.
If there are several occurrances of the same Symbol literal within
Fancy code, they all refer to the same Symbol object.
"""
def call: arg {
"""
@arg Argument to send @self to.
@return Value of sending @self as message to @arg.
This allows Symbols to be used like Blocks (e.g. in all methods of Enumerable).
Example:
[1, 2, 3] map: 'squared # => [1, 4, 9]
"""
match arg {
case Array -> arg[0] receive_message: self with_params: $ arg rest
case _ -> arg receive_message: self
}
}
def call {
"""
Sends @self as message to the sender in its context.
Example:
'foo call
# => same as
self foo
if: x then: 'foo else: 'bar
# same as:
if: x then: { self foo } else: { self bar }
"""
binding = Binding setup(Rubinius VariableScope of_sender(),
Rubinius CompiledMethod of_sender(),
Rubinius StaticScope of_sender())
recv = binding self()
recv receive_message: self
}
def call_with_receiver: receiver {
call: [receiver]
}
def call: args with_receiver: receiver {
call: $ args unshift: receiver
}
def arity {
m = message_name to_s
match m {
case /^:[a-zA-Z0-9_]+$/ -> m count: |c| { c == ":" } # unary message
case /^:\W+$/ -> 2 # binary operator
case _ -> m count: |c| { c == ":" } + 1 # multi-arg message
}
}
def to_sym {
"""
@return @self.
"""
self
}
def to_block {
"""
@return @Block@ that sends @self to its first argument, passing along any remaining arguments.
Example:
'inspect to_block
# is equal to:
@{ inspect }
"""
|args| {
call: args
}
}
def unary_message? {
to_s unary_message?
}
def binary_message? {
to_s binary_message?
}
def keyword_message? {
to_s keyword_message?
}
}
Jump to Line
Something went wrong with that request. Please try again.