Minor changes in loader files

loader.lgt

@@ -28,7 +28,8 @@
 :- use_module(library('http/http_dispatch')).
 :- use_module(library('http/html_write')).
 
-logtalk_library_path(esprona, './').
+
+logtalk_library_path(esprona, '$ESProNa/').
 logtalk_library_path(esprona_library, esprona('library/')).
 logtalk_library_path(esprona_contributions, esprona('contributions/')).
 logtalk_library_path(rest, esprona_library('REST/')).
@@ -50,7 +51,6 @@ logtalk_library_path(heuristics, popm('heuristics/')).
 
 % location process models
 logtalk_library_path(process_models, esprona('process_models/')).
-%logtalk_library_path(set_up_surgery_plan, process_models('set_up_surgery_plan/')).
 logtalk_library_path(set_up_surgery_plan_extended, process_models('set_up_surgery_plan_extended/')).
 logtalk_library_path(be_dep_test, process_models('be_dep_test/')).
 
@@ -68,7 +68,6 @@ logtalk_library_path(unit_test_1, unit_tests('unit_test_1/')).
 
 	logtalk_load(library(types_loader)),
 	logtalk_load(library(metapredicates_loader)),
-	logtalk_load(metapredicates(loader)),
 	logtalk_load(library(pairs), [reload(skip)]),
 	logtalk_load(library(dates_loader)),	
 	logtalk_load(roots(loader)),
@@ -164,7 +163,7 @@ logtalk_library_path(unit_test_1, unit_tests('unit_test_1/')).
 	logtalk_load(visualize(graphviz)),		
 	nl,
 
-	write('+++ Loading REST/JSON interface to ESProNa...'),
+	write('+++ Loading REST/JSON interface...'),
 	logtalk_load(rest(rest)),
 	consult('./library/REST/rest_proxy_module'),
 	nl,

loader_debug.lgt

@@ -28,7 +28,7 @@
 :- use_module(library('http/http_dispatch')).
 :- use_module(library('http/html_write')).
 
-logtalk_library_path(esprona, './').
+logtalk_library_path(esprona, '$ESProNa/').
 logtalk_library_path(esprona_library, esprona('library/')).
 logtalk_library_path(esprona_contributions, esprona('contributions/')).
 logtalk_library_path(rest, esprona_library('REST/')).
@@ -60,7 +60,6 @@ logtalk_library_path(unit_test_1, unit_tests('unit_test_1/')).
 :- initialization((	
 	logtalk_load(library(types_loader)),
 	logtalk_load(library(metapredicates_loader)),
-	logtalk_load(metapredicates(loader)),
 	logtalk_load(library(pairs), [reload(skip)]),
 	logtalk_load(library(dates_loader)),	
 	logtalk_load(roots(loader)),
@@ -172,7 +171,7 @@ logtalk_library_path(unit_test_1, unit_tests('unit_test_1/')).
 	logtalk_load(visualize(graphviz)),		
 	nl,
 
-	write('+++ Loading REST/JSON interface to ESProNa...'),
+	write('+++ Loading REST/JSON interface...'),
 	logtalk_load(rest(rest)),
 	consult('./library/REST/rest_proxy_module'),
 	nl,

process_models/set_up_surgery_plan_extended/EXAMPLE_QUERIES.lgt

@@ -3,6 +3,30 @@
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
 process_model::load(set_up_surgery_plan_extended(loader)).
 
+
+/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
+   														ACTION QUERIES 
+   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
+process_planning::initial_state(set_up_surgery_plan_extended, InitialState),
+extends_object(Process, process),
+Process::validate_action(start, InitialState, Instance-AgentList-RequiredDataList-ToolsList).							
+
+process_planning::initial_state(set_up_surgery_plan_extended, InitialState),
+'set_up_surgery_plan_extended#pid_0'(_)::perform_action(start, InitialState, 
+	1-['http://ai4.inf.uni-bayreuth.de/ontology/individuals#John']-[]-['HIS'], 
+	NextModelState
+).
+
+ModelState = model_state([
+	process_state('set_up_surgery_plan_extended#pid_0', [1-start-['http://ai4.inf.uni-bayreuth.de/ontology/individuals#John']-[]-['HIS']]),
+	process_state('set_up_surgery_plan_extended#pid_1', []), 
+	process_state('set_up_surgery_plan_extended#pid_2', []),
+	process_state('set_up_surgery_plan_extended#pid_3', [])], 
+	0),
+extends_object(Process, process),
+Process::validate_action(Action, ModelState, Instance-AgentList-RequiredDataList-ToolsList).
+
+
 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    														STATE SPACE GENERATING QUERIES 
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */