品尝 GNU Prolog （3）

http://blog.csdn.net/lawme/archive/2008/10/17/3089770.aspx



六、简要解释与 GTK-Server 相关的语句

属于 Prolog 语法、用法等基本知识，请参阅下列的教程

http://www.csupomona.edu/~jrfisher/www/prolog_tutorial/contents.html

属于 GNU Prolog 的内部谓词，请参阅

http://www.gprolog.org/manual/gprolog.html

（一）自动执行的语句

程序 tictactoe.pl 启动后，这种语句首先无条件执行。形式上，它没有句首标识，或可叫作“无头子句”。

tictactoe.pl 中有 2 句：

:-dynamic(x/1, o/1, signals/5, labels/1).

:-initialization(start).

第一句，定义了四个“动态谓词”：x(_),o(_),signals(_,_,_,_,_),label(_)。

“动态谓词”，从其用途意义上可看做是“具有多个值的、可被增删改的全局变量”。

“动态谓词”，在 Visual Prolog 中，称作“内部数据库”。

第二句，调用谓词 start 程序运行开始。



（二）实现 GUI 的语句



（1）、调用 GNU Prolog 谓词 exec ，建立与 GTK-Server 的连接

exec('gtk-server stdin post=.', Pout, Pin, _, _)

'gtk-server stdin post=.'是DOS控制台命令，使双方以STDIN方式建立连接。这种连接是建立了 pipe 双向通道；

Pout,Pin 是由“约束”产生的相应的 I/O 流 （stream），可将这两个变参理解为语句执行后的“返回值”。

（2）、谓词 gui 和 gtk

gui 确定要 GTK-Server 做的事情后，由 gtk 通过 I/O 流通道，通知 GTK-Server 执行。

GTK-Server 是为脚本程序提供GUI服务，脚本程序调用服务的语句，可以是简单的字符串，由服务端解析。例如，

gtk(Pin, Pout, [' gtk_init NULL NULL'], _)

中的' gtk_init NULL NULL'，在服务端会析为 gtk_init( NULL, NULL,)

即调用 GTK 的函数 gtk_init

（3）、处理事件EVENT的谓词 loop

loop 谓词有多个子句，基本上是毎个子句处理一种事件，并且实现了 while 的循环功能。



本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/lawme/archive/2008/10/17/3089770.aspx