monitor.soar

00001 echo "\nLoading common/monitor.soar"
00002 
00003 #### Monitor impasses I don't expect to get
00004 
00005 sp {top-ps*monitor*impasse*state-no-change
00006    (state <s> ^attribute state
00007               ^choices none)
00008 -->
00009    (write (crlf) | State no-change impasse detected.|)
00010    (tcl |stop-soar -self|)
00011 }
00012 
00013 sp {top-ps*monitor*operator*tie*impasse
00014    (state <s> ^attribute operator
00015               ^impasse tie
00016               ^item <i1> ^item {<i2> <> <i1> })
00017    (<i1> ^name <name1>)
00018    (<i2> ^name <name2>)
00019 -->
00020    (write (crlf) | Operator tie between | <name1> | & | <name2>)
00021    (tcl |stop-soar -self|)}
00022 
00023 sp {top-ps*monitor*output-link
00024 	(state <s> ^name tanksoar
00025 				  ^io.output-link <out>)
00026 	(<out> ^<attr> <link>)
00027 	(<link> ^{ <> status <attr2> } <value>)
00028 	-->
00029 	(write (crlf) | Output Command: | <attr> |.| <attr2> | | <value>)
00030 	}