Class: Card::Mod::BindingMagic

Inherits:
LoadStrategy show all
Defined in:
lib/card/mod/load_strategy/set_binding_magic.rb

Overview

Tries to build the module with as little string evaluation as possible. The problem here is that in methods like module_eval the Module.nesting list gets lost so all references in mod files to constants in the Card::Set namespace don't work. The solution is to construct a binding with the right Module.nesting list.

Instance Method Summary collapse

Methods inherited from LoadStrategy

#clean_comments?, #initialize, klass

Constructor Details

This class inherits a constructor from Card::Mod::LoadStrategy

Instance Method Details

#load_modules ⇒ Object 



9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
# File 'lib/card/mod/load_strategy/set_binding_magic.rb', line 9

def load_modules
  each_file do |abs_path, const_parts|
    sm = SetModule.new const_parts, abs_path

    set_module = sm.to_const
    set_module.extend Card::Set unless sm.helper_module?
    set_module.module_eval do
      def self.source_location
        abs_path
      end
    end

    # Since module_eval doesn't take a binding argument, we have to
    # execute module_eval with eval.
    eval "#{set_module}.module_eval ::File.read('#{abs_path}'), '#{abs_path}'",
         module_path_binding(set_module)
  end
end

#module_path_binding(mod) ⇒ Object

Get a binding with a Module.nesting list that contains the given module and all of its containing modules as described by its fully qualified name in inner-to-outer order.



31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
# File 'lib/card/mod/load_strategy/set_binding_magic.rb', line 31

def module_path_binding mod
  if mod.name.to_s.empty?
    raise ArgumentError,
          "Can't determine path nesting for a module with a blank name"
  end

  m = nil
  b = TOPLEVEL_BINDING
  mod.name.split("::").each do |part|
    m, b =
      eval(
        "[ #{part} , #{part}.module_eval('binding') ]",
        b
      )
  end
  raise "Module found at name path not same as specified module" unless m == mod

  b
end