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

         name: godis-grounding
  description: godis-grounding specification file
 
*************************************************************************/

:- ensure_loaded( search_paths ).

/*========================================================================
   Select datatypes

   Speficies a list of datatypes to be loaded. Each item DataType in the
   list corresponds to a file DataType.pl in the search path.
========================================================================*/

selected_datatypes([string, move, atom, integer, bool, record, set, stack,
stackset, queue, oqueue, pair, assocset, godis_datatypes]).


/*========================================================================
   Select modules

   Each module spec has the form Predicate:FileName, where Predicate is the
   unary predicate used to call the module, and FileName.pl is the a file
   in the search path containing the module specification
========================================================================*/

selected_modules([ input : input_textscore,
		   interpret : interpret_simple,
		   update : update,
		   select : select,
		   generate : generate_simple,
		   output : output_simpletext
		 ]).

% dme_module/1 - spefifies which modules have unlimited access to TIS

dme_modules([ update, select ]). 


/*========================================================================
   Select resources

   Speficies a list of resources to be loaded. Each item
   ResourceFile in the list corresponds to a  a file ResourceFile.pl
   in the search path. The file defines a resource object with the same
   name as the file.
========================================================================*/

selected_resources( [
		     database_travel,
		     lexicon_travel_english,
		     domain_travel
		    ] ).

selected_macro_file( godis_macros ).

/*========================================================================
   operations to execute on TIS reset
========================================================================*/

reset_operations( [ set( program_state, run),
		    set( lexicon,$$dash2underscore(lexicon-Domain-Lang) ),
		    set( database, $$dash2underscore(database-Domain ) ),
		    set( domain, $$dash2underscore(domain-Domain ) ),
%		    ! ($domain :: plan( Q, Plan )), % single issue
%		    /private/plan := Plan,
%		    push(/shared/qud, Q), 
		    push(/private/agenda,greet)]):-
	flag( language, Lang ),
	flag( domain, Domain ).