在PltScheme文件系统中使用_bitmask

Question

这是plt-scheme包装器库的一部分：

(define InputMask

  (_bitmask '(NoEventMask =            #x00000000

            KeyPressMask =             #x00000001

            KeyReleaseMask =           #x00000002

            ...

            OwnerGrabButtonMask =      #x01000000)

      _long))

问题是我不知道如何访问位掩码(或枚举)中的字段。例如，如何获取KeyPressMask值？

Answer 1

添加ctype很简单:要创建一个新的ctype，需要提供一个现有的ctype作为基础，并提供两个函数--一个用于将任何内容转换为现有类型，另一个用于以另一种方式转换。

现在，_bitmask类型就是这样做的--它构建在_int之上(但在本例中，它基于_long)，两个转换函数将一个符号列表转换为一个整数，并将一个整数转换为一个符号列表。一旦使用了这样的类型，您就不需要知道KeyPressMask的值--您只需要知道可以将'(KeyPressMask)作为InputMask输入传递给外部函数，它将被转换为适当的数字；并且您还知道，当您从具有InputMask输出的函数获得结果值时，它将是一个可能包含KeyPressMask的符号列表。底线是，在Scheme方面，您不能处理数字--只能处理符号列表。

如果您出于某种模糊的原因确实需要访问这些值，那么您可以用其他方式构建您自己的ctype --使用make-ctype (如上所述)应该非常简单。