Packages October 2014

packages@lists.squeakfoundation.org

1 participants
165 discussions

The Trunk: Tests-ul.304.mcz
by commits＠source.squeak.org 22 Oct '14

22 Oct '14

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.304.mcz ==================== Summary ==================== Name: Tests-ul.304 Author: ul Time: 21 October 2014, 4:59:20.64 pm UUID: 6778c29a-0c8f-4e38-9bed-26c6720b6503 Ancestors: Tests-eem.303 Be explicit and use CompiledMethod empty. =============== Diff against Tests-eem.303 =============== Item was changed: ----- Method: BlockLocalTemporariesRemovalTest>>assert:isChangedDuringParsingTo:withRemovalOfTemporariesNamed: (in category 'test helper') ----- assert: someCode isChangedDuringParsingTo: someOtherCode withRemovalOfTemporariesNamed: someTempNames | failBlock | self sourceCode: someCode. failBlock := [ self fail ]. [ self class compile: self sourceCode notifying: self + trailer: CompiledMethodTrailer empty - trailer: self class defaultMethodTrailer ifFail: failBlock ] on: UnusedVariable do: [ : aNotification | aNotification openMenuIn: [ : options : emptyCollection : someText | aNotification resume: (someTempNames anySatisfy: [ : tempName | someText beginsWith: tempName ]) ] ]. self assert: self sourceCode = someOtherCode!

1 0

The Trunk: Tests-ul.304.mcz
by commits＠source.squeak.org 22 Oct '14

22 Oct '14

1 0

The Trunk: Tests-ul.304.mcz
by commits＠source.squeak.org 22 Oct '14

22 Oct '14

1 0

The Trunk: Kernel-ul.880.mcz
by commits＠source.squeak.org 22 Oct '14

22 Oct '14

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.880.mcz ==================== Summary ==================== Name: Kernel-ul.880 Author: ul Time: 21 October 2014, 4:56:17.427 pm UUID: 4b600072-456c-413f-8b7e-e3f1ae8340f3 Ancestors: Kernel-eem.879 Compile methods with the right trailer to avoid a #becomeForward: when the actual trailer is added. =============== Diff against Kernel-eem.879 =============== Item was changed: ----- Method: Behavior>>compile:notifying: (in category 'compiling') ----- compile: code notifying: requestor "Compile the argument, code, as source code in the context of the receiver and insEtall the result in the receiver's method dictionary. The second argument, requestor, is to be notified if an error occurs. The argument code is either a string or an object that converts to a string or a PositionableStream. This method also saves the source code." | methodAndNode | methodAndNode := self compile: code "a Text" notifying: requestor + trailer: (self defaultMethodTrailerIfLogSource: true) - trailer: self defaultMethodTrailer ifFail: [^nil]. methodAndNode method putSource: code fromParseNode: methodAndNode node inFile: 2 withPreamble: [:f | f cr; nextPut: $!!; nextChunkPut: 'Behavior method'; cr]. self addSelector: methodAndNode selector withMethod: methodAndNode method notifying: requestor. ^ methodAndNode selector! Item was added: + ----- Method: Behavior>>defaultMethodTrailerIfLogSource: (in category 'compiling') ----- + defaultMethodTrailerIfLogSource: logSource + + logSource ifFalse: [ ^self defaultMethodTrailer ]. + ^CompiledMethodTrailer sourcePointerInFile: 2! Item was changed: ----- Method: ClassDescription>>compile:classified:withStamp:notifying:logSource: (in category 'compiling') ----- compile: text classified: category withStamp: changeStamp notifying: requestor logSource: logSource + + | methodAndNode selector | + methodAndNode := self + compile: text asString + notifying: requestor + trailer: (self defaultMethodTrailerIfLogSource: logSource) + ifFail: [ ^nil ]. + selector := methodAndNode selector. - | methodAndNode | - methodAndNode := self compile: text asString notifying: requestor - trailer: self defaultMethodTrailer ifFail: [^nil]. logSource ifTrue: [ self logMethodSource: text forMethodWithNode: methodAndNode inCategory: category withStamp: changeStamp notifying: requestor. ]. + self addAndClassifySelector: selector withMethod: methodAndNode - self addAndClassifySelector: methodAndNode selector withMethod: methodAndNode method inProtocol: category notifying: requestor. + self instanceSide noteCompilationOf: selector meta: self isClassSide. + ^selector! - self instanceSide noteCompilationOf: methodAndNode selector meta: self isClassSide. - ^ methodAndNode selector! Item was changed: ----- Method: ClassDescription>>compile:environment:classified:withStamp:notifying:logSource: (in category 'compiling') ----- compile: text environment: anEnvironment classified: category withStamp: changeStamp notifying: requestor logSource: logSource | methodAndNode context methodNode | context := CompilationCue source: text class: self environment: anEnvironment requestor: requestor. methodNode := self newCompiler compile: context ifFail: [^ nil]. methodAndNode := CompiledMethodWithNode generateMethodFromNode: methodNode + trailer: (self defaultMethodTrailerIfLogSource: logSource). - trailer: self defaultMethodTrailer. logSource ifTrue: [ self logMethodSource: text forMethodWithNode: methodAndNode inCategory: category withStamp: changeStamp notifying: requestor. ]. self addAndClassifySelector: methodAndNode selector withMethod: methodAndNode method inProtocol: category notifying: requestor. self instanceSide noteCompilationOf: methodAndNode selector meta: self isClassSide. ^ methodAndNode selector! Item was changed: ----- Method: CompiledMethod>>decompileWithTemps (in category 'decompiling') ----- decompileWithTemps "Return the decompiled parse tree that represents self, but with the temp names obtained either by compiling the sourcecode, or directly if the method has temps in its trailer." | class selector tempNames source | class := self methodClass ifNil: [Object]. selector := self selector ifNil: [self defaultSelector]. self holdsTempNames ifTrue: [tempNames := self tempNamesString] ifFalse: ["No source file or no source (e.g. doits) and no temp names -- decompile without temp names " ((self fileIndex > 0 and: [(SourceFiles at: self fileIndex) isNil]) or: [(source := self getSourceFromFile) isNil]) ifTrue: [^self decompile]. tempNames := (class newCompiler parse: source asString in: class notifying: nil) + generate: CompiledMethodTrailer empty; - generate: CompiledMethodTrailer defaultMethodTrailer; schematicTempNamesString]. ^(self decompilerClass new withTempNames: tempNames) decompile: selector in: class method: self methodForDecompile! Item was added: + ----- Method: CompiledMethodTrailer class>>sourcePointerInFile: (in category 'as yet unclassified') ----- + sourcePointerInFile: fileIndex + + ^self new + sourcePointer: (SourceFiles + sourcePointerFromFileIndex: fileIndex + andPosition: (SourceFiles at: fileIndex) position); + yourself + !

