Smalltalk 输入/输出

Question

我在 Smalltalk 方面遇到了麻烦。我试图用从文件中读取的数字填充一个数组，但它似乎不起作用。我尝试了很多选择，我希望有人能向我解释我做错了什么。

 Object subclass: #MyStack
        instanceVariableNames:'anArray aStack'
        classVariableNames:''
        poolDictionaries:''

!
MyStack class comment: 'Creates a Stack Class.'
!

!
MyStack methodsFor: 'initialize Stack'
!

new "instance creation"
        ^ super new.
!
init "initialization"
        anArray := Array new: 32.
        aStack := 0.
! !

!MyStack methodsFor: 'methods for stacks' !


pop "Removes the top entry from the stack"
    | item |
    item := anArray at: aStack.
    aStack := aStack - 1.
!

push: x "Pushes a new entry onto the stack"
    aStack := aStack + 1.
    anArray at:aStack put:x.
!

top "Returns the current top of the stack"
        ^anArray at: aStack.
!

empty "True if the stack is empty"
        ^aStack = 0.
!

full "True if the stack is full"
        ^aStack = 32.
!

printOn: aStream "Prints entire stack one entry per line, starting the top entry"
    aStream show: 'Stack:'.
    aStack to:1 by:-1 do:[:i |(anArray at:i) printOn:aStream. ].
    aStream show: ''
! !
"----------------------------------------------------------------------------------"
Object subclass: #IOExample
  instanceVariableNames: 'input output'
  classVariableNames: ''
  poolDictionaries: ''
!
IOExample class comment: '
 basic I/O.
'
!

!
IOExample methodsFor: 'initialize'
!
new
  ^ super new.

!
init
  [ input := FileSelectionBrowser open asFilename readStream. ]
    on: Error
    do: [ :exception |
      Dialog warn: 'Unable to open file'.
      exception retry.
    ].
  [ output := FileSelectionBrowser open asFilename writeStream. ]
    on: Error
    do: [ :exception |
      Dialog warn: 'Unable to open file'.
      exception retry.
    ].

! !

!
IOExample methodsFor: 'copy input to output turning :: into :'
!
copy
  | data lookAhead theStack myStack|
  [ input atEnd ] whileFalse: [

    data := input next.
    (data isKindOf: Integer)
      ifTrue: [
        (input atEnd) ifFalse: [
        "myStack push: data."
        lookAhead = input peek.
        (lookAhead asCharacter isDigit)
            ifTrue: [
            ]              
        ].
      ].  
    output show: myStack.



  ].
  input close.
  output close.
! !

Answer 1

您是否尝试运行此代码？如果您这样做了，我很惊讶您没有收到以下 #2 的编译警告。

#copy 有很多问题（除了我不明白它到底想做什么）...

1. 首先，您似乎希望数据是数字：data isKindOf: Integer。但后来您将其视为字符流：lookAhead asCharacter isDigit。如果第一个条件为真以使您超过该点，则第二个条件永远不可能，因为您将匹配 [0-9]，这不是数字的 ASCII 值。
2. lookAhead = input peek。在这里，您将未初始化的 lookAhead (nil) 与偷看的值进行比较，然后丢弃结果。我猜你的意思是lookAhead := input peek。
3. 然后是空的内部条件ifTrue: [ ]。你想在那里做什么？
4. 然后是奇怪的协议名称，“将输入复制到输出，将 :: 变为 :”。这是什么意思，这与在流之间复制数字有什么关系？

Answer 2

贾斯汀，让我尝试在 MyStack 的课程上帮助您，并根据您的示例中的任何 cmets 推迟另一个答案。

我已将您的代码分成片段并附加了我的 cmets。

---

片段 A：

Object subclass: #MyStack
    instanceVariableNames:'anArray aStack'
    classVariableNames:''
    poolDictionaries:''

A 的评论：

Smalltalker 会使用实例变量名称而没有不确定的文章 a 或 an

Object subclass: #MyStack
    instanceVariableNames:'array stack'
    classVariableNames:''
    poolDictionaries:''

---

片段 B：

MyStack class comment: 'Creates a Stack Class.'

对 B 的评论：

这很奇怪。我本来会期待这个（没有class）：

MyStack comment: 'Creates a Stack Class.'

---

片段 C：

MyStack methodsFor: 'initialize Stack'

new "instance creation"
    ^ super new.

对 C:* 的评论

这段代码将new 放在类的实例端，这没有任何意义，因为您通常将new 发送到类而不是它的实例。正确的形式需要加class：

MyStack class methodsFor: 'initialize Stack'

new
    ^super new.

您忘记发送初始化方法（但是，请参阅下面的片段 D）

new
    ^super new init.

---

片段 D：

init "initialization"
    anArray := Array new: 32.
    aStack := 0.

D 的评论：

在 Smalltalk 中人们使用选择器 initialize 以便它可以先发送 super

initialize
    super initialize.
    array := Array new: 32.
    stack := 0.

请注意，此更改还需要将 new 写为

new
    ^super new initialize.

但是，如果您的方言已经默认发送initialize 方法，您应该从您的类中删除new 的实现。

---

片段 E：

pop "Removes the top entry from the stack"
    | item |
    item := anArray at: aStack.
    aStack := aStack - 1.

对 E 的评论：

你忘了回答刚刚弹出的item

pop
    | item |
    item := array at: stack.
    stack := stack - 1.
    ^item

---

片段 F：

push: x "Pushes a new entry onto the stack"
    aStack := aStack + 1.
    anArray at:aStack put:x.

对 F 的评论：

没关系。但是请注意，堆栈将拒绝推送任何超过 32 限制的项目。

push: x
    stack := stack + 1.
    array at: stack put: x.

---

片段 G：

top "Returns the current top of the stack"
    ^anArray at: aStack.

empty "True if the stack is empty"
    ^aStack = 0.

full "True if the stack is full"
    ^aStack = 32.

对 G 的评论：

这些也可以。但是，empty 更合适的名称应该是 isEmpty，因为所有集合都理解这个多态消息。同样，full 的推荐选择器将是 isFull：

top
    ^array at: aStack.

isEmpty
    ^stack = 0.

isFull
    ^stack = 32.

另请注意，isFull 重复了您在初始化代码中使用的魔法常数 32。这不是一个好主意，因为如果您将来改变主意并决定将 32 更改为 64，您将不得不修改两种方法，而不仅仅是一种。您可以通过这种方式消除这种重复

isFull
    ^stack = array size.

---

片段 H：

printOn: aStream
    "Prints entire stack one entry per line, starting the top entry"
    aStream show: 'Stack:'.
    aStack to:1 by:-1 do:[:i |(anArray at:i) printOn:aStream. ].
    aStream show: ''

对 H 的评论：

这段代码的最后一行是多余的，我会去掉它。但是，您可能希望用空格将每个项目与下一个项目分开

printOn: aStream
    stream show: 'Stack:'.
    stack to: 1 by: -1 do:[:i |
        aStream space.
        (array at: i) printOn: aStream].