26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
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
110
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
146
147
148
|
# File 'lib/autocode.rb', line 26
def self.included( mod )
mod.instance_eval do
AutoCode.monitor.enter
begin
return unless @autocode.nil?
@autocode = {
:constructors => Hash.new { |h,k| h[k] = [] },
:initializers => Hash.new { |h,k| h[k] = [] },
:loaded => []
}
ensure
AutoCode.monitor.exit
end
def auto_constructor( key = true, &block)
@autocode[:constructors][ AutoCode.normalize( key ) ] << block
end
def auto_create( key = true, options = {}, &block )
auto_constructor( key ) do | cname |
exemplar = options[:exemplar] || Module.new
new_constant = exemplar.clone
new_constant.send(:include, AutoCode)
ret = const_set( cname, new_constant )
new_constant.module_eval( &block ) if block
ret
end
end
def auto_create_class( key = true, parent = Object, &block )
auto_constructor( key ) do | cname |
parent = const_get(parent) unless parent.is_a? Class
new_constant = Class.new( parent )
new_constant.send(:include, AutoCode)
ret = const_set( cname, new_constant )
new_constant.module_eval( &block ) if block
ret
end
end
def auto_create_module( key = true, &block )
auto_constructor( key ) do | cname |
new_constant = Module.new
new_constant.send(:include, AutoCode)
ret = const_set( cname, new_constant )
new_constant.module_eval( &block ) if block
ret
end
end
def auto_load( key = true, options = {} )
@autocode[:constructors][ AutoCode.normalize( key ) ] << lambda do | cname |
filename = AutoCode.snake_case( cname ) << '.rb'
options[:directories] ||= '.'
path = if target = options[:target]
target.call(cname)
else
options[:directories].
map { |dir| File.join( dir.to_s, filename ) }.
find { |path| File.exist?( path ) }
end
Kernel.load( path ) unless path.nil?
end
end
def auto_eval( key, &block )
if key.is_a?( Symbol) && const_defined?( AutoCode.normalize( key ) )
const_get( key ).module_eval( &block)
else
@autocode[:initializers][ AutoCode.normalize( key ) ] << lambda do | mod |
mod.module_eval( &block )
end
end
end
def auto_const?(cname)
true unless @autocode[:constructors][ AutoCode.normalize( cname ) ].empty?
end
def reloadable ; @autocode[:loaded] ; end
def reload
Autocode.monitor.synchronize do
@autocode[:loaded].each { |name| remove_const( name ) } ; @autocode[:loaded] = []
end
end
private
old = method( :const_missing )
(class << self ; self ; end ).instance_eval do
define_method( :const_missing ) do | cname |
Autocode.monitor.synchronize do
return const_get( cname ) if const_defined?( cname )
actions = []
@autocode[:constructors].each do |matcher,action|
actions.concat action if (matcher == true || matcher == cname || matcher === cname.to_s )
end
actions.reverse!.find { | c | c.call( cname ) and const_defined?( cname ) }
return old.call( cname ) unless const_defined?( cname )
initializers = @autocode[:initializers][true] + @autocode[:initializers][cname]
mod = const_get( cname ); initializers.each { |init| init.call( mod ) }
@autocode[:loaded] << cname
mod
end
end
end
end
end
|