1 0

The Trunk: Kernel-ul.880.mcz
by commits＠source.squeak.org 22 Oct '14

22 Oct '14

1 0

The Trunk: Kernel-ul.880.mcz
by commits＠source.squeak.org 22 Oct '14

22 Oct '14

1 0

The Trunk: Nebraska-ul.38.mcz
by commits＠source.squeak.org 21 Oct '14

21 Oct '14

Levente Uzonyi uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-ul.38.mcz ==================== Summary ==================== Name: Nebraska-ul.38 Author: ul Time: 21 October 2014, 5:13:14.046 pm UUID: 4891da96-28c4-4a50-84d6-6dd4a8b109d0 Ancestors: Nebraska-nice.37 There's no guarantee for port 9999 being available. Use whatever port socket1 got. =============== Diff against Nebraska-nice.37 =============== Item was changed: ----- Method: ArbitraryObjectSocketTestCase>>setUp (in category 'setup') ----- setUp "it would be nice to have an in-image loopback socket, so that the tests do not need the underlying platform's sockets to behave nicely" socket1 := Socket newTCP. socket2 := Socket newTCP. socket1 listenOn: 9999. + socket2 connectTo: (NetNameResolver localHostAddress) port: socket1 port. - socket2 connectTo: (NetNameResolver localHostAddress) port: 9999. socket1 waitForConnectionFor: 60. socket2 waitForConnectionFor: 60. end1 := ArbitraryObjectSocket on: socket1. end2 := ArbitraryObjectSocket on: socket2. ! Item was changed: ----- Method: StringSocketTestCase>>setUp (in category 'running') ----- setUp "it would be nice to have an in-image loopback socket, so that the tests do not need the underlying platform's sockets to behave nicely" socket1 := Socket newTCP. socket2 := Socket newTCP. socket1 listenOn: 9999. + socket2 connectTo: (NetNameResolver localHostAddress) port: socket1 port. - socket2 connectTo: (NetNameResolver localHostAddress) port: 9999. socket1 waitForConnectionFor: 60. socket2 waitForConnectionFor: 60. end1 := StringSocket on: socket1. end2 := StringSocket on: socket2. !

1 0

The Trunk: Nebraska-ul.38.mcz
by commits＠source.squeak.org 21 Oct '14

21 Oct '14

1 0

The Trunk: Nebraska-ul.38.mcz
by commits＠source.squeak.org 21 Oct '14

21 Oct '14

1 0

The Trunk: Collections-cmm.585.mcz
by commits＠source.squeak.org 21 Oct '14

21 Oct '14

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.585.mcz ==================== Summary ==================== Name: Collections-cmm.585 Author: cmm Time: 20 October 2014, 7:48:42.698 pm UUID: 954b50eb-27a5-41e8-9b9f-a49f39336c75 Ancestors: Collections-ul.584 Speed up visiting with #addNewElement:. It provides the common pattern of checking for inclusion, followed by add:, in just one scan, instead of two. =============== Diff against Collections-ul.584 =============== Item was added: + ----- Method: Set>>addNewElement: (in category 'adding') ----- + addNewElement: anObject + "Ensure anObject is part of the receiver. Answer whether its membership was newly acquired." + | index | + index := self scanFor: anObject. + ^ (array at: index) + ifNil: + [ self + atNewIndex: index + put: anObject asSetElement. + true ] + ifNotNil: [ false ]!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
17
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2014