Skip to content
This repository has been archived by the owner on Apr 12, 2019. It is now read-only.

Commit

Permalink
Move apply above inst
Browse files Browse the repository at this point in the history
  • Loading branch information
Tony Arcieri committed Feb 15, 2011
1 parent 2120362 commit 96dc069
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions src/core/reia.erl
Original file line number Original file line Diff line number Diff line change
Expand Up @@ -47,6 +47,16 @@ eval(String) ->
eval(String, Binding) -> eval(String, Binding) ->
reia_eval:exprs(parse(String), Binding). reia_eval:exprs(parse(String), Binding).


% Call a function within a Reia module
apply(Module, Function, Arguments) -> apply(Module, Function, Arguments, nil).
apply(Module, Function, Arguments, Block) ->
Arguments2 = if
is_tuple(Arguments) -> Arguments;
is_list(Arguments) -> list_to_tuple(Arguments);
true -> throw({error, "invalid type for arguments"})
end,
Module:Function(Arguments2, Block).

% Create a new instance of the given class % Create a new instance of the given class
inst(Class, Arguments) -> inst(Class, Arguments, nil). inst(Class, Arguments) -> inst(Class, Arguments, nil).
inst(Class, Arguments, Block) -> inst(Class, Arguments, Block) ->
Expand All @@ -61,16 +71,6 @@ inst(Class, Arguments, Block) ->
Class:call({Object, initialize, Arguments}, Block) Class:call({Object, initialize, Arguments}, Block)
end. end.


% Call a function within a Reia module
apply(Module, Function, Arguments) -> apply(Module, Function, Arguments, nil).
apply(Module, Function, Arguments, Block) ->
Arguments2 = if
is_tuple(Arguments) -> Arguments;
is_list(Arguments) -> list_to_tuple(Arguments);
true -> throw({error, "invalid type for arguments"})
end,
Module:Function(Arguments2, Block).

% Invoke a method on the given object % Invoke a method on the given object
invoke(Receiver, Method, Arguments) -> invoke(Receiver, Method, Arguments, nil). invoke(Receiver, Method, Arguments) -> invoke(Receiver, Method, Arguments, nil).
invoke(Receiver, Method, Arguments, Block) -> invoke(Receiver, Method, Arguments, Block) ->
Expand Down

0 comments on commit 96dc069

Please sign in to comment.