# encoding: utf-8

module Glyph

	# This class is used to display statistics collected by a Glyph::Analyzer. 
	# @since 0.4.0
	class Reporter

		include Glyph::Utils

		attr_accessor :detailed

		# Initializes the reporter
		# @param [Hash] stats the collected statistics
		def initialize(stats)
			@stats = stats
			@detailed = true
		end

		# Displays the statistics
		def display
			[:files, :macros, :snippets, :bookmarks, :links, 
				:macro, :snippet, :bookmark, :link].each do |s|
				unless @stats[s].blank? then
					send :"display_#{s}" 
					puts
				end
			end
		end

		protected

		def display_macros
			s = @stats[:macros]
			section :macros
			total :macro_instances, s[:instances].length
			total :macro_definitions, s[:definitions].length
			total :macro_aliases, s[:aliases].length
			total :used_macro_definitions, s[:used_definitions].length
			if @detailed then
				inline_list :macro_definitions, s[:definitions]
				inline_list :used_macro_definitions, s[:used_definitions] 
			end
		end

		def display_macro
			s = @stats[:macro]
			alias_for = s[:alias_for] ? " (alias for: #{s[:alias_for]})" : " "
			section "Macro '#{s[:param]}'#{alias_for}"
			total :instances, s[:instances].length
			occurrences s[:files] if @detailed
		end

		def display_bookmarks
			s = @stats[:bookmarks]
			section :bookmarks
			total :bookmarks, s[:codes].length
			total :referenced_bookmarks, s[:referenced].length
			total :unreferenced_bookmarks, s[:unreferenced].length
			if @detailed then
				inline_list :bookmarks, s[:codes]
				occurrences s[:referenced], "Referenced Bookmarks:"
				inline_list :unreferenced_bookmarks, s[:unreferenced]
			end
		end

		def display_bookmark
			s = @stats[:bookmark]
			b_type = (s[:type] != :bookmark) ? " (#{s[:type]})" : " " 
			section "Bookmark '#{s[:param]}'#{b_type}"
			if s[:file] == s[:definition] then
				info "Defined in: #{s[:file]}"
			else
				info "Defined in: #{s[:definition]} (pointing to: #{s[:file]})"
			end
			occurrences s[:references], "Referenced in:" if @detailed 
		end

		def display_snippets
			s = @stats[:snippets]
			section :snippets
			total :snippets, s[:definitions].length
			total :used_snippets, s[:used].length
			total :unused_snippets, s[:unused].length
			if @detailed then
				inline_list :snippets, s[:definitions]
				inline_list :used_snippets, s[:used]
				inline_list :unused_snippets, s[:unused]
			end
		end

		def display_snippet
			s = @stats[:snippet]
			section "Snippet '#{s[:param]}'"
			info "Definition:"
			puts "-------------------"
			puts @stats[:snippets][:values][s[:param]]
			puts "-------------------"
			total :used_instances, s[:stats][:total]
			occurrences s[:stats][:files], "Usage Details:" if @detailed
		end

		def display_links
			s = @stats[:links]
			section :links
			total :internal_links, s[:internal].length
			occurrences s[:internal], "Internal Links" if @detailed
			total :external_links, s[:external].length
			occurrences s[:external], "External Links" if @detailed
		end

		def display_link
			s = @stats[:link]
			section "Links matching /#{s[:param]}/"
			total :links, s[:stats].length
			occurrences s[:stats], "Link Targets:"
			grouped_occurrences s[:stats], "Details:" if @detailed
		end

		def display_files
			s = @stats[:files]
			section :files 
			total :files, s.values.inject{|sum, n| sum+n}
			total "/text    --", s[:text]
			total "/images  --", s[:images]
			total "/styles  --", s[:styles]
			total "/layouts --", s[:layouts]
			total "/lib     --", s[:lib]
		end


		private

		def total(objects, total)
			label = objects.is_a?(Symbol) ? "Total #{objects.to_s.title_case}:" : objects
			info "#{label} #{total}"
		end

		def section(name)
			puts "===== #{(name.is_a? Symbol) ? name.to_s.title_case : name}"
		end

		def inline_list(name, arr)
			return if arr.blank?
			label = name.to_s.title_case
			columns = 5
			max = arr.map{|e| e.to_s.length}.max
			if arr.length < columns+1 then
				info "#{label}: #{arr.join(', ')}"
			else
				info "#{label}:"
				count = 0
				arr.each do |i|
					print "     " if count%columns == 0 
					print "#{i}#{' '*(max-i.to_s.length+1)}"
					print "\n" if count%columns == 4
					count +=1
				end
				puts
			end
		end

		def occurrences(arr, label="Occurrences:")
			return if arr.blank?
			info label
			arr.each do |f|
				total = f[1].is_a?(Numeric) ? "(#{f[1]})" : ""
				puts "   - #{f[0]} #{total}"
			end
		end

		def grouped_occurrences(arr, label="Details:")
			return if arr.blank?
			info label
			arr.each do |f|
				puts "   - #{f[0]} (#{f[1][:total]})"
				f[1][:files].each do |i|
					puts "     - #{i[0]} (#{i[1]})"
				end
			end
		end

	end
end