Squeak-dev November 2009

squeak-dev@lists.squeakfoundation.org

89 participants
351 discussions

Daily Commit Log
by commits＠source.squeak.org 28 Nov '09

28 Nov '09

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2009-November/001884.h… Name: Morphic-kb.251 Ancestors: Morphic-ar.250 fix: TheMainWorldDockingBar picks shows new project subclasses automatically in its New Project menu. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001885.h… Name: Collections-nice.213 Ancestors: Collections-ar.212 Support for literal ByteArray #[1 2 3] ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001886.h… Name: Compiler-nice.98 Ancestors: Compiler-cwp.97 Add support for literal ByteArray #[1 2 3] ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001887.h… Name: Morphic-dtl.252 Ancestors: Morphic-kb.251 Add instance methods originally from class side of Project ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001888.h… Name: System-dtl.176 Ancestors: System-nice.175 Remove remaining direct Morphic dependencies from class side of Project ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001889.h… Name: KernelTests-nice.112 Ancestors: KernelTests-ul.111 Grab a few tests from Pharo ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001890.h… Name: System-dtl.177 Ancestors: System-dtl.176 Bug fix - Change Project class>>deletingProject to use isKindOf: Project. Still need to factor out ProjectViewMorph dependencies in this method. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001891.h… Name: Kernel-nice.306 Ancestors: Kernel-ul.305 Speed up highBit and lowBit according to http://bugs.squeak.org/view.php?id=7113 This is usefull for algorithms like DSA. This version has a cache of known result for bytes. Prerequisite: ByteArray literals #[] { [100000 timesRepeat: [123456798 highBit]] timeToRun. [100000 timesRepeat: [122 highBit]] timeToRun. [100000 timesRepeat: [12 highBit]] timeToRun. [100000 timesRepeat: [3950591 lowBit]] timeToRun. [100000 timesRepeat: [3950592 lowBit]] timeToRun. [100000 timesRepeat: [8 lowBit]] timeToRun. [100000 timesRepeat: [(-1073741824) lowBit]] timeToRun. } "OLD" #(186 139 138 92 165 134 1965) / "NEW" #(115 96 96 83 97 79 743) "SPEED UP FACTOR" collect: [:e | e roundTo: 0.1] -> #(1.6 1.4 1.4 1.1 1.7 1.7 2.6) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001892.h… Name: Multilingual-nice.64 Ancestors: Multilingual-nice.63 Get rid of some ugly getSystemAttribute: 1002 There is an explicitely named message #osVersion to just do that The named one seems a bit more future proof to me than assembleur like hardcoded values ==== ERROR === Error: subscript is out of bounds: 0 27 November 2009 9:22:48 pm VM: unix - a SmalltalkImage Image: Squeak3.7 [latest update: #5989] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak Array(Object)>>error: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: aString: 'subscript is out of bounds: 0' Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>errorSubscriptBounds: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>at: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Parser(Scanner)>>scanToken Receiver: a Parser Arguments and temporary variables: Receiver's instance variables: source: a ReadStream mark: 21 hereChar: $ aheadChar: $ token: 'supportedLanguages' tokenType: #xDelimiter currentComment: an OrderedCollection('Return the languages that this class supp...etc... buffer: a WriteStream typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: 'supportedLanguages' hereType: #word hereMark: 1 hereEnd: 18 prevMark: 1 prevEnd: nil encoder: nil requestor: nil parseNode: nil failBlock: [] in Parser>>initPattern:notifying:return: {[^ nil]} requestorOffset: 0 tempsMark: nil doitFlag: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Parser(Scanner)>>scanToken - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Parser(Scanner)>>xDoubleQuote Parser(Scanner)>>scanToken Parser>>advance Parser>>init:notifying:failBlock: Parser>>initPattern:notifying:return: Parser>>parseSelector: ChangeList>>scanCategory:class:meta:stamp: ChangeList>>scanCategory [] in ChangeList>>scanFile:from:to: {[:bar | [file position < stopPosition] whileTrue: [bar value: file positi...]} ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: String>>displayProgressAt:from:to:during: ChangeList>>scanFile:from:to: FilePackage>>fileInFrom: MCStReader>>loadDefinitions MCStReader(MCSnapshotReader)>>definitions [] in MCMczReader>>extractDefinitionsFrom: {[:rc | reader := rc on: member contentStream text. definitions addAll: rea...]} MCStReader class(Object)>>ifNotNilDo: MCMczReader>>extractDefinitionsFrom: [] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]} OrderedCollection>>do: MCMczReader>>loadDefinitions MCMczReader(MCVersionReader)>>definitions MCMczReader(MCVersionReader)>>snapshot [] in SSDiffyTextWriter>>writeVersion:for: {[ancestor ifNil: [self writeSnapshot: reader snapshot] ifNotNil: [patch ...]} BlockContext>>on:do: SSDiffyTextWriter>>writeVersion:for: SSEMailSubscription>>versionAdded:to: [] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]} [] in BlockContext>>newProcess {[self value. Processor terminateActive]} Previous message: [Pkg] The Trunk: Kernel-nice.306.mcz Next message: [Pkg] The Trunk: Multilingual-nice.65.mcz Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] More information about the Packages mailing list ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001893.h… Name: Multilingual-nice.65 Ancestors: Multilingual-nice.64 http://bugs.squeak.org/view.php?id=6086 In the process of #detectLineEndConvention a primitive fails trying to obtain the position of '/dev/stdout'. Re-Install fix from Kph compatible with latests changes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001894.h… Name: System-nice.178 Ancestors: System-dtl.177 Remove two more uggly SmalltalkImage current getSystemAttribute: 1002 IMO SmalltalkImage current osVersion is a bit more future proof than an obscure message with an hardcoded value ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001895.h… Name: System-nice.179 Ancestors: System-nice.178 Print Smalltalk with isSelfEvaluating style BEFORE: a SystemDictionary(lots of globals) AFTER: Smalltalk "a SystemDictionary with lots of globals" ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-November/001896.h… Name: Compiler-nice.99 Ancestors: Compiler-nice.98 rename scanLitByte -> scanLitByteVec as suggested by Eliot =============================================

