class Faker::Base

def bothify(string)
  letterify(numerify(string))
end

def disable_enforce_available_locales
  old_enforce_available_locales = I18n.enforce_available_locales
  I18n.enforce_available_locales = false
  yield
ensure
  I18n.enforce_available_locales = old_enforce_available_locales
end

def fetch(key)
  fetched = sample(translate("faker.#{key}"))
  if fetched&.match(%r{^/}) && fetched.match(%r{/$}) # A regex
    regexify(fetched)
  else
    fetched
  end
end

def fetch_all(key)
  fetched = translate("faker.#{key}")
  fetched = fetched.last if fetched.size <= 1
  if !fetched.respond_to?(:sample) && fetched.match(%r{^/}) && fetched.match(%r{/$}) # A regex
    regexify(fetched)
  else
    fetched
  end
end

def flexible(key)
  @flexible_key = key
end

def generate(as_type, &block)
  PositionalGenerator.new(as_type, &block).generate
end

def letterify(letter_string)
  letter_string.gsub('?') { sample(ULetters) }
end

def method_missing(mth, *args, &block)
  super unless flexible_key
  if (translation = translate("faker.#{flexible_key}.#{mth}"))
    sample(translation)
  else
    super
  end
end

def numerify(number_string, leading_zero: false)
  return number_string.gsub('#') { rand(10).to_s } if leading_zero
  number_string.sub('#') { rand(1..9).to_s }.gsub('#') { rand(10).to_s }
end

def parse(key)
  fetched = fetch(key)
  parts = fetched.scan(/(\(?)#\{([A-Za-z]+\.)?([^}]+)\}([^#]+)?/).map do |prefix, kls, meth, etc|
    # If the token had a class Prefix (e.g., Name.first_name)
    # grab the constant, otherwise use self
    cls = kls ? Faker.const_get(kls.chop) : self
    # If an optional leading parentheses is not present, prefix.should == "", otherwise prefix.should == "("
    # In either case the information will be retained for reconstruction of the string.
    text = prefix
    # If the class has the method, call it, otherwise fetch the translation
    # (e.g., faker.phone_number.area_code)
    text += if cls.respond_to?(meth)
              cls.send(meth)
            else
              # Do just enough snake casing to convert PhoneNumber to phone_number
              key_path = cls.to_s.split('::').last.gsub(/([a-z\d])([A-Z])/, '\1_\2').downcase
              fetch("#{key_path}.#{meth.downcase}")
            end
    # And tack on spaces, commas, etc. left over in the string
    text + etc.to_s
  end
  # If the fetched key couldn't be parsed, then fallback to numerify
  parts.any? ? parts.join : numerify(fetched)
end

def rand(max = nil)
  if max.nil?
    Faker::Config.random.rand
  elsif max.is_a?(Range) || max.to_i.positive?
    Faker::Config.random.rand(max)
  else
    0
  end
end

def rand_in_range(from, to)
  from, to = to, from if to < from
  rand(from..to)
end

def regexify(reg)
  reg = reg.source if reg.respond_to?(:source) # Handle either a Regexp or a String that looks like a Regexp
  reg
    .gsub(%r{^/?\^?}, '').gsub(%r{\$?/?$}, '') # Ditch the anchors
    .gsub(/\{(\d+)\}/, '{\1,\1}').gsub('?', '{0,1}') # All {2} become {2,2} and ? become {0,1}
    .gsub(/(\[[^\]]+\])\{(\d+),(\d+)\}/) { |_match| Regexp.last_match(1) * sample(Array(Range.new(Regexp.last_match(2).to_i, Regexp.last_match(3).to_i))) }                # [12]{1,2} becomes [12] or [12][12]
    .gsub(/(\([^)]+\))\{(\d+),(\d+)\}/) { |_match| Regexp.last_match(1) * sample(Array(Range.new(Regexp.last_match(2).to_i, Regexp.last_match(3).to_i))) }                 # (12|34){1,2} becomes (12|34) or (12|34)(12|34)
    .gsub(/(\\?.)\{(\d+),(\d+)\}/) { |_match| Regexp.last_match(1) * sample(Array(Range.new(Regexp.last_match(2).to_i, Regexp.last_match(3).to_i))) }                      # A{1,2} becomes A or AA or \d{3} becomes \d\d\d
    .gsub(/\((.*?)\)/) { |match| sample(match.gsub(/[()]/, '').split('|')) } # (this|that) becomes 'this' or 'that'
    .gsub(/\[([^\]]+)\]/) { |match| match.gsub(/(\w-\w)/) { |range| sample(Array(Range.new(*range.split('-')))) } } # All A-Z inside of [] become C (or X, or whatever)
    .gsub(/\[([^\]]+)\]/) { |_match| sample(Regexp.last_match(1).chars) } # All [ABC] become B (or A or C)
    .gsub('\d') { |_match| sample(Numbers) }
    .gsub('\w') { |_match| sample(Letters) }
end

def resolve(value)
  case value
  when Array then sample(value)
  when Range then rand value
  else value
  end
end

def respond_to_missing?(method_name, include_private = false)
  super
end

def sample(list, num = nil)
  if list.respond_to?(:sample)
    if num
      list.sample(num, random: Faker::Config.random)
    else
      list.sample(random: Faker::Config.random)
    end
  else
    list
  end
end

def shuffle(list)
  list.shuffle(random: Faker::Config.random)
end

def shuffle!(list)
  list.shuffle!(random: Faker::Config.random)
end

def translate(*args, **opts)
  opts[:locale] ||= Faker::Config.locale
  opts[:raise] = true
  I18n.translate(*args, **opts)
rescue I18n::MissingTranslationData
  opts[:locale] = :en
  # Super-simple fallback -- fallback to en if the
  # translation was missing.  If the translation isn't
  # in en either, then it will raise again.
  disable_enforce_available_locales do
    I18n.translate(*args, **opts)
  end
end

def unique(max_retries = 10_000)
  @unique ||= UniqueGenerator.new(self, max_retries)
end

def with_locale(tmp_locale = nil, &block)
  current_locale = Faker::Config.own_locale
  Faker::Config.locale = tmp_locale
  disable_enforce_available_locales do
    I18n.with_locale(tmp_locale, &block)
  end
ensure
  Faker::Config.locale = current_locale
end