CLIPS与MFC之间的交互方法总结

CLIPS与MFC之间的交互方法总结

更多文章参见个人网站
最近，碰到很多同学询问MFC如何与CLIPS进行交互，简单地说就是，如何把CLIPS里的推导结果显示在MFC的程序中（或者是文本框）。相信目前使用MFC的做CLIPS交互的同学还有很多，毕竟大学还是主要教授这些，那么有这样不会交互问题的同学还有很多，很多人可是在CLIPS的IDE中得到结论，甚至可以输出到Terminal（不会的看前面的文章），但却不能将结论输出到MFC的程序中。
今天我就在这里说几种方法，算是抛砖引玉，太LOW轻砸。
方法一、中转。
第一个方法就是LOW到不行的低级方法啦，不过可以解燃眉之急，对那些基本没有编程经验和工程经验，甚至是非计算机专业的同学还是可以借鉴一下的。简单说下流程：CLIPS推理–>输出结果到本地–>读取本地信息–>显示到MFC。废话不过说了，直接上干货！

1. 在CLIPS的知识库文件中将结论输出到本地。需要在RHS内添加以下代码：

(open "out.txt" example "w");;以只写的方式打开名为“out.txt”的文件，没有则创建  
(printout example "False" crlf);;输出结论  
(close example)

2. 在MFC内读取本地信息。
   
   
   
   这样，推导结论通过本地TXT文本的中转，可以显示在MFC程序内。
   方法二、CLIPS路由映射函数
   原理就是通过将CLIPS内的print函数路由到用户自定义的函数，从而可以直接在知识内将结论直接print到MFC的文本框。直接上干货！

    void *theEnv;  
    theEnv = __CreateEnvironment();  
    __EnvAddRouterWithContext(theEnv,"output",255, MyQueryFunction, MyPrintFunction);   
    __EnvBuild(theEnv, "(defrule hello"  "   =>"  "  (printout t \"Hello World.\"crlf)"  );  
    __EnvReset(theEnv);  
    __EnvRun(theEnv, -1);  
    __DestroyEnvironment(theEnv);  
}  
int MyQueryFunction(void* env, const char* logicalname)  
{  
    if (strcmp(logicalname, "output") == 0)  
    {  return 1; 
    }  
    return 0;  
}  
int MyPrintFunction(void* env,const char* logicalname,const char* buffer)  
{  
    // TODO: write out the info in buffer    
    CEdit* pBoxOne;  
    pBoxOne = (CEdit*)GetDlgItem(AfxGetMainWnd()->m_hWnd,IDC_EDIT1);  
    pBoxOne->SetWindowText((LPCTSTR)buffer);  
}

方法三、内存读取
内存读取的意思就是在CLIPS做完推理后，直接从他的Environment内读取推理的结果，也就是它的运行内存。读取内存需要用到CLIPS自身的一些函数，详情请参照《CLIPS高级指南》在这里我们使用GetFactSlot函数。MFC内添加如下代码：

m_editSummand=__EnvEval(theEnv, "(MAIN::get-list)", DOToPointer(result1));  
    for (int i = 0; i < m_editSummand; i++)  
    {  
        __EnvGetFactSlot(theEnv, DOToPointer(result1), "name", DOToPointer(result2));  
    }

其中，result1和result2均为 DATA_OBJECT 。通过以上操作已将结果存储到了result2内。CLIPS知识库内添加以下部分：

(deffunction get-list()  
(bind ?facts (find-all-facts ((?f boy))  
                ( >= ?f:age 1 ))))