There is (still?) an allowUnderscoreAssignment preference setting in the compiler (lowercase) category from Parser>>initialize?<br><br>Alex<br><br><div class="gmail_quote">On Wed, Mar 24, 2010 at 09:25, <span dir="ltr"><<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Andreas Raab uploaded a new version of Compiler to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Compiler-ar.137.mcz" target="_blank">http://source.squeak.org/trunk/Compiler-ar.137.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Compiler-ar.137<br>
Author: ar<br>
Time: 24 March 2010, 1:25:23.067 am<br>
UUID: 090fc365-fe3c-6741-a731-3222d6ab6afa<br>
Ancestors: Compiler-nice.136<br>
<br>
Underscore assignments and underscore selector preferences and implementation. The defaults are set to be compatible with past usage, i.e., allowUnderscoreAssignment is true and allowUnderscoreSelectors is false. Might consider changing this after 4.1.<br>
<br>
=============== Diff against Compiler-nice.136 ===============<br>
<br>
Item was added:<br>
+ ----- Method: Scanner>>allowUnderscoreSelectors (in category 'private') -----<br>
+ allowUnderscoreSelectors<br>
+ "Query preference"<br>
+ ^self class prefAllowUnderscoreSelectors!<br>
<br>
Item was changed:<br>
----- Method: Scanner class>>initialize (in category 'initialization') -----<br>
initialize<br>
| newTable |<br>
newTable := Array new: 256 withAll: #xBinary. "default"<br>
newTable atAll: #(9 10 12 13 32 ) put: #xDelimiter. "tab lf ff cr space"<br>
newTable atAll: ($0 asciiValue to: $9 asciiValue) put: #xDigit.<br>
<br>
1 to: 255<br>
do: [:index |<br>
(Character value: index) isLetter<br>
ifTrue: [newTable at: index put: #xLetter]].<br>
<br>
newTable at: 30 put: #doIt.<br>
newTable at: $" asciiValue put: #xDoubleQuote.<br>
newTable at: $# asciiValue put: #xLitQuote.<br>
newTable at: $$ asciiValue put: #xDollar.<br>
newTable at: $' asciiValue put: #xSingleQuote.<br>
newTable at: $: asciiValue put: #xColon.<br>
newTable at: $( asciiValue put: #leftParenthesis.<br>
newTable at: $) asciiValue put: #rightParenthesis.<br>
newTable at: $. asciiValue put: #period.<br>
newTable at: $; asciiValue put: #semicolon.<br>
newTable at: $[ asciiValue put: #leftBracket.<br>
newTable at: $] asciiValue put: #rightBracket.<br>
newTable at: ${ asciiValue put: #leftBrace.<br>
newTable at: $} asciiValue put: #rightBrace.<br>
newTable at: $^ asciiValue put: #upArrow.<br>
+ newTable at: $_ asciiValue put: #xUnderscore.<br>
- newTable at: $_ asciiValue put: #leftArrow.<br>
newTable at: $| asciiValue put: #verticalBar.<br>
TypeTable := newTable "bon voyage!!"<br>
<br>
"Scanner initialize"!<br>
<br>
Item was added:<br>
+ ----- Method: Parser>>allowUnderscoreAssignments (in category 'private') -----<br>
+ allowUnderscoreAssignments<br>
+ "Query class + preference"<br>
+ ^encoder classEncoding allowUnderscoreAssignments<br>
+ ifNil:[super allowUnderscoreAssignments]!<br>
<br>
Item was added:<br>
+ ----- Method: Scanner>>allowUnderscoreAssignments (in category 'private') -----<br>
+ allowUnderscoreAssignments<br>
+ "Query preference"<br>
+ ^self class prefAllowUnderscoreAssignments!<br>
<br>
Item was added:<br>
+ ----- Method: Scanner class>>prefAllowUnderscoreAssignments: (in category 'preferences') -----<br>
+ prefAllowUnderscoreAssignments: aBool<br>
+ "Accessor for the system-wide preference"<br>
+ AllowUnderscoreAssignments := aBool!<br>
<br>
Item was added:<br>
+ ----- Method: Scanner class>>prefAllowUnderscoreAssignments (in category 'preferences') -----<br>
+ prefAllowUnderscoreAssignments<br>
+ "Accessor for the system-wide preference"<br>
+ <preference: 'Allow underscore assignments'<br>
+ category: 'Compiler'<br>
+ description: 'When true, underscore can be used as assignment operator'<br>
+ type: #Boolean><br>
+ ^AllowUnderscoreAssignments ifNil:[true]!<br>
<br>
Item was added:<br>
+ ----- Method: Scanner class>>prefAllowUnderscoreSelectors: (in category 'preferences') -----<br>
+ prefAllowUnderscoreSelectors: aBool<br>
+ "Accessor for the system-wide preference"<br>
+ AllowUnderscoreSelectors := aBool!<br>
<br>
Item was changed:<br>
----- Method: Scanner>>xUnderscore (in category 'multi-character scans') -----<br>
xUnderscore<br>
+ self allowUnderscoreAssignments ifTrue:[ | type |<br>
+ "Figure out if x _foo (no space between _ and foo)<br>
+ should be a selector or assignment"<br>
+ (((type := self typeTableAt: aheadChar) == #xLetter<br>
+ or:[type == #xDigit or:[type == #xUnderscore]])<br>
+ and:[self allowUnderscoreSelectors]) ifFalse:[<br>
+ self step.<br>
+ tokenType := #leftArrow.<br>
+ ^token := #':='<br>
+ ].<br>
+ ].<br>
+ self allowUnderscoreSelectors ifTrue:[^self xLetter].<br>
+ ^self xIllegal<br>
+ !<br>
- Preferences allowUnderscoreAssignment ifFalse:[^self xIllegal].<br>
- self step.<br>
- tokenType := #leftArrow.<br>
- ^token := #':='!<br>
<br>
Item was changed:<br>
----- Method: Scanner>>xLetter (in category 'multi-character scans') -----<br>
xLetter<br>
"Form a word or keyword."<br>
<br>
| type |<br>
buffer reset.<br>
+ [(type := self typeTableAt: hereChar) == #xLetter<br>
+ or: [type == #xDigit<br>
+ or: [type == #xUnderscore and:[self allowUnderscoreSelectors]]]] whileTrue:<br>
- [(type := self typeTableAt: hereChar) == #xLetter or: [type == #xDigit]]<br>
- whileTrue:<br>
["open code step for speed"<br>
buffer nextPut: hereChar.<br>
hereChar := aheadChar.<br>
aheadChar := source atEnd<br>
ifTrue: [30 asCharacter "doit"]<br>
ifFalse: [source next]].<br>
tokenType := (type == #colon or: [type == #xColon and: [aheadChar ~~ $=]])<br>
ifTrue:<br>
[buffer nextPut: self step.<br>
"Allow any number of embedded colons in literal symbols"<br>
[(self typeTableAt: hereChar) == #xColon] whileTrue:<br>
[buffer nextPut: self step].<br>
#keyword]<br>
ifFalse:<br>
[type == #leftParenthesis<br>
ifTrue:<br>
[buffer nextPut: self step; nextPut: $).<br>
#positionalMessage]<br>
ifFalse:[#word]].<br>
token := buffer contents!<br>
<br>
Item was changed:<br>
Object subclass: #Scanner<br>
instanceVariableNames: 'source mark hereChar aheadChar token tokenType currentComment buffer typeTable'<br>
+ classVariableNames: 'AllowUnderscoreAssignments AllowUnderscoreSelectors TypeTable'<br>
- classVariableNames: 'TypeTable'<br>
poolDictionaries: ''<br>
category: 'Compiler-Kernel'!<br>
<br>
!Scanner commentStamp: '<historical>' prior: 0!<br>
I scan a string or text, picking out Smalltalk syntactic tokens. I look one character ahead. I put each token found into the instance variable, token, and its type (a Symbol) into the variable, tokenType. At the end of the input stream, I pretend to see an endless sequence of special characters called doits.!<br>
<br>
Item was added:<br>
+ ----- Method: Scanner class>>prefAllowUnderscoreSelectors (in category 'preferences') -----<br>
+ prefAllowUnderscoreSelectors<br>
+ "Accessor for the system-wide preference"<br>
+ <preference: 'Allow underscore selectors'<br>
+ category: 'Compiler'<br>
+ description: 'When true, underscore can be used in selectors and varibable names'<br>
+ type: #Boolean><br>
+ ^AllowUnderscoreSelectors ifNil:[false]!<br>
<br>
Item was added:<br>
+ ----- Method: Parser>>allowUnderscoreSelectors (in category 'private') -----<br>
+ allowUnderscoreSelectors<br>
+ "Query class + preference"<br>
+ ^encoder classEncoding allowUnderscoreSelectors<br>
+ ifNil:[super allowUnderscoreSelectors]!<br>
<br>
<br>
</blockquote></div><br>