require 'rubygems'
require 'yard'
require 'rdoc/rdoc'
require 'fileutils'
require File.join(File.dirname(__FILE__), 'introspections.rb')

class OptionsfulDocs


  def initialize(app)  
    @app = app
  end  

  def call(env) 
    unless env["PATH_INFO"].index("/opts/") == 0
      @app.call(env)
    else
      extract_documentation(env)
    end
  end

  def extract_documentation(env)

    parts = env["PATH_INFO"].split("/")
    parts.delete("")
    parts.delete("opts")
    # do routing introspection:
    routes = Introspections.do_routing_introspection
    # do request path investigation
    path = parts.join("/")
    puts "\n #{path} \n"
    route_guess = Introspections.guess_route(routes,path)
    # do the matches:
    allow = Introspections.do_the_matches(routes, route_guess)
    http_methods = allow.split(", ")

    controller_actions = []
    http_methods.each do |verb|
      controller_actions << [verb, relate_action_to_method(parts, verb)]
    end

    controller_actions.delete_if {|pair| pair[1].empty? }
    puts "controller_actions: #{controller_actions.inspect}"
    controller_name = Introspections.discover_controller_name(parts) + "_controller"
    file = File.join(RAILS_ROOT, "app", "controllers", controller_name + ".rb")
    controller_class = controller_name.camelize

    service_doc = extract_comments_above(file, find_line_for(file, controller_class, :class)).join("\n")

    methods_docs = []
    controller_actions.each do |info|
      methods_docs << [info, extract_comments_above(file, find_line_for(file, info[1], :method)).join("\n")]
    end

    body = "\n\nService: \n" + service_doc + "\n" 
    methods_docs.each do |md|
      body += "\n\nMethod: #{md[0][0]} \n Action: #{md[0][1]} \n Metadata: \n #{md[1]}\n\n-- end ---\n"
    end

    [200, {}, "Under development!!! \n  #{body}"]
  end

  def relate_action_to_method(path, verb)
    action = ""
    routes = Introspections.do_routing_introspection
    route_guess = Introspections.guess_route(routes, path)
    routes.each do |route|
      if ((route.first == route_guess) && (route[1][0] == verb))
        action = route[1][1] unless route[1][1].empty?
      end
    end
    action
  end



  def file_lines(file_name)
    lines = []
    begin
      file = File.new(file_name, "r")
      while (line = file.gets)
        line = line.strip
        lines << line unless line.empty?
      end
      file.close
    rescue => err
      puts "Exception: #{err}"
      err
    end
    lines.delete(nil)
    lines
  end  

  def extract_comments_above(file_name, line_number)
    lines = file_lines(file_name)
    doc = []
    line_number = line_number -1
    while ((line_number = line_number -1) && (line_number >= 0) && (!lines.nil?) && (!lines[line_number].empty?))
      line = lines[line_number].lstrip
      if line[0] == 35
        doc << line
        
      else
        line_number = 0
      end 
    end
    doc.reverse
    puts doc.inspect
    doc
  end

  def find_line_for(file, name, type) 
    lines = file_lines(file)
    signature = ""
    if type == :class
      signature = "class " + name
    elsif type == :method
      signature = "def " + name
    end
    counter = 1;
    lines.each do |line|
      if line.include? signature
        return counter
      end
      counter += 1
    end
  end

end