例題04a ベースプロセスを持つエージェント

(1)概要

(2)エージェント

(2.1)Sample040

     1	(agent Sample040
     2	
     3	  (property
     4	    (create :author "Har@CIT")
     5	  )
     6	
     7	  (initial_facts
     8	    (worker :name suzuki)
     9	    (worker :name hara)
    10	  )
    11	
    12	  (knowledge
    13	
    14	    (rule startup
    15	      (Msg :performative __INIT_I)
    16	      (Status :name ?name)
    17	      -->
    18	      (inspect nonstop)
    19	      (loadBP baseProcess.dashSample.SimpleWindow) // BP読み込み
    20	      (startBP)                          // run()呼び出し
    21	      (control startup ())               // startup()呼び出し
    22	      (control setWindowTitle(?name))    // setWindowTitle()呼び出し
    23	    )
    24	
    25	    (rule worker
    26	      (worker :name ?name)
    27	      ~(Msg :performative __INIT_C)
    28	      -->
    29	      (control println (?name))          // println()呼び出し
    30	    )
    31	
    32	    (rule worker2
    33	      (worker :name ?name1)
    34	      (worker :name ?name2)
    35	      ~(Msg :performative __INIT_C)
    36	      -->
    37	      (bind ?member (control cat (?name1 ?name2)))  // cat()呼び出し
    38	      (make (group :member ?member))
    39	    )
    40	
    41	
    42	    // ベースプロセスからのイベントを処理する
    43	    (rule event-handling
    44	      (Msg :performative __Event :content (?string))
    45	      -->
    46	      (send :performative notify :to _interface :content (?string))
    47	    )
    48	
    49	  )
    50	)

●ベースプロセス (SimpleWindow.java)

1 package baseProcess.dashSample; 2 3 import java.util.*; 4 import java.awt.*; 5 import java.awt.event.*; 6 import javax.swing.*; 7 import javax.swing.border.*; 8 import dash.*; 9 10 public class SimpleWindow extends JFrame implements DashBP, ActionListener { 11 12 private DashAgent agent; 13 14 JTextField textfield; 15 JTextArea textarea; 16 JButton button; 17 JPanel panel; 18 19 /** コンストラクタ。アクション(loadBP)実行時に呼ばれる。 */ 20 public SimpleWindow(){ 21 super( "SimpleWindow" ); 22 } 23 24 /** アクション(loadBP)実行時に呼ばれる。*/ 25 public void setAgent(DashAgent agent){ 26 this.agent = agent; 27 } 28 29 /** アクション(startBP)実行時に呼ばれる */ 30 public void run(){ 31 setup(); 32 } 33 34 /** エージェントの終了時に呼ばれる */ 35 public void finalizeBP(){ 36 dispose(); 37 } 38 39 /** エージェントにイベントを上げる */ 40 public void actionPerformed( ActionEvent ae ){ 41 if(agent != null){ 42 agent.raiseEvent(textfield.getText()); 43 } 44 } 45 46 /** ルールstartup内で呼び出される */ 47 public void startup() { 48 textarea.append( "起動\n" ); 49 } 50 51 /** ルールworker内で呼び出される */ 52 public void println( Object[] str){ 53 textarea.append( (String)str[0] + "\n" ); 54 } 55 56 /** ルールworker2内で呼び出される */ 57 public String cat(Object[] str){ 58 return ( str[0] + " " + str[1] ); 59 } 60 61 /** ルールstartup内で呼び出される */ 62 public void setWindowTitle( Object[] str1 ){ 63 setTitle("sWin:"+str1[0]); 64 } 65 66 /** ウィンドウを作る */ 67 private void setup(){ 68 69 textfield = new JTextField(); 70 textfield.setBorder( new TitledBorder( "入力" ) ); 71 72 textarea = new JTextArea( 6, 20 ); 73 JScrollPane sc = new JScrollPane( textarea ); 74 sc.setBorder( new TitledBorder( "出力" ) ); 75 76 button = new JButton( "エージェントに通知" ); 77 button.addActionListener( this ); 78 79 getContentPane().add( textfield, BorderLayout.NORTH ); 80 getContentPane().add( sc, BorderLayout.CENTER ); 81 getContentPane().add( button, BorderLayout.SOUTH ); 82 83 pack(); 84 setVisible( true ); 85 } 86 87 /** テスト用 */ 88 public static void main( String[] args ){ 89 SimpleWindow window = new SimpleWindow(); 90 window.setup(); 91 } 92 }

1:	パッケージ名はbaseProcessでなくても可。
10:	インタフェースdash.DashBPをimplementsする必要がある。
12:	エージェント本体。 ベースプロセスからエージェントにイベントを上げるときに使う(42行)。
20〜22:	引数無しのコンストラクタが必要。 コンストラクタの中では、ウィンドウは作らない方がよい。 インスタンス生成後にrun()メソッドが呼び出されるので、そこで作る。
25〜27:	コンストラクタの次に呼ばれる。 エージェント本体を受け取るので、 こんな感じで保管しておく。
30〜32:	アクション(startBP)実行時に呼ばれる。 ベースプロセスはスレッドとして動作する。 ここからベースプロセスの処理を記述する。 ただし、この例ではウィンドウ作成処理(67行〜)をした後 直ちに終了する(ウィンドウ内で独自にスレッドをもつため)
35〜37:	終了時にエージェントから呼び出される。
40〜44:	ベースプロセスからエージェントにイベントを上げる。 ルールevent-handling(43行)で処理される。
47〜49:	ルールstartupの21行でエージェントから呼ばれるメソッド。
52〜54:	ルールworkerの29行でエージェントから呼ばれるメソッド。
57〜59:	ルールworker2の37行でエージェントから呼ばれるメソッド。
62〜64:	ルールstartupの22行でエージェントから呼ばれるメソッド。

(3)起動方法

1. IDEAを起動し、動作シミュレート工程に進む。
2. ワークプレースのSelアイコンでSample040エージェントを選択し、起動する。
3. エージェントがワークプレースに生成され、動作を開始する。 エージェント名はSample040.時刻:w1:lynxになる。
4. ルールstartupにおいて、
   1. (inspect nonstop)によりインスペクタが開き、
   2. (loadBP ..)によりベースプロセスのクラスファイル読み込み・ インスタンス生成が行われ、
   3. (startBP)によりrun()メソッドを呼んで ベースプロセスが小さなウィンドウを開き、
   4. 2つの(control)がベースプロセスのメソッドを呼び出す。
5. ルールworker, worker2が発火する。

• 「sWin:Sample040.時刻:w1:lynx」という小さなウィンドウが表示されている (以降、このウィンドウをSimpleWindowと呼ぶ)。
• SimpleWindowの出力エリアには、次のように出力されている:

  起動 hara suzuki

• ワーキングメモリには、次の２つのファクトが新たに生成されている。

  (group :member "suzuki hara") (gourp :member "hara suzuki")

• ワーキングメモリ内に
  　(Msg :performative __Event　…　:content (ABC))
  というファクトが生成される。
  ※入力する文字列に空白や括弧を含めると、40行目の(Msg ...)の条件に マッチしなくなるので注意！→(7)イベントを上げる方法参照
• ACLエディタにnotifyというメッセージが届く。

リポジトリエージェントはベースプロセスを持たない。

(5)ベースプロセスの作成方法

(rule sample
  (Msg :performative __Event :content (?string))
  -->
  (send :performative notify :to _interface :content (?string))
)