1 0

The Trunk: Compiler-nice.99.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

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!

1 0

Re: [squeak-dev] The Trunk: Compiler-nice.98.mcz
by Eliot Miranda 27 Nov '09

27 Nov '09

Hi Nicholas, how about renaming scanLitByte to scanLitByteVec? On Fri, Nov 27, 2009 at 3:54 AM, <commits(a)source.squeak.org> wrote: > Nicolas Cellier uploaded a new version of Compiler to project The Trunk: > http://source.squeak.org/trunk/Compiler-nice.98.mcz > > ==================== Summary ==================== > > Name: Compiler-nice.98 > Author: nice > Time: 27 November 2009, 12:54:16 pm > UUID: 4853aa4f-5bcb-e242-a130-f41f2c4d09ae > Ancestors: Compiler-cwp.97 > > Add support for literal ByteArray #[1 2 3] > > =============== Diff against Compiler-cwp.97 =============== > > Item was added: > + ----- 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! > > Item was changed: > + ----- Method: Scanner class>>initialize (in category 'initialization') > ----- > - ----- Method: Scanner class>>initialize (in category 'class > initialization') ----- > initialize > | newTable | > + newTable := Array new: 256 withAll: #xBinary. "default" > - newTable _ Array new: 256 withAll: #xBinary. "default" > newTable atAll: #(9 10 12 13 32 ) put: #xDelimiter. "tab lf ff cr > space" > newTable atAll: ($0 asciiValue to: $9 asciiValue) put: #xDigit. > > 1 to: 255 > do: [:index | > (Character value: index) isLetter > ifTrue: [newTable at: index put: #xLetter]]. > > newTable at: 30 put: #doIt. > newTable at: $" asciiValue put: #xDoubleQuote. > newTable at: $# asciiValue put: #xLitQuote. > newTable at: $$ asciiValue put: #xDollar. > newTable at: $' asciiValue put: #xSingleQuote. > newTable at: $: asciiValue put: #xColon. > newTable at: $( asciiValue put: #leftParenthesis. > newTable at: $) asciiValue put: #rightParenthesis. > newTable at: $. asciiValue put: #period. > newTable at: $; asciiValue put: #semicolon. > newTable at: $[ asciiValue put: #leftBracket. > newTable at: $] asciiValue put: #rightBracket. > newTable at: ${ asciiValue put: #leftBrace. > newTable at: $} asciiValue put: #rightBrace. > newTable at: $^ asciiValue put: #upArrow. > newTable at: $_ asciiValue put: #leftArrow. > newTable at: $| asciiValue put: #verticalBar. > + TypeTable := newTable "bon voyage!!" > - TypeTable _ newTable "bon voyage!!" > > "Scanner initialize"! > > 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. > - ifTrue: > - [self scanToken; scanLitVec. > - mark := start+1. > tokenType == #doIt > ifTrue: [self offEnd: 'Unmatched > parenthesis']] > + ifFalse: [tokenType = #leftBracket > + 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]]]]]. > - 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 > ###Pen > + "! > - "! > > >

