[squeak-dev] The Trunk: ShoutCore-laza.15.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 28 16:17:37 UTC 2010


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!




More information about the Squeak-dev mailing list