lib/nydp/context_symbol.rb in nydp-0.3.0 vs lib/nydp/context_symbol.rb in nydp-0.4.0

@@ -1,13 +1,18 @@
 module Nydp
   class ContextSymbol
-    def self.build depth, name, binding_index
-      cname = "ContextSymbol_#{depth}_#{binding_index}"
+    def self.const_missing const
+      if const.to_s =~ /^ContextSymbol_\d+_\d+$/
+        name          = const.to_s.split(/_/)
+        define_klass(const, name[1].to_i, name[2].to_i)
+        const_get const
+      else
+        super(const)
+      end
+    end
 
-      existing = const_get(cname) rescue nil
-      return existing.new(name) if existing
-
+    def self.define_klass name, depth, binding_index
       getctx = ([".parent"] * depth).join
       at_index = if binding_index < 10
                    "at_#{binding_index}"
                  else
                    "at_index(#{binding_index})"
@@ -17,36 +22,39 @@
                     "at_#{binding_index}= value"
                   else
                     "set_index(#{binding_index}, value)"
                   end
 
-      klass = <<KLASS
-class #{cname} < Nydp::ContextSymbol
-  def initialize name
-    @name = name
-  end
+      code = <<-KLASS
+        def initialize name
+          @name = name
+        end
 
-  def value ctx
-    ctx#{getctx}.#{at_index} || Nydp::NIL
-  end
+        def value ctx
+          ctx#{getctx}.#{at_index} || Nydp::NIL
+        end
 
-  def assign value, ctx
-    ctx#{getctx}.#{set_index}
-  rescue StandardError => e
-    raise "problem in \#{self.class.name}#assign, name is \#{@name}, depth is \#{depth}, index is #{binding_index}"
-  end
+        def assign value, ctx
+          ctx#{getctx}.#{set_index}
+        rescue StandardError => e
+          raise "problem in \#{self.class.name}#assign, name is \#{@name}, depth is \#{depth}, index is #{binding_index}"
+        end
 
-  def execute vm
-    vm.push_arg value vm.current_context
-  end
+        def execute vm
+          vm.push_arg value vm.current_context
+        end
 
-  def depth   ; #{depth}                               ; end
-  def inspect ; to_s                                   ; end
-  def to_s    ; "[#{depth}##{binding_index}]\#{@name}" ; end
-end
-KLASS
+        def depth   ; #{depth}                               ; end
+        def inspect ; to_s                                   ; end
+        def to_s    ; "[#{depth}##{binding_index}]\#{@name}" ; end
+      KLASS
 
-      eval klass
-      const_get(cname).new(name)
+      const_set name, Class.new(Nydp::ContextSymbol) {
+        eval code
+      }
+    end
+
+    def self.build depth, name, binding_index
+      const_get(:"ContextSymbol_#{depth}_#{binding_index}").new(name)
     end
   end
 end