Smalltalk 技能

通过 MCP 执行 Smalltalk 代码并浏览实时的 Squeak/Cuis 镜像。

先决条件

首先获取 ClaudeSmalltalk 仓库：

git clone https://github.com/CorporateSmalltalkConsultingLtd/ClaudeSmalltalk.git

此仓库包含：

• 用于 Squeak 的 MCP 服务器代码 (MCP-Server-Squeak.st)
• 设置文档 (SQUEAK-SETUP.md、CLAWDBOT-SETUP.md)
• 此 Clawdbot 技能 (clawdbot/)

设置

1. 设置带有 MCP 服务器的 Squeak— 参见SQUEAK-SETUP.md
2. 配置 Clawdbot— 参见CLAWDBOT-SETUP.md

使用

# Check setup
python3 smalltalk.py --check

# Evaluate code
python3 smalltalk.py evaluate "3 factorial"
python3 smalltalk.py evaluate "Date today"

# Browse a class
python3 smalltalk.py browse OrderedCollection

# View method source (instance side)
python3 smalltalk.py method-source String asUppercase

# View method source (class side)
python3 smalltalk.py method-source "MCPServer class" version
python3 smalltalk.py method-source MCPServer version --class-side

# List classes (with optional prefix filter)
python3 smalltalk.py list-classes Collection

# Get class hierarchy
python3 smalltalk.py hierarchy OrderedCollection

# Get subclasses  
python3 smalltalk.py subclasses Collection

# List all categories
python3 smalltalk.py list-categories

# List classes in a category
python3 smalltalk.py classes-in-category "Collections-Sequenceable"

# Define a new class
python3 smalltalk.py define-class "Object subclass: #Counter instanceVariableNames: 'count' classVariableNames: '' poolDictionaries: '' category: 'MyApp'"

# Define a method
python3 smalltalk.py define-method Counter "increment
    count := (count ifNil: [0]) + 1.
    ^ count"

# Delete a method
python3 smalltalk.py delete-method Counter increment

# Delete a class
python3 smalltalk.py delete-class Counter

操作模式

游乐场（默认）

使用临时库存映像。守护进程停止时，更改将被丢弃。 用户说："load Smalltalk skill" 或 "invoke Smalltalk" ——无需特殊标志。

# Start playground daemon
nohup python3 smalltalk-daemon.py start > /tmp/daemon.log 2>&1 &

开发模式

用户提供自己的映像/更改文件对。更改在不同会话间持久保存。 用户说："load Smalltalk skill in dev mode with ~/MyProject.image"

# Start dev daemon with custom image
nohup python3 smalltalk-daemon.py start --dev --image ~/MyProject.image > /tmp/daemon.log 2>&1 &

开发模式设置SMALLTALK_DEV_MODE=1以便 MCP 服务器保留 .changes 文件 （而不是重定向到 /dev/null）。提供的映像文件旁必须有一个匹配的 .changes 文件。

常用命令

# Check status
python3 smalltalk.py --daemon-status

# Stop daemon
python3 smalltalk-daemon.py stop

# Restart in dev mode
python3 smalltalk-daemon.py restart --dev --image ~/MyProject.image

命令

环境变量

与Claude Code配合使用（MCP模式）

当Claude Code通过MCP连接了活跃的Smalltalk镜像时，explain-method和audit-comment可以使用预获取的源代码，而无需运行守护进程。可通过--source、--source-file或--source-stdin直接传递方法源代码：

# Inline source (fetched via MCP, passed on command line)
python3 smalltalk.py explain-method SmallInteger + --source "+ aNumber <primitive: 1> ^ super + aNumber"

# Source from a file
python3 smalltalk.py audit-comment Integer factorial --source-file /tmp/factorial.st

# Source piped via stdin
echo "printString ^ self printStringLimitedTo: 50000" | python3 smalltalk.py explain-method Object printString --source-stdin

三个源标志是互斥的。当没有提供任何标志时，守护进程会像以前一样被使用。

生成SUnit测试

该generate-sunit命令使用LLM为Smalltalk方法生成SUnit测试用例，并直接将其归档到正在运行的映像中：

# Generate tests for a single method
python3 smalltalk.py generate-sunit "String>>asUppercase"

# Generate tests for multiple methods
python3 smalltalk.py generate-sunit "Random>>next" "Random>>nextInt:" "Random>>seed:"

# Generate tests for an entire class (all instance methods)
python3 smalltalk.py generate-sunit "OrderedCollection"

# Generate tests for class-side methods
python3 smalltalk.py generate-sunit "Date class>>today"

# Custom test class name
python3 smalltalk.py generate-sunit "String>>asUppercase" --class-name MyStringTests

# Overwrite existing test class
python3 smalltalk.py generate-sunit "String>>asUppercase" --force

# Run the generated tests
python3 smalltalk.py evaluate "StringGeneratedTest buildSuite run printString"

生成的TestCase使用标准的SUnit断言（assert:、assert:equals:、deny:、should:raise:），并被归档到GeneratedSUnit-*类别中。

注意事项

• 在Linux服务器上进行无头操作需要xvfb
• 使用Squeak 6.0 MCP服务器（如果显示可用，GUI保持响应）
• saveImage为安全起见，已特意排除
• 需要MCPServer版本7+（v7版本增加了类端方法支持）
• 游乐场模式：临时性，.changes文件指向/dev/null
• 开发模式：持久性，保留.changes文件，需要--dev --image PATH参数