class Module
  # Declare an attribute reader backed by an internally-named instance variable.
  def attr_internal_reader(*attrs)
    attrs.each do |attr|
      module_eval "def #{attr}() #{attr_internal_ivar_name(attr)} end"
    end
  end

  # Declare an attribute writer backed by an internally-named instance variable.
  def attr_internal_writer(*attrs)
    attrs.each do |attr|
      module_eval "def #{attr}=(v) #{attr_internal_ivar_name(attr)} = v end"
    end
  end

  # Declare attributes backed by 'internal' instance variables names.
  def attr_internal_accessor(*attrs)
    attr_internal_reader(*attrs)
    attr_internal_writer(*attrs)
  end

  alias_method :attr_internal, :attr_internal_accessor

  private
    #mattr_accessor :attr_internal_naming_format   ##BBTAG: not supported in IronRuby
    ##BBTAG: temporary workaround
    def self.attr_internal_naming_format=(obj)
      @@attr_internal_naming_format = obj
    end
    
    def self.attr_internal_naming_format
      @@attr_internal_naming_format
    end
    ##END BBTAG
    self.attr_internal_naming_format = '@_%s' ##BBTAG
    

    def attr_internal_ivar_name(attr)
      attr_internal_naming_format % attr
    end
end