Packages May 2014

packages@lists.squeakfoundation.org

1 participants
201 discussions

The Trunk: Environments-cmm.51.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

Chris Muller uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cmm.51.mcz ==================== Summary ==================== Name: Environments-cmm.51 Author: cmm Time: 2 May 2014, 2:56:46.177 pm UUID: d6b12525-7eb7-4978-9368-fb484f30043b Ancestors: Environments-cwp.50 - Environment preamble, repair your 'Instances' dictionary, make Environments consistently named with Symbols. - EnvironmentInfo, ensure incoming Strings for your name are coerced to Symbols. =============== Diff against Environments-cwp.50 =============== Item was added: + (PackageInfo named: 'Environments') preamble: '"Fix ''Instances'' entry for Smalltalk Environment." + | dict | + dict := (Environment classPool at: ''Instances''). + dict keys + do: [ : eachName | (eachName isSymbol not ) ifTrue: [ dict at: eachName asSymbol put: (dict removeKey: eachName) ] ]. + + "Let Environment names be, consistently, Symbols." + Environment allInstances do: + [ : each | + each info + instVarNamed: ''name'' + put: (each name asSymbol) ]'! Item was changed: ----- Method: Environment class>>named: (in category 'instance creation') ----- named: aSymbol + | symbol | + symbol := aSymbol asSymbol. ^ Instances + at: symbol + ifAbsentPut: [ self withName: symbol ]! - at: aSymbol - ifAbsentPut: [self withName: aSymbol]! Item was changed: + ----- Method: EnvironmentInfo class>>name: (in category 'create') ----- - ----- Method: EnvironmentInfo class>>name: (in category 'as yet unclassified') ----- name: aString ^ self name: aString organization: (SystemOrganizer defaultList: Array new) packages: PackageOrganizer new. ! Item was changed: + ----- Method: EnvironmentInfo class>>name:organization:packages: (in category 'create') ----- - ----- Method: EnvironmentInfo class>>name:organization:packages: (in category 'as yet unclassified') ----- name: aString organization: aSystemOrganizer packages: aPackageOrganizer ^ self basicNew initializeWithName: aString organization: aSystemOrganizer packages: aPackageOrganizer! Item was changed: + ----- Method: EnvironmentInfo>>initializeWithName:organization:packages: (in category 'initializing') ----- - ----- Method: EnvironmentInfo>>initializeWithName:organization:packages: (in category 'as yet unclassified') ----- initializeWithName: aString organization: aSystemOrganizer packages: aPackageOrganizer self initialize. + name := aString asSymbol. - name := aString. organization := aSystemOrganizer. + packages := aPackageOrganizer.! - packages := aPackageOrganizer. - !

1 0

The Trunk: Environments-cmm.51.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

1 0

The Trunk: Environments-cmm.51.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

1 0

The Trunk: Kernel-cmm.845.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.845.mcz ==================== Summary ==================== Name: Kernel-cmm.845 Author: cmm Time: 2 May 2014, 2:23:45.137 pm UUID: b0fee9bf-c59e-4560-9a57-eddd2e055838 Ancestors: Kernel-cwp.844 - #flush after printing error information, and before image immediately exits, otherwise it won't always get written. - Add accessor for #negativeInfinity so I don't have to create new Float via Float infinity negated when all I want to do is compare. - #asBytesDescription for Float too because this is a very useful printing method for even things other than byte counts (and we should think of a better name for it too). =============== Diff against Kernel-cwp.844 =============== Item was changed: ----- Method: Error>>printVerboseOn: (in category 'printing') ----- printVerboseOn: aStream aStream + nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; + cr ; + nextPutAll: 'The time is ', DateAndTime now asString ; + cr. - " setToEnd ;" - nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; - cr ; - nextPutAll: 'The time is ', DateAndTime now asString ; - cr. "Allow applications to optionally print extra details without overriding a base package." (self respondsTo: #printDetailsOn:) ifTrue: [ self printDetailsOn: aStream ]. aStream + nextPutAll: self signalerContext longStack ; + cr ; + nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; + cr ; + flush! - nextPutAll: self signalerContext longStack ; - cr ; - nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; - cr! Item was added: + ----- Method: Float class>>negativeInfinity (in category 'constants') ----- + negativeInfinity + "Answer the value used to represent a negative infinity." + ^ NegativeInfinity! Item was added: + ----- Method: Float>>asBytesDescription (in category 'printing') ----- + asBytesDescription + ^ self asInteger asBytesDescription!

1 0

The Trunk: Kernel-cmm.845.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

1 0

The Trunk: Kernel-cmm.845.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

1 0

