Content-Type: text/plain; charset=us-ascii Content-Description: message body text Content-Transfer-Encoding: 7bit
I think it is annoying when I try to accept a method like
transistor | flip| flip := true. flop := false.
and let the Parser insert the temporary variable flop and get this:
transistor | flipflop | flip := true. flop := false.
The included fileIn changes declareTempAndPaste: to check if there is a whitespace between the last declared variable and the trailing | character.
Alex.
Content-Type: text/plain Content-Description: changes declareTempAndPaste: to check if
trailing | character Content-Disposition: inline; filename="Parser-declareTempAndPaste.st" Content-Transfer-Encoding: 7bit
'From Squeak 2.5 of August 6, 1999 [latest update: #1499] on 1 October 1999 at 8:18:46 pm'!
!Parser methodsFor: 'error correction' stamp: 'laza 10/1/1999 20:18'! declareTempAndPaste: name | insertion tabbed | (requestor text string at: tempsMark) = $| ifTrue: "Paste it before the second vertical bar" [insertion _ name, ' '. (requestor text string at: tempsMark-1) isSeparator ifFalse: [insertion _ ' ', insertion]. tempsMark _ tempsMark + (self substituteWord: insertion wordInterval: (tempsMark to: tempsMark-1) offset: 0)] ifFalse: "No bars - insert some with CR, tab" [insertion _ '| ' , name , ' | '. tabbed _ tempsMark > 1 and: [(requestor text string at: tempsMark-1) = Character tab]. tabbed ifTrue: [insertion _ insertion , (String with: Character tab)]. tempsMark _ tempsMark + (self substituteWord: insertion wordInterval: (tempsMark to: tempsMark-1) offset: 0) - (tabbed ifTrue: [3] ifFalse: [2])]. ^ encoder reallyBind: name! !
Content-Type: text/plain; charset=us-ascii Content-Description: .signature Content-Transfer-Encoding: 7bit
squeak-dev@lists.squeakfoundation.org