testbb.bat

来自「专家系统例子,内核是clips,很有参考性的工具采用visual c」· Batch 代码 · 共 20 行

(set_strshare "teststr" "This is a test of the shared pool")
(set_intshare "testint" 123)
(set_fltshare "testflt" 55.5)
(printout wdialog (get_shareslak) crlf)
(printout wdialog (get_strshare "teststr") crlf)
(printout wdialog (get_intshare "testint") crlf)
(printout wdialog (get_fltshare "testflt") crlf)
(free_shareobj "teststr")
(printout wdialog (get_shareslak) crlf)
(free_shareobj "testint")
(printout wdialog (get_shareslak) crlf)
(free_shareobj "testflt")
(printout wdialog (get_shareslak) crlf)
(set_intshare "testint" 321)
(defrag_share)
(printout wdialog (get_intshare "testint") crlf)
(free_shareobj "testint")
(printout wdialog (get_shareslak) crlf)