Contents

#require 'singleton'

module Binenc

  # binary tagging constant helper
  class BinTag
    include TR::CondUtils
    #include Singleton

      def initialize
        @constRaiseIfDup = false
        @constant = {  }
      end

      def load(&block)
        instance_eval(&block)
      end

      ## 
      # DSL part
      #
      def define_constant(key, val, parent = nil, &block)
        if @constant.keys.include?(key) 
          if @constRaiseIfDup
            raise BinTagConstantKeyAlreadyExist, "Constant key '#{key}' already exist"
          else
            logger.warn "Overwriting existing key '#{key}'..."
          end
        end

        if val.is_a?(String) and val =~ /#/
          val = val.gsub("#",@parent).strip
        end

        @constant[key] = val

        oldParent = @parent 

        @parent = val
        if block
          instance_eval(&block)
        end
        @parent = oldParent

      end

      def constant_value(key)
        @constant[key]
      end

      def value_constant(val)
        #if TR::RTUtils.on_java?
          if val.is_a?(Integer)
            @constant.invert[val.to_s.to_i]
          else
            @constant.invert[val]
          end
        #else
        #  @constant.invert[val]
        #end
      end

      def raise_on_constant_key_duplicate=(val)
        @constRaiseIfDup = val
      end
      def is_raise_on_constant_key_duplicate?
        @constRaiseIfDup
      end

      ## 
      # End DSL
      #

      private
      def logger
        if @logger.nil?
          @logger = TeLogger::Tlogger.new
          @logger.tag = :bintag
        end
        @logger
      end

  end

end

Version data entries

1 entries across 1 versions & 1 rubygems

Version	Path
binenc-0.1.0	lib/binenc/bin_tag/bin_tag.rb