Packages April 2011

packages@lists.squeakfoundation.org

1 participants
507 discussions

The Trunk: MonticelloConfigurations-cmm.93.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

Chris Muller uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-cmm.93.mcz ==================== Summary ==================== Name: MonticelloConfigurations-cmm.93 Author: cmm Time: 24 April 2011, 7:19:29.608 pm UUID: 232a47da-fa43-4649-b03a-a5fb1ab4d17f Ancestors: MonticelloConfigurations-cmm.92 Removed improperly categorized method. =============== Diff against MonticelloConfigurations-cmm.92 =============== Item was removed: - ----- Method: MCMagmaRepository class>>supportsConfigurations (in category '*monticelloconfigurations') ----- - supportsConfigurations - ^ true!

1 0

The Trunk: MonticelloConfigurations-cmm.93.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

1 0

The Trunk: MonticelloConfigurations-cmm.93.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

1 0

The Trunk: MonticelloConfigurations-cmm.92.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

Chris Muller uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-cmm.92.mcz ==================== Summary ==================== Name: MonticelloConfigurations-cmm.92 Author: cmm Time: 24 April 2011, 7:17:13.976 pm UUID: 7879c8ca-fa9b-44e2-b37f-be2918404a61 Ancestors: MonticelloConfigurations-cmm.91 - Extend support for MCConfigurations to regular MCDirectoryRepository's. =============== Diff against MonticelloConfigurations-cmm.91 =============== Item was changed: ----- Method: MCConfigurationBrowser>>addRepository (in category 'repositories') ----- addRepository + (self pickRepositorySatisfying: + [ : ea | (self repositories includes: ea) not ]) ifNotNil: + [ : repo | repo class supportsConfigurations ifFalse: [ ^ self inform: 'Not all of these repositories support MCConfigurations.' ]. + self repositories add: repo. + self changed: #repositoryList ]! - (self pickRepositorySatisfying: [:ea | (self repositories includes: ea) not]) - ifNotNil: [:repo | - (repo isKindOf: MCHttpRepository) - ifFalse: [^self inform: 'Only HTTP repositories are supported']. - self repositories add: repo. - self changed: #repositoryList. - ]! Item was changed: ----- Method: MCConfigurationBrowser>>checkRepositories (in category 'repositories') ----- checkRepositories | bad | + bad := self repositories reject: [:repo | repo class supportsConfigurations ]. - bad := self repositories reject: [:repo | repo isKindOf: MCHttpRepository]. ^bad isEmpty or: [ self selectRepository: bad first. self inform: (String streamContents: [:strm | strm nextPutAll: 'Please remove these repositories:'; cr. bad do: [:r | strm nextPutAll: r description; cr]. strm nextPutAll: '(only HTTP repositories are supported)']). false]. ! Item was added: + ----- Method: MCFileBasedRepository class>>supportsConfigurations (in category '*monticelloconfigurations') ----- + supportsConfigurations + ^ true! Item was added: + ----- Method: MCMagmaRepository class>>supportsConfigurations (in category '*monticelloconfigurations') ----- + supportsConfigurations + ^ true! Item was added: + ----- Method: MCRepository class>>supportsConfigurations (in category '*monticelloconfigurations') ----- + supportsConfigurations + ^ false!

1 0

The Trunk: MonticelloConfigurations-cmm.92.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

1 0

The Trunk: MonticelloConfigurations-cmm.92.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

1 0

