Permalink
Browse files

Minor changes in loader files

  • Loading branch information...
1 parent 3b1fbf5 commit 4245a710ce2aa87dbf7606856091b6074a2336d3 Michael Igler committed Aug 16, 2012
View
@@ -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,
View
@@ -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,
@@ -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
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */

0 comments on commit 4245a71

Please sign in to comment.