/*
  QueryResolver  -  interface for discovering contents of a scope

  Copyright (C)         Lumiera.org
    2009,               Hermann Vosseler <Ichthyostega@web.de>

  This program is free software; you can redistribute it and/or
  modify it under the terms of the GNU General Public License as
  published by the Free Software Foundation; either version 2 of
  the License, or (at your option) any later version.

  This program is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

* *****************************************************/


#include "lib/query-resolver.hpp"
#include "lib/multifact-arg.hpp"

namespace lib {
  
  
  
  /* generate vtables here... */
  
  Resolution::~Resolution() { }
  
  QueryResolver::~QueryResolver() { }
  
  
  
  
  typedef Goal::QueryID const& QID;
  
  /** we're going to use QueryID as Map key... */
  inline bool
  operator< (QID q1, QID q2)
  {
    return (q1.kind < q2.kind)
        || (q1.kind == q2.kind
         && q1.type < q2.type
           );
  }
  
  
  
  
  
  /* == dispatch to resolve typed queries == */
  
  using factory::BuildRefcountPtr;
  
  /** factory used as dispatcher table
   *  for resolving typed queries  */
  typedef factory::MultiFact< Resolution(Goal const&) // nominal signature of fabrication
                            , Goal::QueryID          //  select resolution function by kind-of-Query
                            , BuildRefcountPtr      //   wrapper: manage result set by smart-ptr
                            > DispatcherTable;     //
  
  struct QueryDispatcher
    : DispatcherTable
    {
      
      PReso
      handle (Goal const& query)
        {
          QID qID = query.getQID();
          ENSURE (contains (qID));
          
          return (*this) (qID, query); 
        }               //qID picks the resolution function
    };
  
  
  
  QueryResolver::QueryResolver ()
    : dispatcher_(new QueryDispatcher)
    { }
  
  
  /** @par implementation
   *  For actually building a result set, the QueryResolver base implementation
   *  uses an embedded dispatcher table. The concrete query resolving facilities,
   *  when implementing the QueryResolver interface, are expected to register
   *  individual resolution functions into this QueryDispatcher table.
   *  Whenever issuing a Goal, a suitable resolution function is picked
   *  based on the Goal::QueryID, which contains an embedded type code.
   *  Thus, the individual resolution function can (re)establish a
   *  typed context and downcast the Goal appropriately
   */
  PReso  
  QueryResolver::issue (Goal const& query)  const
  {
    REQUIRE (!dispatcher_->empty(), "attempt to issue a query without having installed any resolver (yet)");  
    
    if (!canHandle (query))
      throw lumiera::error::Invalid ("unable to resolve this kind of query"); ////TICKET #197
    
    return dispatcher_->handle(query);
  }
  
  
  void
  QueryResolver::installResolutionCase (QID qID, function<Resolution*(Goal const&)> resolutionFun)
  {
    ENSURE (!dispatcher_->contains (qID),
            "duplicate registration of query resolution function");
    
    dispatcher_->defineProduction (qID, resolutionFun);
  }
  
  
  
  
} // namespace lib