The Trunk: Monticello-cmm.461.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.461.mcz ==================== Summary ==================== Name: Monticello-cmm.461 Author: cmm Time: 24 April 2011, 7:16:14.664 pm UUID: 8bac38b5-8083-4b26-9b55-3c26fd8bc16f Ancestors: Monticello-nice.460 - Extend support for MCConfigurations to regular MCDirectoryRepository's. - Categorized some methods. - Constructor method for MCDirectoryRepository. - Fixed memory-leak; when a repository adds to its 'cache', it should always keep it resized. =============== Diff against Monticello-nice.460 =============== Item was added: + ----- Method: MCDirectoryRepository class>>creationTemplateLocation: (in category 'configuring') ----- + creationTemplateLocation: location + ^ self name , ' path: {1}' format: {location printString}! Item was changed: + ----- Method: MCDirectoryRepository class>>description (in category 'configuring') ----- - ----- Method: MCDirectoryRepository class>>description (in category 'instance creation') ----- description ^ 'directory'! Item was added: + ----- Method: MCDirectoryRepository class>>directory: (in category 'instance creation') ----- + directory: aFileDirectory + ^ self new + directory: aFileDirectory ; + yourself! Item was added: + ----- Method: MCDirectoryRepository class>>fillInTheBlankRequest (in category 'configuring') ----- + fillInTheBlankRequest + ^ 'Directory Location:'! Item was changed: + ----- Method: MCDirectoryRepository class>>morphicConfigure (in category 'configuring') ----- - ----- Method: MCDirectoryRepository class>>morphicConfigure (in category 'instance creation') ----- morphicConfigure ^ FileList2 modalFolderSelector ifNotNil: [:directory | self new directory: directory]! Item was added: + ----- Method: MCDirectoryRepository class>>path: (in category 'instance creation') ----- + path: fullyQualifiedName + ^ self directory: (FileDirectory on: fullyQualifiedName)! Item was changed: + ----- Method: MCDirectoryRepository>>allFileNames (in category 'accessing') ----- - ----- Method: MCDirectoryRepository>>allFileNames (in category 'as yet unclassified') ----- allFileNames ^ (directory entries sortBy: [:a :b | a modificationTime >= b modificationTime]) collect: [:ea | ea name asMCVersionName]! Item was added: + ----- Method: MCDirectoryRepository>>creationTemplate (in category 'accessing') ----- + creationTemplate + ^ super creationTemplate + ifNil: + [ self creationTemplate: (self class creationTemplateLocation: self directory pathName). + creationTemplate ]! Item was changed: + ----- Method: MCDirectoryRepository>>description (in category 'accessing') ----- - ----- Method: MCDirectoryRepository>>description (in category 'as yet unclassified') ----- description ^ directory pathName! Item was changed: + ----- Method: MCDirectoryRepository>>directory (in category 'accessing') ----- - ----- Method: MCDirectoryRepository>>directory (in category 'as yet unclassified') ----- directory ^ directory! Item was changed: + ----- Method: MCDirectoryRepository>>directory: (in category 'accessing') ----- - ----- Method: MCDirectoryRepository>>directory: (in category 'as yet unclassified') ----- directory: aDirectory directory := aDirectory! Item was changed: + ----- Method: MCDirectoryRepository>>initialize (in category 'accessing') ----- - ----- Method: MCDirectoryRepository>>initialize (in category 'as yet unclassified') ----- initialize directory := FileDirectory default! Item was changed: + ----- Method: MCDirectoryRepository>>isValid (in category 'accessing') ----- - ----- Method: MCDirectoryRepository>>isValid (in category 'as yet unclassified') ----- isValid ^directory exists! Item was changed: + ----- Method: MCDirectoryRepository>>readStreamForFileNamed:do: (in category 'accessing') ----- - ----- Method: MCDirectoryRepository>>readStreamForFileNamed:do: (in category 'as yet unclassified') ----- readStreamForFileNamed: aString do: aBlock | file val | file := FileStream readOnlyFileNamed: (directory fullNameFor: aString). val := aBlock value: file. file close. ^ val! Item was changed: + ----- Method: MCDirectoryRepository>>writeStreamForFileNamed:replace:do: (in category 'accessing') ----- - ----- Method: MCDirectoryRepository>>writeStreamForFileNamed:replace:do: (in category 'as yet unclassified') ----- writeStreamForFileNamed: aString replace: aBoolean do: aBlock | file sel | sel := aBoolean ifTrue: [#forceNewFileNamed:] ifFalse: [#newFileNamed:]. file := FileStream perform: sel with: (directory fullNameFor: aString). aBlock value: file. file close.! Item was changed: + ----- Method: MCFileBasedRepository class>>cleanUp (in category 'release') ----- - ----- Method: MCFileBasedRepository class>>cleanUp (in category 'class initialization') ----- cleanUp "Flush caches" self flushAllCaches.! Item was changed: + ----- Method: MCFileBasedRepository class>>flushAllCaches (in category 'release') ----- - ----- Method: MCFileBasedRepository class>>flushAllCaches (in category 'as yet unclassified') ----- flushAllCaches self allSubInstancesDo: [:ea | ea flushCache]! Item was changed: ----- Method: MCFileBasedRepository>>basicStoreVersion: (in category 'overriding') ----- + basicStoreVersion: aMCVersionOrConfiguration - basicStoreVersion: aVersion self + writeStreamForFileNamed: aMCVersionOrConfiguration fileName + do: [ : s | aMCVersionOrConfiguration fileOutOn: s ]. + aMCVersionOrConfiguration isCacheable ifTrue: + [ cache ifNil: [ cache := Dictionary new ]. + self resizeCache: cache. + cache + at: aMCVersionOrConfiguration fileName + put: aMCVersionOrConfiguration ]! - writeStreamForFileNamed: aVersion fileName - do: [:s | aVersion fileOutOn: s]. - aVersion isCacheable ifTrue: [ - cache ifNil: [cache := Dictionary new]. - cache at: aVersion fileName put: aVersion]. - ! Item was changed: + ----- Method: MCHttpRepository class>>creationTemplate (in category 'ui-support') ----- - ----- Method: MCHttpRepository class>>creationTemplate (in category 'as yet unclassified') ----- creationTemplate ^self creationTemplateLocation: 'http://www.squeaksource.com/ProjectName' user: 'squeak' password: 'squeak' ! Item was changed: + ----- Method: MCHttpRepository class>>creationTemplateLocation:user:password: (in category 'ui-support') ----- - ----- Method: MCHttpRepository class>>creationTemplateLocation:user:password: (in category 'as yet unclassified') ----- creationTemplateLocation: location user: user password: password ^ 'MCHttpRepository location: {1} user: {2} password: {3}' format: {location printString. user printString. password printString}! Item was changed: + ----- Method: MCHttpRepository class>>description (in category 'ui-support') ----- - ----- Method: MCHttpRepository class>>description (in category 'as yet unclassified') ----- description ^ 'HTTP'! Item was changed: + ----- Method: MCHttpRepository class>>fillInTheBlankRequest (in category 'ui-support') ----- - ----- Method: MCHttpRepository class>>fillInTheBlankRequest (in category 'as yet unclassified') ----- fillInTheBlankRequest ^ 'HTTP Repository:' ! Item was changed: + ----- Method: MCHttpRepository class>>location:user:password: (in category 'ui-support') ----- - ----- Method: MCHttpRepository class>>location:user:password: (in category 'as yet unclassified') ----- location: location user: user password: password ^ self new location: location; user: user; password: password! Item was changed: + ----- Method: MCHttpRepository class>>morphicConfigure (in category 'ui-support') ----- - ----- Method: MCHttpRepository class>>morphicConfigure (in category 'as yet unclassified') ----- morphicConfigure ^ self fillInTheBlankConfigure! Item was changed: ----- Method: MCRepository class>>location:username:password: (in category 'instance creation') ----- location: urlOrPath username: user password: pass "Answer an MCRepository for the given url or path. Accepted locations are: - http, and ftp urls (i.e., http://source.squeak.org/trunk) - directory paths (i.e., C:\Squeak\packages) - directory matches (i.e., C:\Squeak\packages\*) If provided, the supplied user name and password will be used." | url | (urlOrPath findString: '://') > 0 ifTrue:[ url := urlOrPath asUrl. url scheme caseOf: { ['ftp'] -> [^MCFtpRepository host: url authority directory: url pathString allButFirst user: user password: user]. ['http'] -> [^MCHttpRepository location: urlOrPath user: user password: pass]. } otherwise:[^self error: 'Unsupported scheme: ', url scheme]. ]. (urlOrPath endsWith: '*') ifTrue:[ ^MCSubDirectoryRepository new directory: (FileDirectory on: urlOrPath allButLast)]. + ^MCDirectoryRepository - ^MCDirectoryRepository new directory: (FileDirectory on: urlOrPath)! Item was changed: ----- Method: MCRepository>>creationTemplate: (in category 'accessing') ----- + creationTemplate: aString + creationTemplate := aString! - creationTemplate: aString - self creationTemplate ifNotNil: [ self error: 'Creation template already set for this MCRepository instance.' ]. - - creationTemplate := aString.! Item was changed: ----- Method: MCRepository>>storeVersion: (in category 'accessing') ----- + storeVersion: aMCVersionOrConfiguration + self basicStoreVersion: (self prepareVersionForStorage: aMCVersionOrConfiguration). + self sendNotificationsForVersion: aMCVersionOrConfiguration! - storeVersion: aVersion - self basicStoreVersion: (self prepareVersionForStorage: aVersion). - self sendNotificationsForVersion: aVersion! Item was changed: ----- Method: MCVersionReader class>>loadVersionFile: (in category 'file services') ----- + loadVersionFile: fileName - loadVersionFile: fileName | version | version := self versionFromFile: fileName. + version workingCopy repositoryGroup addRepository: (MCDirectoryRepository path: (FileDirectory dirPathFor: fileName)). + version load! - version workingCopy repositoryGroup addRepository: - (MCDirectoryRepository new directory: - (FileDirectory on: (FileDirectory dirPathFor: fileName))). - version load. - ! Item was changed: ----- Method: MCVersionReader class>>loadVersionStream:fromDirectory: (in category '*monticello-file services') ----- loadVersionStream: stream fromDirectory: directory | version | version := self versionFromStream: stream. directory isRemoteDirectory ifFalse: [ version workingCopy repositoryGroup addRepository: + (MCDirectoryRepository directory: directory). ]. - (MCDirectoryRepository new directory: directory). ]. version load. !

