module Dictionaries

# File lib/dictionaries/toplevel_methods/misc.rb, line 68
def self.[](i = ARGV)
  i = i.join.strip if i.is_a? Array
  this_file = Dictionaries.main_file?
  if this_file.nil?
    Dictionaries.set_main_file(:default) # Must initialize it in this case.
    this_file = Dictionaries.main_file?
  end
  if this_file
    dataset = YAML.load_file(this_file)
    dataset[i] # Return the result here.
  else
    nil
  end
end

# File lib/dictionaries/ask_english_word.rb, line 113
def self.ask_english_word
  AskEnglishWord.new
end

# File lib/dictionaries/ask_italian_word.rb, line 73
def self.ask_italian_word
  AskItalianWord.new
end

# File lib/dictionaries/toplevel_methods/e.rb, line 12
def self.e(i = '')
  puts i
end

# File lib/dictionaries/toplevel_methods/english_to_german.rb, line 18
def self.english_to_german(i)
  i = i.join.strip if i.is_a? Array
  converted_word = nil
  if Dictionaries.has_key? i
    converted_word = Dictionaries[i]
  end
  converted_word
end

# File lib/dictionaries/constants.rb, line 82
def self.file_english
  FILE_ENGLISH_DICTIONARY
end

# File lib/dictionaries/toplevel_methods/misc.rb, line 19
def self.generate_pdf_file(
    use_this_font = 'Courier', # Helvetica-Bold' #  #'Times-Roman'
    use_this_font_size = 12
  )
  require 'prawn'
  ::Prawn::Fonts::AFM.hide_m17n_warning = true
  right_arrow = ' -> '.dup.encode(
                  'Windows-1252', invalid: :replace, undef: :replace, replace: ''
                )
  dataset = YAML.load_file(Dictionaries.file_english)
  into = File.absolute_path('english_to_german_dictionary.pdf')
  Prawn::Document.generate(into) {
    font use_this_font
    font_size use_this_font_size
    text(
      "English to German dictionary: "\
      "#{dataset.keys.size.to_s} translated words\n\n"
    )
    # ===================================================================== #
    # Iterate over our exam dataset next.
    # ===================================================================== #
    dataset.each_pair {|key, value|
      indent(8) {
        key   = key.dup if key.frozen?
        value = value.dup if value.frozen?
        result = key.encode(
            'Windows-1252', invalid: :replace, undef: :replace, replace: ''
          )+
          right_arrow+
          value.encode(
            'Windows-1252', invalid: :replace, undef: :replace, replace: ''
          )
        text(result, {size: 10})
      }
    }
  }
  e 'Stored into `'+into+'`.'
end

# File lib/dictionaries/gui/gtk3/dictionary/dictionary.rb, line 449
def self.gtk_widget
  Dictionaries::GUI::Gtk::Dictionary.new
end

# File lib/dictionaries/toplevel_methods/has_key.rb, line 28
def self.has_key?(this_key)
  Dictionaries::AskEnglishWord.dataset?.has_key?(this_key)
end

# File lib/dictionaries/toplevel_methods/is_on_roebe.rb, line 12
def self.is_on_roebe?
  (ENV['IS_ROEBE'].to_s == '1')
end

# File lib/dictionaries/toplevel_methods/main_file.rb, line 84
def self.main_file?
  @main_file
end

# File lib/dictionaries/ask_english_word.rb, line 130
def self.n_entries?
  ::Dictionaries::AskEnglishWord.n_entries?
end

# File lib/dictionaries/class/ask_word_from_dictionary.rb, line 682
def self.new(i = nil)
  Dictionaries::AskWordFromDictionary.new(i)
end

# File lib/dictionaries/commandline/parse_commandline.rb, line 26
def self.parse_commandline(
    i = ARGV
  )
  if i.is_a? Array
    i.each {|entry| parse_commandline(entry) }
  else
    case i # case tag
    # ===================================================================== #
    # === dictionaries --stats
    #
    # This entry point allows the user to show some statistics about
    # this project.
    # ===================================================================== #
    when /^-?-?stats\??$/i,
         /^-?-?statistics\??$/i
      Dictionaries::Statistics.report
    # ===================================================================== #
    # === dictionaries --read=www.nytimes.com.html
    # ===================================================================== #
    when /^-?-?read=(.+)$/i
      _ = $1.to_s.dup
      require 'dictionaries/toplevel_methods/misc.rb'
      if File.exist? _
        e 'Finding unique words ... this may take a while. Please be'
        e 'patient.'
        unique_words = ::Dictionaries.return_unique_words_from_this_file(_, :default, :remove_HTML_tags).sort
        pp unique_words
        e 'n entries: '+unique_words.size.to_s
      else
        e 'No file exists at '+sfile(_)+'.'
      end
    # ===================================================================== #
    # === dictionaries --gui
    # ===================================================================== #
    when /^-?-?gui$/i,
         /^-?-?gtk$/i,
         /^-?-?start(-|_)?gtk$/i
      start_gtk_component
    # ===================================================================== #
    # === dictionaries --sinatra
    # ===================================================================== #
    when /^-?-?sinatra$/i
      require 'dictionaries/sinatra/app.rb'
      Dictionaries.start_sinatra_interface
    # ===================================================================== #
    # === dictionaries --n-words?
    # ===================================================================== #
    when /^-?-?n(_|-)?words\??$/i
      e "#{Colours.sfancy(Dictionaries.n_entries?)} english-to-german "\
        "translations are presently registered in this project."
    # ===================================================================== #
    # === dictionaries --help
    # ===================================================================== #
    when /help/
      show_help
    end
  end
