Class: BaseConvert::Digits

Inherits:
Hash
  • Object
show all
Defined in:
lib/base_convert/digits.rb

Instance Method Summary collapse

Instance Method Details

#[](key) ⇒ Object 



4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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
 
# File 'lib/base_convert/digits.rb', line 4

def [](key)
  if self.has_key?(key)
    d = super(key)
    return d.is_a?(Symbol)? self[d]: d
  end
  case key
  when Symbol
    chars = Chars.new
    key.to_s.scan(/[+-]?[[:alnum:]]+/).each do |type|
      if self.has_key?(_=type.to_sym)
        chars.add super(_)
        next
      end
      case type
      when /^((u\h+)|(k\d+))+$/
        type.scan(/[uk]\h+/).each{|s| chars.top s.to_sym}
      when /^(([ij]\d+)|([vw]\h+))+$/
        type.scan(/[ijvw]\h+/).each{|s| chars.set s}
      when /^[a-z][a-z]+$/
        chars.add Regexp.new "[[:#{type}:]]"
      when /^[a-z]$/
        chars.add Regexp.new "\\#{type}"
      when /^[A-Z]+$/i
        type.scan(/[A-Z][a-z]*/).each{|property| chars.add /\p{#{property}}/}
      when /^([+-])(\w+)/
        d = self[$2.to_sym]
        case $1
        when '+'
          chars.top d
        when '-'
          chars.remove d
        end
      when /^(\p{L}+)(\d+)$/
        l,m = $1,$2.to_i-1
        n = self.keys.select{|_|_=~/^#{l}\d+$/}.map{|_|_.to_s.sub(l,'').to_i}.max
        raise "no #{l}<n> digits defined" if n.nil?
        raise "out of range of #{l}#{n}" unless m<n
        chars.add self[:"#{l}#{n}"][0..m]
      else
        raise "unrecognized digits key: #{type}"
      end
    end
    return chars.uniq.join.freeze
  when String
    digits = nil # set as a side effect...
    unless registry.detect{|_|(digits=self[_]).start_with? key}
      # ...here -------------->^^^^^
      raise 'need at least 2 digits' unless key.length > 1
      raise 'digits must not have duplicates' if key.length > key.chars.uniq.length
      return key
    end
    return digits
  when Integer
    raise 'need digits to cover base' if key > 95
    return self[:P95] # Defined below
  end
  raise 'digits must be String|Symbol|Integer'
end

#forget!(keys = registry) ⇒ Object 



85
86
87
88
89
90
91
92
93
94
 
# File 'lib/base_convert/digits.rb', line 85

def forget!(keys=registry)
  [*keys].each do |k|
    while s = get(k)
      break if s.is_a? String # links to a constructed String
      raise 'expected Symbol' unless s.is_a? Symbol
      k = s
    end
    self.delete(k) if s.is_a? String
  end
end

#get ⇒ Object 



3
 
# File 'lib/base_convert/digits.rb', line 3

alias :get :[]

#label(d) ⇒ Object 



70
71
72
 
# File 'lib/base_convert/digits.rb', line 70

def label(d)
  registry(d) or (d[0]+d[1]+d[-2]+d[-1]).to_sym
end

#memoize!(keys = registry) ⇒ Object 



74
75
76
77
78
79
80
81
82
83
 
# File 'lib/base_convert/digits.rb', line 74

def memoize!(keys=registry)
  [*keys].each do |k|
    while s = get(k)
      break if s.is_a? String # links to a constructed String
      raise 'expected Symbol' unless s.is_a? Symbol
      k = s
    end
    self[k]=self[k] if s.nil? # if not memoized, memoize!
  end
end

#registry(d = nil) ⇒ Object 



63
64
65
66
67
68
 
# File 'lib/base_convert/digits.rb', line 63

def registry(d=nil)
  # BaseConvert::Number memoizes and uses specifically :P95, :B64, and :U47;
  # giving these precedence above the rest.
  @registry ||= [:P95, :B64, :U47, :G94, :Q91, :W63]
  d ? @registry.detect{|_|self[_].start_with? d}: @registry
end