coolcmd.exp

NASA 开发使用的一个专家系统

CLIPS> (ppdefmessage-handler USER init before)
[MSGCOM2] Unable to find message-handler init before for class USER in function ppdefmessage-handler.
CLIPS> (ppdefmessage-handler USER init after)
[MSGCOM2] Unable to find message-handler init after for class USER in function ppdefmessage-handler.
CLIPS> (defmessage-handler BOY init after ())
CLIPS> (list-defmessage-handlers)
init primary in class USER
delete primary in class USER
print primary in class USER
direct-modify primary in class USER
message-modify primary in class USER
direct-duplicate primary in class USER
message-duplicate primary in class USER
play primary in class BOY
init after in class BOY
For a total of 9 message-handlers.
CLIPS> (list-defmessage-handlers *)
[CLASSFUN1] Unable to find class * in function list-defmessage-handlers.
CLIPS> (defclass * (is-a USER))
CLIPS> (list-defmessage-handlers)
init primary in class USER
delete primary in class USER
print primary in class USER
direct-modify primary in class USER
message-modify primary in class USER
direct-duplicate primary in class USER
message-duplicate primary in class USER
play primary in class BOY
init after in class BOY
For a total of 9 message-handlers.
CLIPS> (undefclass *)
CLIPS> (list-defmessage-handlers USER)
init primary in class USER
delete primary in class USER
print primary in class USER
direct-modify primary in class USER
message-modify primary in class USER
direct-duplicate primary in class USER
message-duplicate primary in class USER
For a total of 7 message-handlers.
CLIPS> (defmessage-handler USER * ())
CLIPS> (defmessage-handler USER bogus ())
CLIPS> (list-defmessage-handlers USER)
init primary in class USER
delete primary in class USER
print primary in class USER
direct-modify primary in class USER
message-modify primary in class USER
direct-duplicate primary in class USER
message-duplicate primary in class USER
* primary in class USER
bogus primary in class USER
For a total of 9 message-handlers.
CLIPS> (undefmessage-handler USER *)
CLIPS> (list-defmessage-handlers USER)
init primary in class USER
delete primary in class USER
print primary in class USER
direct-modify primary in class USER
message-modify primary in class USER
direct-duplicate primary in class USER
message-duplicate primary in class USER
bogus primary in class USER
For a total of 8 message-handlers.
CLIPS> (undefmessage-handler)
[ARGACCES4] Function undefmessage-handler expected at least 2 argument(s)
CLIPS> (undefmessage-handler * *)
CLIPS> (list-defmessage-handlers)
init primary in class USER
delete primary in class USER
print primary in class USER
direct-modify primary in class USER
message-modify primary in class USER
direct-duplicate primary in class USER
message-duplicate primary in class USER
init after in class BOY
For a total of 8 message-handlers.
CLIPS> (undefmessage-handler * * *)
CLIPS> (list-defmessage-handlers)
init primary in class USER
delete primary in class USER
print primary in class USER
direct-modify primary in class USER
message-modify primary in class USER
direct-duplicate primary in class USER
message-duplicate primary in class USER
For a total of 7 message-handlers.
CLIPS> (clear)
CLIPS> (defmessage-handler USER my-message around ())
CLIPS> (defmessage-handler USER my-message before ())
CLIPS> (defmessage-handler USER my-message ())
CLIPS> (defmessage-handler USER my-message after ())
CLIPS> (defmessage-handler OBJECT my-message around ())
CLIPS> (defmessage-handler OBJECT my-message before ())
CLIPS> (defmessage-handler OBJECT my-message primary ())
CLIPS> (defmessage-handler OBJECT my-message after ())
CLIPS> (preview-send)
[ARGACCES4] Function preview-send expected exactly 2 argument(s)
CLIPS> (preview-send BOGUS blah)
[CLASSFUN1] Unable to find class BOGUS in function preview-send.
CLIPS> (preview-send USER blah)
[MSGFUN1] No applicable primary message-handlers found for blah.
CLIPS> (preview-send USER my-message)
>> my-message around in class USER
| >> my-message around in class OBJECT
| | >> my-message before in class USER
| | << my-message before in class USER
| | >> my-message before in class OBJECT
| | << my-message before in class OBJECT
| | >> my-message primary in class USER
| | | >> my-message primary in class OBJECT
| | | << my-message primary in class OBJECT
| | << my-message primary in class USER
| | >> my-message after in class OBJECT
| | << my-message after in class OBJECT
| | >> my-message after in class USER
| | << my-message after in class USER
| << my-message around in class OBJECT
<< my-message around in class USER
CLIPS> (preview-send OBJECT my-message)
>> my-message around in class OBJECT
| >> my-message before in class OBJECT
| << my-message before in class OBJECT
| >> my-message primary in class OBJECT
| << my-message primary in class OBJECT
| >> my-message after in class OBJECT
| << my-message after in class OBJECT
<< my-message around in class OBJECT
CLIPS> (clear)
CLIPS> (defclass TEST (is-a USER) (role concrete)
   (slot x (create-accessor write)) 
   (multislot y (default ?NONE) (create-accessor write))
   (slot z (create-accessor write)))