end

# File lib/dictionaries/ask_english_word.rb, line 123
def self.path_to_the_english_file?
  Dictionaries.main_file?
end

# File lib/dictionaries/project/project.rb, line 20
def self.project_base_dir?
  PROJECT_BASE_DIRECTORY
end

# File lib/dictionaries/project/project.rb, line 32
def self.project_yaml_dir?
  PROJECT_YAML_DIRECTORY
end

# File lib/dictionaries/toplevel_methods/misc.rb, line 94
def self.return_array_of_translated_words_from_online_leo(this_word)
  if this_word.is_a? Array
    this_word = this_word.join(' ').strip
  end
  require 'open-uri'
  remote_url = "https://dict.leo.org/german-english/#{this_word}"
  remote_dataset = URI.open(remote_url).read
  # ======================================================================= #
  # See: https://rubular.com/r/OOXwAc6PVqjU5Q
  # ======================================================================= #
  use_this_regex =
    /<words><word>([a-zA-Z\s]+)\<\/word><\/words>/
  scanned_results = remote_dataset.scan(use_this_regex).flatten
  # ======================================================================= #
  # This result may look like so:
  #   [["cat"], ["die Katze"]
  # We have to sanitize it still.
  # ======================================================================= #
  scanned_results.reject! {|entry| entry.start_with?(this_word) }
  return scanned_results # Note that the full Array is returned.
end

# File lib/dictionaries/toplevel_methods/main_file.rb, line 32
def self.return_name_from_compound(
    i = Dictionaries.main_file?
  )
  i = i.to_s
  i = File.basename(i).gsub(/.rb/, '').gsub(/.yml/, '')
  if i.include? '_'
    i = i.split('_')[1] # Grab the middle part here.
  end
  i
end

# File lib/dictionaries/toplevel_methods/misc.rb, line 125
def self.return_unique_words_from_this_file(
    this_file,
    optional_arguments = :english,
    remove_html_tags   = false
  )
  case remove_html_tags
  # ======================================================================= #
  # === :remove_HTML_tags
  # ======================================================================= #
  when :remove_HTML_tags
    remove_html_tags = true
  end
  dataset = nil
  if this_file.is_a? Array
    this_file = this_file.join(' ').strip
  end
  if this_file and File.file?(this_file)
    dataset = File.read(this_file)
    if remove_html_tags
      require 'cyberweb/toplevel_methods/misc.rb'
      dataset = ::Cyberweb.remove_html(dataset)
    end
  end
  result = [] # ← This variable will store the unique words found in the file.
  case optional_arguments
  # ======================================================================= #
  # === :english
  # ======================================================================= #
  when :english,
       :default
    # ===================================================================== #
    # Query unknown words in english. We will compare the words to the
    # available variants.
    # ===================================================================== #
    result = dataset.scan(/\w+/).map {|entry| entry.downcase } # ← Obtain all words here.
    # ===================================================================== #
    # Next, reject those that are registered:
    # ===================================================================== #
    result.reject! {|this_word|
      ::Dictionaries.has_key?(this_word)
    }
  end if dataset
  return result.uniq.sort
end

# File lib/dictionaries/toplevel_methods/main_file.rb, line 61
def self.set_main_file(i = :default_file)
  case i
  when :default_file,
       :default
    i = FILE_ENGLISH_WORDS
  end
  if i.include? '/'
    if i.end_with? '.rb' 
      i = File.basename(i).sub(/.rb^/,'')
      if i.include? '_'
        i = Dictionaries.return_name_from_compound(i) # Grab the middle part here.
        i = DICTIONARIES_DIR+i+'.yml'
      end
    end
  end
  @main_file = i
end

# File lib/dictionaries/toplevel_methods/show_help.rb, line 19
  def self.show_help
    help_string = <<EOF
These options are currently available:

  --n_words?                  # Show how many words are available
  --gui                       # Start the GTK GUI; aliases exist to this, such as --gtk
  --read=www.nytimes.com.html # Read from a specific file, to find unique words

EOF
    e help_string
  end

# File lib/dictionaries/commandline/parse_commandline.rb, line 18
def self.start_gtk_component
  require 'dictionaries/gui/gtk3/dictionary/dictionary.rb'
  Dictionaries::GUI::Gtk::Dictionary.run
end

# File lib/dictionaries/sinatra/app.rb, line 111
def self.start_sinatra_interface
  e 'Trying to start the sinatra-interface of the Dictionaries project.'
  ::Dictionaries::Sinatra.run!
end

# File lib/dictionaries/class/ask_word_from_dictionary.rb, line 674
def self.translate(this_word = nil)
  _ = Dictionaries::AskWordFromDictionary.new(this_word, :default_file, :dont_run_yet)
  _.translate(this_word)
end