/src/erlv8_fun.erl

http://github.com/beamjs/erlv8 · Erlang · 36 lines · 23 code · 13 blank · 0 comment · 0 complexity · be7ffafb5b3bd33b94ccecfd8729706f MD5 · raw file 

    

  1. -module(erlv8_fun).
    2. 

  2. 

  3. -include("erlv8.hrl").
    4. 

  4. 

  5. -extends(erlv8_object).
    6. 

  6. 

  7. -export([call/1,call/2,call/3,instantiate/1, instantiate/2, object/1,
    8. 

  8. 

  9.          new/1, new/2]).
    10. 

  10. 

  11. call(Self) ->
    12. 

  12.     call([], Self).
    13. 

  13. 

  14. call({erlv8_object, _,_}=T, Self) ->
    15. 

  15.     call(T,[], Self);
    16. 

  16. 

  17. call(Args, #erlv8_fun{resource = Resource, vm = VM}) when is_list(Args) ->
    18. 

  18.     erlv8_vm:enqueue_tick(VM, {call, Resource, Args}).
    19. 

  19. 

  20. call({erlv8_object, _,_}=This, Args, #erlv8_fun{resource = Resource, vm = VM}) when is_list(Args) ->
    21. 

  21.     erlv8_vm:enqueue_tick(VM, {call, Resource, Args, This}).
    22. 

  22. 

  23. instantiate(Self) ->
    24. 

  24.     instantiate([], Self).
    25. 

  25. 

  26. instantiate(Args, #erlv8_fun{resource = Resource, vm = VM}) when is_list(Args) ->
    27. 

  27.     erlv8_vm:enqueue_tick(VM, {inst, Resource, Args}).
    28. 

  28. 

  29. object(#erlv8_fun{resource = Resource, vm = VM}) ->
    30. 

  30.     {erlv8_object, Resource, VM}.
    31. 

  31. 

  32. new(O) ->
    33. 

  33.     new(O,undefined).
    34. 

  34. 

  35. new(O, V) ->
    36. 

  36.     #erlv8_fun{resource = O, vm = V}.
    37.