1 0

The Trunk: Monticello-cmm.461.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

1 0

The Trunk: Monticello-cmm.461.mcz
by commits＠source.squeak.org 25 Apr '11

25 Apr '11

1 0

The Trunk: Kernel-nice.573.mcz
by commits＠source.squeak.org 24 Apr '11

24 Apr '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.573.mcz ==================== Summary ==================== Name: Kernel-nice.573 Author: nice Time: 24 April 2011, 10:48:34.956 pm UUID: 6467b07b-fb80-8c41-8f33-91c673a57e88 Ancestors: Kernel-nice.572 Arrange arCosh to answer a positive real part. Arrange arcCos + arcSin to answer halfPi. Implement sinh cosh without intermediate Complex creation. =============== Diff against Kernel-nice.572 =============== Item was changed: ----- Method: Complex>>arCosh (in category 'mathematical functions') ----- arCosh "Answer receiver's area hyperbolic cosine. + That is the inverse function of cosh. + Some possible implementations: - That is the inverse function of cosh." - - "Some possible implementation: - ^imaginary > 0 ifTrue: [(self + (self * self - 1) sqrt) ln] + ifFalse: [(self + (self * self - 1) sqrt) ln negated] + ^self arcCos i + This implementation provides an answer with a positive real part. + It also avoids creating intermediate Complex." + + | x y tmp sh2x shx delta ch2x chx | + imaginary = 0 ifTrue: [real abs > 1 + ifTrue: + [y := real < 0 + ifTrue: [Float pi] + ifFalse: [0]. + x := real abs arCosh. + ^self class real: x imaginary: y] + ifFalse: [^self class real: 0 imaginary: real arcCos]]. + tmp := self squaredNorm - 1 / 2. + delta := tmp squared + imaginary squared. + sh2x := tmp + delta sqrt. + shx := sh2x sqrt. + ch2x := 1 + sh2x. + chx := ch2x sqrt. + x := shx arSinh. + y := imaginary copySignTo: (real / chx) arcCos. + ^self class real: x imaginary: y! - ifFalse: [(self + (self * self - 1) sqrt) ln negated]" - - ^self arcCos i negated! Item was changed: ----- Method: Complex>>arcCos (in category 'mathematical functions') ----- arcCos "Answer the arc cosine of the receiver. This is the inverse function of cos." | x y tmp sh2y shy delta ch2y chy | imaginary = 0 ifTrue: [real abs > 1 ifTrue: [x := real < 0 ifTrue: [Float pi] ifFalse: [0]. + y := real copySignTo: real abs arCosh. - y := real abs arCosh. ^self class real: x imaginary: y] ifFalse: [^self class real: real arcCos imaginary: 0]]. tmp := self squaredNorm - 1 / 2. delta := tmp squared + imaginary squared. sh2y := tmp + delta sqrt. shy := sh2y sqrt. ch2y := 1 + sh2y. chy := ch2y sqrt. y := imaginary copySignTo: shy arSinh. x := (real / chy) arcCos. ^self class real: x imaginary: y negated! Item was changed: ----- Method: Complex>>arcSin (in category 'mathematical functions') ----- arcSin "Answer the arc sine of the receiver. This is the inverse function of sin." | x y tmp delta sh2y shy ch2y chy | imaginary = 0 ifTrue: [real abs > 1 ifTrue: [x := Float pi / 2 * real sign. + y := (real copySignTo: real abs arCosh) negated. - y := real abs arCosh * real sign. ^self class real: x imaginary: y] ifFalse: [^self class real: real arcSin imaginary: 0]]. tmp := (self squaredNorm - 1) / 2. delta := tmp squared + imaginary squared. sh2y := tmp + delta sqrt. shy := sh2y sqrt. ch2y := 1 + sh2y. chy := ch2y sqrt. y := imaginary copySignTo: shy arSinh. x := (real / chy) arcSin. ^self class real: x imaginary: y! Item was changed: ----- Method: Complex>>cosh (in category 'mathematical functions') ----- cosh + "Answer receiver's hyperbolic cosine. + Hyperbolic cosine is defined by same power serie expansion as for real numbers, that is in term of exponential: + ^ (self exp + self negated exp) / 2. + This implementation avoids creating intermediate objects." + + ^self class + real: real cosh * imaginary cos + imaginary: real sinh * imaginary sin! - "Answer receiver's hyperbolic cosine." - - ^ (self exp + self negated exp) / 2! Item was changed: ----- Method: Complex>>sinh (in category 'mathematical functions') ----- sinh + "Answer receiver's hyperbolic sine. + Hyperbolic sine is defined by same power serie expansion as for real numbers, that is in term of exponential: + ^ (self exp - self negated exp) / 2. + This implementation avoids creating intermediate objects." + + ^self class + real: real sinh * imaginary cos + imaginary: real cosh * imaginary sin! - "Answer receiver's hyperbolic sine." - - ^ (self exp - self negated exp) / 2!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
51
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 April 2011