CLIPS> (definstances TEST-CASES "Random comment..."
   (t1 of TEST (x 100) (y a b c d e f))
   (t2 of TEST (y blah)))
CLIPS> (ppdefinstances)
[ARGACCES4] Function ppdefinstances expected exactly 1 argument(s)
CLIPS> (ppdefinstances BOGUS)
[PRNTUTIL1] Unable to find definstances BOGUS.
CLIPS> (ppdefinstances 34)
[ARGACCES5] Function ppdefinstances expected argument #1 to be of type symbol
CLIPS> (ppdefinstances TEST-CASES)
(definstances MAIN::TEST-CASES "Random comment..."
   (t1 of TEST
      (x 100)
      (y a b c d e f))
   (t2 of TEST
      (y blah)))
CLIPS> (list-definstances)
initial-object
TEST-CASES
For a total of 2 definstances.
CLIPS> (reset)
CLIPS> (instances)
[initial-object] of INITIAL-OBJECT
[t1] of TEST
[t2] of TEST
For a total of 3 instances.
CLIPS> (instances MAIN TEST)
[t1] of TEST
[t2] of TEST
For a total of 2 instances.
CLIPS> (instances MAIN USER)
CLIPS> (instances MAIN USER inherit)
[initial-object] of INITIAL-OBJECT
[t1] of TEST
[t2] of TEST
For a total of 3 instances.
CLIPS> (instances MAIN BOGUS)
[CLASSFUN1] Unable to find class BOGUS in function instances.
CLIPS> (instances MAIN USER junk)
[ARGACCES5] Function instances expected argument #3 to be of type keyword "inherit"
CLIPS> (send [t1] print)
[t1] of TEST
(x 100)
(y a b c d e f)
(z nil)
CLIPS> (defmessage-handler TEST print ()
   (printout t "Printing twice..." crlf)
   (ppinstance)
   (call-next-handler)
   (printout t "Done!" crlf))
CLIPS> (send [t2] print)
Printing twice...
[t2] of TEST
(x nil)
(y blah)
(z nil)
[t2] of TEST
(x nil)
(y blah)
(z nil)
Done!
CLIPS> (undefinstances)
[ARGACCES4] Function undefinstances expected exactly 1 argument(s)
CLIPS> (definstances * (t3 of TEST))
CLIPS> (undefinstances *)
CLIPS> (list-definstances)
initial-object
TEST-CASES
For a total of 2 definstances.
CLIPS> (undefinstances *)
CLIPS> (list-definstances)
CLIPS> (load-instances)
[ARGACCES4] Function load-instances expected exactly 1 argument(s)
CLIPS> (load-instances 34)
[ARGACCES5] Function load-instances expected argument #1 to be of type symbol or string
CLIPS> (load-instances "coolcmd.bat")

[PRNTUTIL2] Syntax Error:  Check appropriate syntax for make-instance.
[INSFILE1] Function load-instances could not completely process file coolcmd.bat.
0
CLIPS> (save-instances)
[ARGACCES4] Function save-instances expected at least 1 argument(s)
CLIPS> (save-instances 34)
[ARGACCES5] Function save-instances expected argument #1 to be of type symbol or string
CLIPS> (send [t2] put-z (instance-address t1))
<Instance-t1>
CLIPS> (mv-slot-replace t1 y 2 2 (instance-address t2))
(a <Instance-t2> c d e f)
CLIPS> (save-instances coolcmd.tmp)
3
CLIPS> (reset)
CLIPS> (load-instances coolcmd.tmp)
3
CLIPS> (restore-instances coolcmd.tmp)
3
CLIPS> (do-for-all-instances ((?a OBJECT)) TRUE (send ?a print))
[initial-object] of INITIAL-OBJECT
Printing twice...
[t1] of TEST
(x 100)
(y a [t2] c d e f)
(z nil)
[t1] of TEST
(x 100)
(y a [t2] c d e f)
(z nil)
Done!
Printing twice...
[t2] of TEST
(x nil)
(y blah)
(z [t1])
[t2] of TEST
(x nil)
(y blah)
(z [t1])
Done!
CLIPS> (dribble-off)