pepperplus/pepperplus-cb
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

feat: commit before I can merge new changes

Browse Source 
ref: N25B-400
This commit is contained in:
Pim Hutting
2026-01-07 22:41:59 +01:00
parent be6bbbb849
commit 365d449666
3 changed files with 40 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/control_backend/agents/bdi/agentspeak.asl
View File

@@ -1,4 +1,4 @@
phase("9922935f-ec70-4792-9a61-37a129e1ec14").
phase("0e0f239c-efe9-442c-bdd7-3aabfccd1c49").
keyword_said(Keyword) :- (user_said(Message) & .substring(Keyword, Message, Pos)) & (Pos >= 0).
@@ -19,20 +19,36 @@ keyword_said(Keyword) :- (user_said(Message) & .substring(Keyword, Message, Pos)
.reply(Message, Norms).
+user_said(Message)
: phase("9922935f-ec70-4792-9a61-37a129e1ec14")
: phase("0e0f239c-efe9-442c-bdd7-3aabfccd1c49")
<- .notify_user_said(Message);
-responded_this_turn;
!check_triggers;
!transition_phase.
+!transition_phase
: phase("9922935f-ec70-4792-9a61-37a129e1ec14") &
: phase("0e0f239c-efe9-442c-bdd7-3aabfccd1c49") &
not responded_this_turn
<- -phase("9922935f-ec70-4792-9a61-37a129e1ec14");
<- -phase("0e0f239c-efe9-442c-bdd7-3aabfccd1c49");
+phase("1fc60869-86db-483d-b475-b8ecdec4bba8");
?user_said(Message);
-+user_said(Message);
.notify_transition_phase("0e0f239c-efe9-442c-bdd7-3aabfccd1c49", "1fc60869-86db-483d-b475-b8ecdec4bba8").
+user_said(Message)
: phase("1fc60869-86db-483d-b475-b8ecdec4bba8")
<- .notify_user_said(Message);
-responded_this_turn;
!check_triggers;
!transition_phase.
+!transition_phase
: phase("1fc60869-86db-483d-b475-b8ecdec4bba8") &
not responded_this_turn
<- -phase("1fc60869-86db-483d-b475-b8ecdec4bba8");
+phase("end");
?user_said(Message);
-+user_said(Message);
.notify_transition_phase("9922935f-ec70-4792-9a61-37a129e1ec14", "end").
.notify_transition_phase("1fc60869-86db-483d-b475-b8ecdec4bba8", "end").
+user_said(Message)
: phase("end")