memrycmd.bat

来自「NASA 开发使用的一个专家系统」· Batch 代码 · 共 52 行

(clear)
(mem-used 10)
(mem-used)
(mem-requests 20)
(mem-requests)
(release-mem 10)
(release-mem)
(conserve-mem)
(conserve-mem on off)
(conserve-mem off)
(defrule foo =>)
(deftemplate foo)
(deffacts foo)
(defglobal ?*foo* = foo)
(deffunction foo ())
(defgeneric bar)
(defmethod bar ())
(defclass SNAFU (is-a USER) (role concrete))
(definstances foo (x of SNAFU))
(defmessage-handler SNAFU fubar ())
(ppdefrule foo)
(ppdeftemplate foo)
(ppdefglobal foo)
(ppdeffunction foo)
(ppdefgeneric bar)
(ppdefmethod bar 1)
(ppdefclass SNAFU)
(ppdefinstances foo)
(ppdefmessage-handler SNAFU fubar)
(conserve-mem on)
(defrule foo =>)
(deftemplate foo)
(deffacts foo)
(defglobal ?*foo* = foo)
(deffunction foo ())
(defgeneric bar)
(defmethod bar ())
(undefinstances foo)
(defclass SNAFU (is-a USER) (role concrete))
(definstances foo (x of SNAFU))
(defmessage-handler SNAFU fubar ())
(ppdefrule foo)
(ppdeftemplate foo)
(ppdefglobal foo)
(ppdeffunction foo)
(ppdefgeneric bar)
(ppdefmethod bar 1)
(ppdefclass SNAFU)
(ppdefinstances foo)
(ppdefmessage-handler SNAFU fubar)
(conserve-mem off)