用Racket做一个拼图游戏——26 创建拼图命令按钮组

最新推荐文章于 2024-07-16 10:30:06 发布

OnRoadZy

最新推荐文章于 2024-07-16 10:30:06 发布

阅读量512

点赞数 14

分类专栏：拼图游戏 Racket Lisp 文章标签：开发语言 racket lisp 编程语言拼图游戏

本文链接：https://blog.csdn.net/chinazhangyong/article/details/140458731

版权

Racket 同时被 3 个专栏收录

78 篇文章 12 订阅

订阅专栏

Lisp

78 篇文章 16 订阅

订阅专栏

拼图游戏

28 篇文章 0 订阅

订阅专栏

26 创建拼图命令按钮组

先看代码，再作解释：

;创建拼图命令按钮组：
(define (create-puzzle-command-button-group p)
  (let ([gp (new group-box-panel%
                 [label "拼图命令"]
                 [parent p]
                 [stretchable-height #f])])
    (create-button button/select-picture gp "选择..."
                   button/select-picture-callback)
    (create-button button/blend-cells gp "混合拼图"
                   button/blend-cells-callback)
    (create-button button/play-again gp "再来一次"
                   button/play-again-callback)))

这里在定义组框里的构件时，采用了和之前完全不同的方式。本来画风应该是这样的：

(set! button/select-picture
      (new button%
           [label "选择..."]
           [parent gp]
           [stretchable-width #t]
           [callback button/select-picture-callback]))

结果出来的买家秀却是用了一个”函数“调用就搞定了。这很好，更简洁了！

但是，这又不是一个函数。因为如果是函数，函数的定义应该是这样的：

;定义创建按钮的函数：
(define (create-button name p l cb)
  (set! name
        (new button%
             [label l]
             [parent p]
             [stretchable-width #t]
             [callback cb])))

但实际采用的定义方式是这样的：

;定义创建命令功能区按钮的宏：
(define-syntax-rule (create-button n p l prc)
  (set! n
        (new button%
             [label l]
             [parent p]
             [stretchable-width #t]
             [callback prc])))

从注释可以看出，这里创建一个宏来创建按钮，而不是定义一个函数来创建按钮。

26.1 宏

宏（macro）是一种语法表，它有一个关联的转换器（transformer），它将原有的表扩展（expand）为现有的表。换句话说，宏是 Racket 编译器的扩展。 racket/base 和 racket 的大部分句法表实际上是宏（比如：define——別惊讶——是的，define也是宏。），扩展成一小部分核心结构。

Racket 提供基于模式的宏，使得简单的转换易于实现和可靠使用。 Racket 还支持任意的宏转换器，它在 Racket 中实现，或在 Racket 中的宏扩展变体中实现。

由于Racket拥有强大而灵活的宏，使得它除了具有通用编程语言的能力外，还具有了无与伦比的语言创造能力。于是就出现了这样的画风——当使用其它语言遇到表达困难的时候，会寄希望于语言的维护者推出新的语言特性；当使用Racket语言遇到表达困难的时候，那就自己创造一个满足表达需求的语言就是了，没啥大不了的！

26.2 创建宏

基于模式的宏（pattern-based macro），是将任何与模式匹配的代码替换为使用与模式部分匹配的原始语法的一部分的扩展。

创建宏的最简单方法是使用define-syntax-rule：

(define-syntax-rule pattern template)

define-syntax-rule表绑定一个与单个模式匹配的宏。模式必须总是以一个开放的括号开头，后面跟着一个标识符。在初始标识符之后，其它标识符是宏模式变量（macro pattern variable），可以匹配宏使用中的任何内容。在模式之后是摸板（template），模板用于替代与模式匹配的表，模板中的模式变量的每个实例都替换为宏使用模式变量匹配的部分。

其实创建宏和定义函数从表面看起来方式差不多，但必须知道的是，函数传递的是函数参数（值引用），宏传递的是用于匹配并替换的模式变量（替换内容）。

因此，上边的以下代码：

(create-button button/select-picture gp "选择..."
button/select-picture-callback)

通过宏替换后得到的代码就是：

(set! button/select-picture
      (new button%
           [label "选择..."]
           [parent gp]
           [stretchable-width #t]
           [callback button/select-picture-callback]))

这就是熟悉的模样了。但是手工输入太繁琐了，把这种事交给计算机是明智之举。