Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.99.mcz
==================== Summary ====================
Name: Compiler-nice.99 Author: nice Time: 27 November 2009, 11:14:24 am UUID: ddf7600a-55a4-4d6f-964a-14a5301a415d Ancestors: Compiler-nice.98
rename scanLitByte -> scanLitByteVec as suggested by Eliot
=============== Diff against Compiler-nice.98 ===============
Item was changed: ----- Method: Scanner>>xLitQuote (in category 'multi-character scans') ----- xLitQuote "Symbols and vectors: #(1 (4 5) 2 3) #ifTrue:ifFalse: #'abc'." | start | start := mark. self step. "litQuote" self scanToken. tokenType = #leftParenthesis ifTrue: [self scanToken; scanLitVec. mark := start + 1. tokenType == #doIt ifTrue: [self offEnd: 'Unmatched parenthesis']] ifFalse: [tokenType = #leftBracket + ifTrue: [self scanToken; scanLitByteVec. - ifTrue: [self scanToken; scanLitByte. mark := start + 1. tokenType == #doIt ifTrue: [self offEnd: 'Unmatched bracket']] ifFalse: [(#(#word #keyword #colon ) includes: tokenType) ifTrue: [self scanLitWord] ifFalse: [tokenType == #literal ifTrue: [token isSymbol ifTrue: ["##word" token := token "May want to move toward ANSI here "]] ifFalse: [tokenType == #string ifTrue: [token := token asSymbol]]]]]. mark := start. tokenType := #literal
"#(Pen) #Pen #'Pen' ##Pen ###Pen "!
Item was added: + ----- Method: Scanner>>scanLitByteVec (in category 'expression types') ----- + scanLitByteVec + | stream | + stream := (ByteArray new: 16) writeStream. + [ tokenType = #rightBracket or: [ tokenType = #doIt ] ] whileFalse: [ + tokenType = #word + ifTrue: [ self scanLitWord ]. + (token isInteger and: [ token between: 0 and: 255 ]) + ifFalse: [ ^ self offEnd: '8-bit integer or right bracket expected' ]. + stream nextPut: token. + self scanToken ]. + token := stream contents!
Item was removed: - ----- Method: Scanner>>scanLitByte (in category 'expression types') ----- - scanLitByte - | stream | - stream := (ByteArray new: 16) writeStream. - [ tokenType = #rightBracket or: [ tokenType = #doIt ] ] whileFalse: [ - tokenType = #word - ifTrue: [ self scanLitWord ]. - (token isInteger and: [ token between: 0 and: 255 ]) - ifFalse: [ ^ self offEnd: '8-bit integer or right bracket expected' ]. - stream nextPut: token. - self scanToken ]. - token := stream contents!
squeak-dev@lists.squeakfoundation.org