1 0

The Trunk: System-nice.179.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.179.mcz ==================== Summary ==================== Name: System-nice.179 Author: nice Time: 27 November 2009, 10:56:47 am UUID: 6d19f2f9-3c0c-46f9-8ca0-369096a00f76 Ancestors: System-nice.178 Print Smalltalk with isSelfEvaluating style BEFORE: a SystemDictionary(lots of globals) AFTER: Smalltalk "a SystemDictionary with lots of globals" =============== Diff against System-nice.178 =============== Item was added: + ----- Method: SystemDictionary>>printOn: (in category 'printing') ----- + printOn: aStream + self == Smalltalk + ifTrue: [aStream nextPutAll: #Smalltalk. + aStream nextPutAll:' "a SystemDictionary with lots of globals"'] + ifFalse: [super printOn: aStream]!

1 0

The Trunk: System-nice.178.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.178.mcz ==================== Summary ==================== Name: System-nice.178 Author: nice Time: 27 November 2009, 10:44:20 am UUID: 6792adea-f148-4dab-9c20-44834bf6e624 Ancestors: System-dtl.177 Remove two more uggly SmalltalkImage current getSystemAttribute: 1002 IMO SmalltalkImage current osVersion is a bit more future proof than an obscure message with an hardcoded value =============== Diff against System-dtl.177 =============== Item was changed: ----- Method: Locale class>>defaultInputInterpreter (in category 'platform specific') ----- defaultInputInterpreter | platformName osVersion | platformName := SmalltalkImage current platformName. + osVersion := SmalltalkImage current osVersion. - osVersion := SmalltalkImage current getSystemAttribute: 1002. (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^NoInputInterpreter new]. platformName = 'Win32' ifTrue: [^MacRomanInputInterpreter new]. ^NoInputInterpreter new! Item was changed: ----- Method: Locale class>>defaultEncodingName: (in category 'platform specific') ----- defaultEncodingName: languageSymbol | encodings platformName osVersion | platformName := SmalltalkImage current platformName. + osVersion := SmalltalkImage current osVersion. - osVersion := SmalltalkImage current getSystemAttribute: 1002. encodings := self platformEncodings at: languageSymbol ifAbsent: [self platformEncodings at: #default]. encodings at: platformName ifPresent: [:encoding | ^encoding]. encodings at: platformName , ' ' , osVersion ifPresent: [:encoding | ^encoding]. ^encodings at: #default!

1 0

The Trunk: Multilingual-nice.65.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.65.mcz ==================== Summary ==================== Name: Multilingual-nice.65 Author: nice Time: 27 November 2009, 10:29:13 am UUID: 5e7b3a9a-9718-4731-8e0c-a3f5515fd607 Ancestors: Multilingual-nice.64 http://bugs.squeak.org/view.php?id=6086 In the process of #detectLineEndConvention a primitive fails trying to obtain the position of '/dev/stdout'. Re-Install fix from Kph compatible with latests changes. =============== Diff against Multilingual-nice.64 =============== Item was changed: Object subclass: #LanguageEnvironment instanceVariableNames: 'id' classVariableNames: 'ClipboardInterpreterClass Current FileNameConverterClass InputInterpreterClass KnownEnvironments SystemConverterClass' poolDictionaries: '' category: 'Multilingual-Languages'! !LanguageEnvironment commentStamp: 'bf 8/16/2009 16:52' prior: 0! The name multilingualized Squeak suggests that you can use multiple language at one time. This is true, of course, but the system still how to manage the primary language; that provides the interpretation of data going out or coming in from outside world. It also provides how to render strings, as there rendering rule could be different in one language to another, even if the code points in a string is the same. Originally, LanguageEnvironment and its subclasses only has class side methods. After merged with Diego's Babel work, it now has instance side methods. Since this historical reason, the class side and instance side are not related well. + When we talk about the interface with the outside of the Squeak world, there are three different "channels"; the keyboard input, clipboard output and input, and filename. On a not-to-uncommon system such as a Unix system localized to Japan, all of these three can have (and does have) different encodings. So we need to manage them separately. Note that the encoding in a file can be anything. While it is nice to provide a suggested guess for this 'default system file content encoding', it is not critical. - When we talk about the interface with the outside of the Squeak world, there are three different "channels"; the keyboard input, clipboard output and input, and filename. On a not-to-uncommon system such as a Unix system localized to Japan, all of these three can have (and does have) different encodings. So we need to manage them separately. Note that the encoding in a file can be anything. While it is nice to provide a suggested guess for this 'default system file content encoding', it is not critical. Rendering support is limited basic L-to-R rendering so far. But you can provide different line-wrap rule, at least. ! Item was changed: + ----- Method: MultiByteFileStream>>wantsLineEndConversion: (in category 'remnant') ----- - ----- Method: MultiByteFileStream>>wantsLineEndConversion: (in category 'accessing') ----- wantsLineEndConversion: aBoolean + + wantsLineEndConversion := aBoolean. + lineEndConvention ifNil: [ self detectLineEndConvention ]. ! - wantsLineEndConversion := aBoolean. - self detectLineEndConvention.! Item was changed: ----- Method: MultiByteFileStream class>>guessDefaultLineEndConvention (in category 'class initialization') ----- guessDefaultLineEndConvention "Lets try to guess the line end convention from what we know about the path name delimiter from FileDirectory." FileDirectory pathNameDelimiter = $: ifTrue: [^ self defaultToCR]. FileDirectory pathNameDelimiter = $/ + ifTrue: [((SmalltalkImage current osVersion) - ifTrue: [((SmalltalkImage current getSystemAttribute: 1002) beginsWith: 'darwin') ifTrue: [^ self defaultToCR] ifFalse: [^ self defaultToLF]]. FileDirectory pathNameDelimiter = $\ ifTrue: [^ self defaultToCRLF]. "in case we don't know" ^ self defaultToCR! Item was changed: ----- Method: MultiByteFileStream>>open:forWrite: (in category 'open/close') ----- open: fileName forWrite: writeMode | result | result := super open: fileName forWrite: writeMode. result ifNotNil: [ + converter ifNil: [self converter: UTF8TextConverter new]. + lineEndConvention ifNil: [ self detectLineEndConvention ] + ]. - converter ifNil: [converter := UTF8TextConverter new]. - self detectLineEndConvention]. ^result!

1 0

The Trunk: Multilingual-nice.64.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-nice.64.mcz ==================== Summary ==================== Name: Multilingual-nice.64 Author: nice Time: 27 November 2009, 10:22:04 am UUID: 9b725d46-0789-4ac5-84df-13eded044a6e Ancestors: Multilingual-nice.63 Get rid of some ugly getSystemAttribute: 1002 There is an explicitely named message #osVersion to just do that The named one seems a bit more future proof to me than assembleur like hardcoded values ==== ERROR === Error: subscript is out of bounds: 0 27 November 2009 9:22:48 pm VM: unix - a SmalltalkImage Image: Squeak3.7 [latest update: #5989] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak Array(Object)>>error: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: aString: 'subscript is out of bounds: 0' Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>errorSubscriptBounds: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>at: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Parser(Scanner)>>scanToken Receiver: a Parser Arguments and temporary variables: Receiver's instance variables: source: a ReadStream mark: 21 hereChar: $ aheadChar: $ token: 'supportedLanguages' tokenType: #xDelimiter currentComment: an OrderedCollection('Return the languages that this class supp...etc... buffer: a WriteStream typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: 'supportedLanguages' hereType: #word hereMark: 1 hereEnd: 18 prevMark: 1 prevEnd: nil encoder: nil requestor: nil parseNode: nil failBlock: [] in Parser>>initPattern:notifying:return: {[^ nil]} requestorOffset: 0 tempsMark: nil doitFlag: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Parser(Scanner)>>scanToken - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Parser(Scanner)>>xDoubleQuote Parser(Scanner)>>scanToken Parser>>advance Parser>>init:notifying:failBlock: Parser>>initPattern:notifying:return: Parser>>parseSelector: ChangeList>>scanCategory:class:meta:stamp: ChangeList>>scanCategory [] in ChangeList>>scanFile:from:to: {[:bar | [file position < stopPosition] whileTrue: [bar value: file positi...]} ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: String>>displayProgressAt:from:to:during: ChangeList>>scanFile:from:to: FilePackage>>fileInFrom: MCStReader>>loadDefinitions MCStReader(MCSnapshotReader)>>definitions [] in MCMczReader>>extractDefinitionsFrom: {[:rc | reader := rc on: member contentStream text. definitions addAll: rea...]} MCStReader class(Object)>>ifNotNilDo: MCMczReader>>extractDefinitionsFrom: [] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]} OrderedCollection>>do: MCMczReader>>loadDefinitions MCMczReader(MCVersionReader)>>definitions MCMczReader(MCVersionReader)>>snapshot [] in SSDiffyTextWriter>>writeVersion:for: {[ancestor ifNil: [self writeSnapshot: reader snapshot] ifNotNil: [patch ...]} BlockContext>>on:do: SSDiffyTextWriter>>writeVersion:for: SSEMailSubscription>>versionAdded:to: [] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]} [] in BlockContext>>newProcess {[self value. Processor terminateActive]}

1 0

The Trunk: Kernel-nice.306.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.306.mcz ==================== Summary ==================== Name: Kernel-nice.306 Author: nice Time: 27 November 2009, 8:23:42 am UUID: a1d781cc-fce8-6d4d-b7a5-149285a38851 Ancestors: Kernel-ul.305 Speed up highBit and lowBit according to http://bugs.squeak.org/view.php?id=7113 This is usefull for algorithms like DSA. This version has a cache of known result for bytes. Prerequisite: ByteArray literals #[] { [100000 timesRepeat: [123456798 highBit]] timeToRun. [100000 timesRepeat: [122 highBit]] timeToRun. [100000 timesRepeat: [12 highBit]] timeToRun. [100000 timesRepeat: [3950591 lowBit]] timeToRun. [100000 timesRepeat: [3950592 lowBit]] timeToRun. [100000 timesRepeat: [8 lowBit]] timeToRun. [100000 timesRepeat: [(-1073741824) lowBit]] timeToRun. } "OLD" #(186 139 138 92 165 134 1965) / "NEW" #(115 96 96 83 97 79 743) "SPEED UP FACTOR" collect: [:e | e roundTo: 0.1] -> #(1.6 1.4 1.4 1.1 1.7 1.7 2.6) =============== Diff against Kernel-ul.305 =============== Item was changed: ----- Method: SmallInteger>>highBitOfPositiveReceiver (in category 'private') ----- highBitOfPositiveReceiver | shifted bitNo | "Answer the index of the high order bit of the receiver, or zero if the receiver is zero. Receiver has to be positive!!" shifted := self. bitNo := 0. + [shifted < 65536] - [shifted < 16] - whileFalse: - [shifted := shifted bitShift: -4. - bitNo := bitNo + 4]. - [shifted = 0] whileFalse: + [shifted := shifted bitShift: -16. + bitNo := bitNo + 16]. + shifted < 256 + ifFalse: + [shifted := shifted bitShift: -8. + bitNo := bitNo + 8]. + + "The high bits table can be obtained with: + (1 to: 8) inject: #[0] into: [:highBits :rank | highBits , (highBits collect: [:e | rank])]." + ^bitNo + ( #[0 1 2 2 3 3 3 3 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8] at: shifted + 1)! - [shifted := shifted bitShift: -1. - bitNo := bitNo + 1]. - ^ bitNo! Item was changed: ----- Method: SmallInteger>>lowBit (in category 'bit manipulation') ----- lowBit " Answer the index of the low order one bit. 2r00101000 lowBit (Answers: 4) 2r-00101000 lowBit (Answers: 4) + First we skip bits in groups of 8, then do a lookup in a table. - First we skip bits in groups of 4, then single bits. While not optimal, this is a good tradeoff; long integer #lowBit always invokes us with bytes." + | n result lastByte | - | n result | n := self. n = 0 ifTrue: [ ^ 0 ]. + result := 0. + [(lastByte := n bitAnd: 16rFF) = 0] - result := 1. - [ (n bitAnd: 16rF) = 0 ] - whileTrue: [ - result := result + 4. - n := n bitShift: -4 ]. - [ (n bitAnd: 1) = 0 ] whileTrue: [ + result := result + 8. + n := n bitShift: -8 ]. + + "The low bits table can be obtained with: + ((1 to: 8) inject: #[1] into: [:lowBits :rank | (lowBits copy at: 1 put: lowBits first + 1; yourself) , lowBits]) allButFirst." + ^result + ( #[1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 6 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 7 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 6 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 8 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 6 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 7 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 6 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1 5 1 2 1 3 1 2 1 4 1 2 1 3 1 2 1] at: lastByte)! - result := result + 1. - n := n bitShift: -1 ]. - ^ result!

1 0

The Trunk: System-dtl.177.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.177.mcz ==================== Summary ==================== Name: System-dtl.177 Author: dtl Time: 27 November 2009, 3:16:46 am UUID: 2643ef5e-822c-4088-9233-416c30a23cdf Ancestors: System-dtl.176 Bug fix - Change Project class>>deletingProject to use isKindOf: Project. Still need to factor out ProjectViewMorph dependencies in this method. =============== Diff against System-dtl.176 =============== Item was changed: ----- Method: Project class>>deletingProject: (in category 'utilities') ----- deletingProject: outgoingProject ImageSegment allSubInstancesDo: [:seg | seg ifOutPointer: outgoingProject thenAllObjectsDo: [:obj | (obj isKindOf: ProjectViewMorph) ifTrue: [ obj deletingProject: outgoingProject. obj abandon]. + (obj isKindOf: Project) ifTrue: [obj deletingProject: outgoingProject]]]. - obj class == Project ifTrue: [obj deletingProject: outgoingProject]]]. Project allProjects do: [:p | p deletingProject: outgoingProject]. "ones that are in" ProjectViewMorph allSubInstancesDo: [:p | p deletingProject: outgoingProject. p project == outgoingProject ifTrue: [p abandon]]. AllProjects := self allProjects copyWithout: outgoingProject.!

