module MailAddress

  class Address

    def initialize(phrase, address)
      @phrase = phrase
      @address = address
    end
    attr_accessor :phrase, :address

    ATEXT = '[\-\w !#$%&\'*+/=?^`{|}~]'

    def format
      addr = []
      if !@phrase.nil? && @phrase.length > 0 then
        if @phrase.match(/\A\(/) && @phrase.match(/\)\z/)
          addr.push(@address) if !@address.nil? && @address.length > 0
          addr.push(@phrase)
        else
          addr.push(
            @phrase.match(/^(?:\s*#{ATEXT}\s*)+$/) ? @phrase
            : @phrase.match(/(?<!\\)"/)            ? @phrase
            : %Q("#{@phrase}")
            )
          addr.push "<#{@address}>" if !@address.nil? && @address.length > 0
        end
      elsif !@address.nil? && @address.length > 0 then
        addr.push(@address)
      end
      addr.join(' ')
    end

    def name
      phrase = @phrase.dup
      addr   = @address ? @address.dup : ""

      name   = Address._extract_name(phrase)

      # first.last@domain address
      if (name == '') && (md = addr.match(/([^\%\.\@_]+([\._][^\%\.\@_]+)+)[\@\%]/)) then
        name = md[1]
        name.gsub!(/[\._]+/, ' ')
        name = Address._extract_name name
      end
      
      if (name == '' && addr.match(%r{/g=}i)) then   # X400 style address
        f = addr.match(%r{g=([^/]*)}i)
        l = addr.match(%r{s=([^/]*)}i)
        name = Address._extract_name "#{f[1]} #{l[1]}"
      end

      name.length > 0 ? name : nil
    end

    def host
      addr = @address || '';
      i = addr.rindex('@')
      i.nil? ? nil : addr[i + 1 .. -1]
    end

    def user
      addr = @address || '';
      i = addr.rindex('@')
      i.nil? ? addr : addr[0 ... i]
    end

    private

    # given a comment, attempt to extract a person's name
    def self._extract_name(name)
      # This function can be called as method as well
      return '' if name.nil? || name == ''

      # Using encodings, too hard. See Mail::Message::Field::Full.
      return '' if name.match(/\=\?.*?\?\=/)

      # trim whitespace
      name.sub!(/^\s+/, '')
      name.sub!(/\s+$/, '')
      name.sub!(/\s+/, ' ')

      # Disregard numeric names (e.g. 123456.1234@compuserve.com)
      return "" if name.match(/^[\d ]+$/)

      name.sub!(/^\((.*)\)$/, '\1') # remove outermost parenthesis
      name.sub!(/^"(.*)"$/, '\1')   # remove outer quotation marks
      name.gsub!(/\\/, '')          # remove all escapes
      name.sub!(/^"(.*)"$/, '\1')   # remove internal quotation marks

      # some cleanup
      name.gsub!(/\[[^\]]*\]/, '')
      name.gsub!(/(^[\s'"]+|[\s'"]+$)/, '')
      name.gsub!(/\s{2,}/, ' ')
      name
    end

  end

end