The Trunk: ShoutCore-laza.15.mcz

Alexander Lazarević uploaded a new version of ShoutCore to project The Trunk:
http://source.squeak.org/trunk/ShoutCore-laza.15.mcz

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

Name: ShoutCore-laza.15
Author: laza
Time: 28 April 2010, 6:17:22.553 pm
UUID: 6bf30b06-94e6-410a-b3fe-fb8e3e9e82ff
Ancestors: ShoutCore-ul.14

Make Shout parse source with respect to "allow underscore assignments/selectors"

=============== Diff against ShoutCore-ul.14 ===============

Item was changed:
  ----- Method: SHParserST80>>isAssignment (in category 'token testing') -----
  isAssignment
+ ^self isAnsiAssignment or: [self allowUnderscoreAssignments and: [currentToken = '_']]!
- ^currentToken = ':=' or: [currentToken = '_']!

Item was added:
+ ----- Method: SHParserST80>>allowUnderscoreSelectors (in category 'private') -----
+ allowUnderscoreSelectors
+ "Query class + preference"
+ ^(classOrMetaClass ifNotNil: [:c | c allowUnderscoreSelectors])
+ ifNil: [Scanner prefAllowUnderscoreSelectors]!

Item was added:
+ ----- Method: SHParserST80>>allowUnderscoreAssignments (in category 'private') -----
+ allowUnderscoreAssignments
+ "Query class + preference"
+ ^(classOrMetaClass ifNotNil: [:c | c allowUnderscoreAssignments])
+ ifNil: [Scanner prefAllowUnderscoreAssignments]!

Item was changed:
  ----- Method: SHParserST80>>scanIdentifier (in category 'scan') -----
  scanIdentifier
  | c start |
  start := sourcePosition.
+ [(c := self nextChar) isAlphaNumeric or: [self allowUnderscoreSelectors and: [c == $_]]] whileTrue: [].
- [(c := self nextChar) isAlphaNumeric] whileTrue: [].
  (c == $: and: [(self isSelectorCharacter: self peekChar) not])
  ifTrue: [self nextChar].
  currentToken := source copyFrom: start to: sourcePosition - 1.
  currentTokenSourcePosition := start!