The Trunk: ShoutCore-nice.21.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: ShoutCore-nice.21.mcz

commits-2
Nicolas Cellier uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-nice.21.mcz

==================== Summary ====================

Name: ShoutCore-nice.21
Author: nice
Time: 10 October 2010, 9:31:39.601 pm
UUID: 50de31a8-0349-4c4a-b653-1ae8d1485a5f
Ancestors: ShoutCore-nice.20

Now that we now that $- is (almost) a normal binary selector character (it also occurs in Number literals), let's do more simplifications.

=============== Diff against ShoutCore-nice.20 ===============

Item was changed:
  ----- Method: SHParserST80>>scanBinary (in category 'scan') -----
  scanBinary
  | c d |
  c := self currentChar.
  currentTokenSourcePosition := sourcePosition.
  currentToken := c asString.
  d := self nextChar.
+ ((self isSelectorCharacter: c) or: [c == $:]) ifFalse: [^currentToken].
- ((self isSelectorCharacter: c) or: [c == $: or: [c == $-]]) ifFalse: [^currentToken].
  (c == $: and: [d == $=])
  ifTrue: [" := assignment"
  currentToken := currentToken , d asString.
  self nextChar.
  ^currentToken].
  c == $| ifTrue:["| cannot precede a longer token" ^currentToken].
  [self isSelectorCharacter: d]
  whileTrue: [
  currentToken := currentToken , d asString.
  d := self nextChar].
  ^currentToken!