The Trunk: Collections-eem.567.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.567.mcz ==================== Summary ==================== Name: Collections-eem.567 Author: eem Time: 2 May 2014, 9:54:58.139 am UUID: 78f9c7bb-cb9d-487c-91ba-edd8b89502c1 Ancestors: Collections-nice.566 Fix ([Read|Write]Stream on:...from:...to:...) contents. The old code would always copy from 1 to the end, not from whatever the from: argument was. =============== Diff against Collections-nice.566 =============== Item was changed: PositionableStream subclass: #ReadStream + instanceVariableNames: 'initialPositionOrNil' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Streams'! !ReadStream commentStamp: '<historical>' prior: 0! I represent an accessor for a sequence of objects that can only read objects from the sequence.! Item was added: + ----- Method: ReadStream>>contents (in category 'accessing') ----- + contents + "Answer with a copy of my collection from the start to readLimit." + + ^collection copyFrom: (initialPositionOrNil ifNil: [1]) to: readLimit! Item was changed: ----- Method: ReadStream>>on:from:to: (in category 'private') ----- on: aCollection from: firstIndex to: lastIndex | len | collection := aCollection. readLimit := lastIndex > (len := collection size) ifTrue: [len] ifFalse: [lastIndex]. position := firstIndex <= 1 ifTrue: [0] + ifFalse: [firstIndex - 1]. + initialPositionOrNil := position + 1! - ifFalse: [firstIndex - 1]! Item was changed: ----- Method: ReadWriteStream>>contents (in category 'accessing') ----- contents + "Answer with a copy of my collection from the start to readLimit." - "Answer with a copy of my collection from 1 to readLimit." readLimit := readLimit max: position. + ^collection copyFrom: (initialPositionOrNil ifNil: [1]) to: readLimit! - ^collection copyFrom: 1 to: readLimit! Item was changed: PositionableStream subclass: #WriteStream + instanceVariableNames: 'writeLimit initialPositionOrNil' - instanceVariableNames: 'writeLimit' classVariableNames: '' poolDictionaries: '' category: 'Collections-Streams'! !WriteStream commentStamp: '<historical>' prior: 0! I represent an accessor for a sequence of objects that can only store objects in the sequence.! Item was changed: ----- Method: WriteStream>>contents (in category 'accessing') ----- contents + "Answer with a copy of my collection from the start to the current position." - readLimit := readLimit max: position. + ^collection copyFrom: (initialPositionOrNil ifNil: [1]) to: position! - ^collection copyFrom: 1 to: position! Item was changed: ----- Method: WriteStream>>on:from:to: (in category 'private') ----- on: aCollection from: firstIndex to: lastIndex | len | collection := aCollection. readLimit := writeLimit := lastIndex > (len := collection size) ifTrue: [len] ifFalse: [lastIndex]. position := firstIndex <= 1 ifTrue: [0] + ifFalse: [firstIndex - 1]. + initialPositionOrNil := position + 1! - ifFalse: [firstIndex - 1]!

1 0

The Trunk: Collections-eem.567.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

1 0

The Trunk: Collections-eem.567.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

1 0

The Trunk: CollectionsTests-eem.216.mcz
by commits＠source.squeak.org 02 May '14

02 May '14

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-eem.216.mcz ==================== Summary ==================== Name: CollectionsTests-eem.216 Author: eem Time: 2 May 2014, 9:51:57.073 am UUID: 51439739-6902-45d6-86d1-461fa61b652a Ancestors: CollectionsTests-topa.215 Add tests that expect unsurprising behaviour from ([Read|Write]Stream on:...from:...to:...) contents =============== Diff against CollectionsTests-topa.215 =============== Item was added: + ----- Method: ReadStreamTest>>testOnFromTo (in category 'tests - accessing') ----- + testOnFromTo + self assert: (ReadWriteStream + on: (String withAll: ((0 to: 255) collect: [:n| n asCharacter])) + from: $A asInteger + 1 + to: $Z asInteger + 1) + contents + equals: (String withAll: (($A asInteger to: $Z asInteger) collect: [:n| n asCharacter]))! Item was added: + ----- Method: ReadWriteStreamTest>>testOnFromTo (in category 'tests') ----- + testOnFromTo + self assert: (ReadWriteStream + on: (String withAll: ((0 to: 255) collect: [:n| n asCharacter])) + from: $A asInteger + 1 + to: $Z asInteger + 1) + contents + equals: (String withAll: (($A asInteger to: $Z asInteger) collect: [:n| n asCharacter]))! Item was added: + ----- Method: WriteStreamTest>>testOnFromTo (in category 'tests - accessing') ----- + testOnFromTo + | aToZ | + aToZ := String withAll: (($A asInteger to: $Z asInteger) collect: [:n| n asCharacter]). + self assert: ((ReadWriteStream + on: (String withAll: ((0 to: 255) collect: [:n| n asCharacter])) + from: $A asInteger + 1 + to: $Z asInteger + 1) + nextPutAll: aToZ; + contents) + equals: aToZ!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2014