1 0

The Trunk: KernelTests-nice.112.mcz
by commits＠source.squeak.org 27 Nov '09

27 Nov '09

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.112.mcz ==================== Summary ==================== Name: KernelTests-nice.112 Author: nice Time: 27 November 2009, 7:46:37 am UUID: 9f37959a-ff43-cf46-899c-c5fc19204d66 Ancestors: KernelTests-ul.111 Grab a few tests from Pharo =============== Diff against KernelTests-ul.111 =============== Item was added: + ----- Method: UndefinedObjectTest>>testAllInstances (in category 'tests - Class Methods') ----- + testAllInstances + self assert: UndefinedObject allInstances size = 1 description: 'There should be a single instance of UndefinedObject'. + self assert: (UndefinedObject allInstances includes: nil) description: 'nil should be an instance of UndefinedObject'.! Item was changed: ----- Method: FloatTest>>testStoreBase16 (in category 'printing') ----- testStoreBase16 "This bug was reported in mantis http://bugs.squeak.org/view.php?id=6695" self assert: (20.0 storeStringBase: 16) = '16r14.0' + description: 'the radix prefix should not be omitted, except in base 10'! - description: 'the radix prefix should not be omitted'! Item was added: + ----- Method: IntegerTest>>testLowBit (in category 'tests - bitLogic') ----- + testLowBit + | suite | + + suite := (0 to: 1024) asArray , #(16rFDFD 16rFFFF 16r1000 16r1000000 16r1000001 16r70000000 16r7AFAFAFA ) , {SmallInteger maxVal . SmallInteger maxVal+1}. + suite := suite , (suite collect: [:e | e raisedTo: 20]). + + suite do: [:anInteger | + | lowBit | + lowBit := (anInteger respondsTo: #bitAt:) + ifTrue: [(1 to: anInteger highBit) detect: [:bitIndex | (anInteger bitAt: bitIndex) ~= 0] ifNone: [0]] + ifFalse: [(1 to: anInteger highBit) detect: [:bitIndex | (anInteger bitAnd: (1 bitShift: bitIndex-1)) ~= 0] ifNone: [0]]. + self assert: anInteger lowBit = lowBit. + self assert: anInteger negated lowBit = lowBit].! Item was added: + ----- Method: IntegerTest>>testHighBit (in category 'tests - bitLogic') ----- + testHighBit + | suite | + + suite := (0 to: 1024) asArray , #(16rFDFD 16rFFFF 16r1000 16r1000000 16r1000001 16r70000000 16r7AFAFAFA ) , {SmallInteger maxVal . SmallInteger maxVal+1}. + suite := suite , (suite collect: [:e | e raisedTo: 20]). + + suite do: [:anInteger | + | highBit shifted | + highBit := 0. + shifted := 1. + [shifted > anInteger] whileFalse: [highBit := highBit+1. shifted := shifted bitShift: 1]. + self assert: anInteger highBit = highBit].! Item was added: + ----- Method: IntegerTest>>testIsPowerOfTwoM6873 (in category 'tests - basic') ----- + testIsPowerOfTwoM6873 + "This is a non regression test for http://bugs.squeak.org/view.php?id=6873" + + self deny: ((1 to: 80) anySatisfy: [:n | (2 raisedTo: n) negated isPowerOfTwo]) + description: 'A negative integer cannot be a power of two'.!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
36
Older →

Jump to page: