使用GNU Smalltalk解析.dat文件时出现语法解析错误

错误根源 #

错误信息shapes.dat:1: parse error, expected '(' or '[' or '#' or '{'表明GNU Smalltalk正在尝试将shapes.dat当作Smalltalk源代码文件解析，而非让你的readShapesFromFile:方法将其作为数据文件读取，这是触发错误的核心原因。

修复步骤 #

1. 修正运行命令 #

确保你运行的是包含ShapeApp类定义的Smalltalk脚本文件，而非直接运行shapes.dat：

• 假设你的类代码保存在shapeapp.st中，正确运行命令为：

  gst shapeapp.st
  

• 切勿执行gst shapes.dat，这会让解释器误将数据文件当作代码解析，触发语法错误。

2. 修复异常处理代码 #

你当前的异常捕获逻辑存在语法错误（注释掉了on:部分），修正后的代码如下：

ShapeApp >> readShapesFromFile: fileName [
        | fileStream lines vec |
        vec := OrderedCollection new.
        [fileStream := FileStream open: fileName mode: #read]
            on: FileDoesNotExistException
            do: [:ex | Transcript show: 'Error: File does not exist'; cr. ^vec].

        lines := fileStream lines.
        lines do: [:line | 
               
                | tokens name shapeType radius height length width smallRadius bigRadius |
                tokens := line findTokens: ' '.
                name := tokens first.
                shapeType := tokens second.
                
                shapeType caseOf: {
                    ['sphere'] -> [
                        radius := tokens third asNumber.
                        vec add: (Sphere newWithName: name radius: radius)
                    ].
                    ['cylinder'] -> [
                        radius := tokens third asNumber.
                        height := tokens fourth asNumber.
                        vec add: (Cylinder newWithName: name radius: radius height: height)
                    ].
                    ['torus'] -> [
                        smallRadius := tokens third asNumber.
                        bigRadius := tokens fourth asNumber.
                        vec add: (Torus newWithName: name smallRadius: smallRadius bigRadius: bigRadius)
                    ].
                    ['box'] -> [
                        length := tokens third asNumber.
                        width := tokens fourth asNumber.
                        height := tokens fifth asNumber.
                        vec add: (Box newWithName: name length: length width: width height: height)
                    ]
                } otherwise: [
                    Transcript show: 'Error: Unknown shape type'; cr.
                ]
            ].

        fileStream close.
        ^vec
    ]

3. 验证文件路径 #

确保shapes.dat与你的Smalltalk脚本文件位于同一目录下，或者在readShapesFromFile:方法中使用绝对路径（例如'/home/user/shapes.dat'）。

4. 确认类定义完整性 #

确保Sphere、Cylinder、Torus、Box这些类的newWithName:系列构造方法已正确定义，避免后续运行时出现实例化错误。

内容的提问来源于stack exchange，提问作者anirudh raghavan