Tcl 和记录（结构）

发布于 2024-10-28 23:30:19 字数 235 浏览 0 评论 0原文

TCLLIB 中的 struct::record 包提供了模拟记录类型的方法。但记录实例是当前命名空间中的命令，而不是当前作用域中的变量。这意味着记录实例没有垃圾收集。将记录实例的名称传递给过程意味着通过引用而不是通过值传递它，可以将记录的字符串表示形式作为参数传递，但它需要在过程中创建另一个实例，配置它并手动删除，这很烦人。我想知道这个设计背后的基本原理。一个简单的替代方案是提供 Lisp 风格的记录 - 一组构造、访问和修改过程并将记录表示为列表。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

听闻余生 2024-11-04 23:30:19

在我看来，struct::record 实现是一个 oo 风格的实现。如果您正在寻找数据风格的实现（例如 lisp），其中命令与数据完全分离，您可能需要查看 dict 命令。

我会注意到，oo 风格和数据风格确实不是很好的描述，但它们是我能立即想到的最好的描述。

回复收藏 0 原文

一花一树开 2024-11-04 23:30:19

你肯定可以“用 Lisp 方式”做到这一点。

 proc mkFooBarRecord {foo bar} {
     # Keep index #0 for a "type" for easier debugging
     return [list "fooBarRecord" $foo $bar]
 }
 proc getFoo {fooBarRecord} {
     if {[lindex $fooBarRecord 0] ne "fooBarRecord"} {error "not fooBarRecord"}
     return [lindex $fooBarRecord 1]
 }
 # Etc.

这效果很好。（用C编写，也可以使其更高效。）请注意，作为通用数据结构，似乎很多人更喜欢Tcl 8.5的字典。使用它们的方法有很多；这里有一个：

 proc mkFooBarRecord {foo bar} {
     return [dict create "type" fooBarRecord "foo" $foo "bar" $bar]
 }
 proc getFoo {fooBarRecord} {
     dict with fooBarRecord {
         if {$type ne "fooBarRecord"} {error "not fooBarRecord"}
         return $foo
     }
 }

对于整个结构与对象的争论，Tcl 倾向于将对象视为带有操作的状态（导致自然表示为命令，一个相当重量级的概念），而结构是纯值（因此是轻量级的）。在写了相当多的文章之后，我真的不知道一般来说什么是最好的；我根据具体情况进行工作。如果您要使用“结构”，还请考虑是否应该拥有表示跨多个结构的字段的集合（相当于在数据库中使用按列存储而不是按行存储），因为这可以在某些情况下实现更有效的处理案例。

还可以考虑使用数据库； SQLite 与 Tcl 集成得非常好，相当高效，并且如果您不想处理磁盘文件，还支持内存数据库。

You most certainly can do it “the Lisp way”.

 proc mkFooBarRecord {foo bar} {
     # Keep index #0 for a "type" for easier debugging
     return [list "fooBarRecord" $foo $bar]
 }
 proc getFoo {fooBarRecord} {
     if {[lindex $fooBarRecord 0] ne "fooBarRecord"} {error "not fooBarRecord"}
     return [lindex $fooBarRecord 1]
 }
 # Etc.

That works quite well. (Write it in C and you can make it more efficient too.) Mind you, as a generic data structure, it seems that many people prefer Tcl 8.5's dictionaries. There are many ways to use them; here's one:

 proc mkFooBarRecord {foo bar} {
     return [dict create "type" fooBarRecord "foo" $foo "bar" $bar]
 }
 proc getFoo {fooBarRecord} {
     dict with fooBarRecord {
         if {$type ne "fooBarRecord"} {error "not fooBarRecord"}
         return $foo
     }
 }

As for the whole structures versus objects debate, Tcl tends to regard objects as state with operations (leading to a natural presentation as a command, a fairly heavyweight concept) whereas structures are pure values (and so lightweight). Having written a fair chunk on this, I really don't know what's best in general; I work on a case-by-case basis. If you are going with “structures”, also consider whether you should have collections that represent fields across many structures (equivalent to using column-wise storage instead of row-wise storage in a database) as that can lead to more efficient handling in some cases.

Also consider using a database; SQLite integrates extremely well with Tcl, is reasonably efficient, and supports in-memory databases if you don't want to futz around with disk files.

回复收藏 0 原文