python - 用于移植到 Python 代码的 Tcl 面向对象扩展

Question

我正在为 Linux 构建一个状态栏。我已经为插入不同的键盘时制作了一个模块:

set initialTeck [eval exec cat [glob /sys/bus/usb/devices/*/product]]
set initialTeck [string match *Truly* $initialTeck]

set initialKB [exec xkb-switch] 

dict set table samy 0 samy
dict set table samy 1 temy
dict set table temy 0 samy
dict set table temy 1 temy
dict set table gb   0 samy
dict set table gb   1 temy


proc init {} {
    variable initialTeck
    variable initialKB
    set currentTeck [eval exec cat [glob /sys/bus/usb/devices/*/product]]
    set currentTeck [string match *Truly* $currentTeck]
    set currentKB [exec xkb-switch]
    if {$initialTeck != $currentTeck} {
        set initialTeck $currentTeck
        nextKB $currentKB $initialTeck 
    }
}

proc nextKB { currentKB teck } {
    variable table
    exec [dict get $table $currentKB $teck]
}
while 1 {
init
after 1000

}

Temy 是我为“真正的人体工学键盘”制作的 .xkb 布局文件，同样是标准 GB 键盘的自定义 .xkb 布局。 Teck 存储 USB 端口的状态和哈希表的dict。

显然状态栏还有更多模块，我已经使用了命名空间，但随着项目变得越来越大，我决定采用 OOP。同时我需要将项目翻译成Python代码以供开发人员共享。

目前tcl对OOP有很多扩展； TclOO、Snit、Stooop、Incr-Tcl、Xotcl 等等。既然Incr-Tcl类似于C++，那么是否有类似于Python的Tcl扩展？

Answer 1

没有一个 Tcl OO 系统在风格上与 Python 完全相似；语言不同，思考问题的方式也不同。部分原因是语法(大多数 Tcl 程序员不太喜欢 _ 字符!)，但更重要的部分是 Tcl OO 系统无法在同样的方法:

• 它们不会对值进行垃圾收集，因为所有值都有可以存储为普通字符串的名称。
• 它们没有允许拦截基本操作的语言集成。

最终的结果是，Tcl 的面向对象系统都使对象的行为类似于 Tcl 命令(当然，这允许很大的灵 active )，而不是像 Tcl 值(往往是非常简单的透明数字、字符串、列表和字典) )。这使得 OO 风格与 Python 中的风格截然不同。

我想你可以假装最简单的水平，但是一旦你开始做任何复杂的事情，你就会发现差异。但更重要的是，我们需要选择一个更具体的例子来深入研究。

这里有一些 Python code :

class Shape:

    def __init__(self, x, y):
        self.x = x
        self.y = y
        self.description = "This shape has not been described yet"
        self.author = "Nobody has claimed to make this shape yet"

    def area(self):
        return self.x * self.y

    def perimeter(self):
        return 2 * self.x + 2 * self.y

    def describe(self, text):
        self.description = text

    def authorName(self, text):
        self.author = text

    def scaleSize(self, scale):
        self.x = self.x * scale
        self.y = self.y * scale

这是 TclOO 中的等效类定义(我最喜欢的):

oo::class create Shape {
    variable _x _y _description _author

    constructor {x y} {
        set _x $x
        set _y $y
        set _description "This shape has not been described yet"
        set _author "Nobody has claimed to make this shape yet"
    }

    method area {} {
        return [expr {$_x * $_y}]
    }

    method perimeter {} {
        return [expr {2 * $_x + 2 * $_y}]
    }

    method describe {text} {
        set _description $text
    }

    method authorName {text} {
        set _author $text
    }

    method scaleSize {scale} {
        set _x [expr {$_x * $scale}]
        set _y [expr {$_y * $scale}]
    }
}

除了明显的语法差异(例如，Tcl 喜欢大括号并将表达式放入 expr 命令中)之外，需要注意的主要事情是变量应该在类定义，并且不需要传递 self (它会自动显示为命令，[self])。