Squeak-dev May 2013

squeak-dev@lists.squeakfoundation.org

59 participants
334 discussions

Re: [squeak-dev] The Trunk: Collections-fbs.516.mcz
by Chris Muller 03 May '13

03 May '13

Hmph -- since you were asking for consensus on something, it would be nice to have a little more time to respond -- as I did in < 24 hours, but still apparently too late. didn't get much discussion. ay we please have more time On Thu, May 2, 2013 at 5:56 AM, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of Collections to project The Trunk: > http://source.squeak.org/trunk/Collections-fbs.516.mcz > > ==================== Summary ==================== > > Name: Collections-fbs.516 > Author: fbs > Time: 1 May 2013, 10:14:23.588 pm > UUID: e787006a-d096-47f3-93da-c4681285fae2 > Ancestors: Collections-ul.515 > > Surrounding the -> in an Assocation in printed form allows the left side to be a binary selector without things breaking: #* -> #+ otherwise prints as '#*->#+', which is the Symbol #*-> followed by garbage. > > =============== Diff against Collections-ul.515 =============== > > Item was changed: > ----- Method: Association>>printOn: (in category 'printing') ----- > printOn: aStream > > super printOn: aStream. > + "If the key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." > + aStream nextPutAll: ' -> '. > - aStream nextPutAll: '->'. > value printOn: aStream! > > Item was changed: > ----- Method: Association>>storeOn: (in category 'printing') ----- > storeOn: aStream > "Store in the format (key->value)" > aStream nextPut: $(. > key storeOn: aStream. > + "If key is a binary selector and we don't use whitespace, we will stream (key, '->') asSymbol." > + aStream nextPutAll: ' -> '. > - aStream nextPutAll: '->'. > value storeOn: aStream. > aStream nextPut: $)! > >

4 8

Gems in the bugtracker (was Re: [squeak-dev] The Trunk: Kernel-cmm.757.mcz)
by Frank Shearar 03 May '13

03 May '13

On 3 May 2013 17:44, Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> wrote: > Then we should close > http://bugs.squeak.org/bug_view_advanced_page.php?bug_id=7255 > See also the link to > http://english.stackexchange.com/questions/24457/general-purpose-antonym-fo… Really, this should have been done about 5 years ago: it's a nice feature, and M8R provided tests. What else might be lurking in there? frank > 2013/5/3 <commits(a)source.squeak.org> > >> Chris Muller uploaded a new version of Kernel to project The Trunk: >> http://source.squeak.org/trunk/Kernel-cmm.757.mcz >> >> ==================== Summary ==================== >> >> Name: Kernel-cmm.757 >> Author: cmm >> Time: 3 May 2013, 11:37:02.186 am >> UUID: 655c18f5-1a73-4fae-bd0d-0e2bb4bb06d7 >> Ancestors: Kernel-dtl.756 >> >> - Added convenience methods for creating DateAndTimes relative to now. >> - When materializing Floats via fromIEEE32Bit:, use the canonicalized 0.0. >> >> =============== Diff against Kernel-dtl.756 =============== >> >> Item was added: >> + ----- Method: Duration>>ago (in category 'squeak protocol') ----- >> + ago >> + "Answer the DateAndTime which was the receiver's duration ago. >> + e.g., 5 minutes ago. 2 days ago." >> + ^ DateAndTime now - self! >> >> Item was added: >> + ----- Method: Duration>>fromNow (in category 'squeak protocol') ----- >> + fromNow >> + "Answer the DateAndTime which which occurs the receiver's duration >> from now. >> + e.g., 5 minutes fromNow. 2 days fromNow." >> + ^ DateAndTime now + self! >> >> > > > >

2 1

Re: [squeak-dev] The Trunk: Kernel-cmm.758.mcz
by Bert Freudenberg 03 May '13

03 May '13

On 2013-05-03, at 16:44, commits(a)source.squeak.org wrote: > Chris Muller uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-cmm.758.mcz > > ==================== Summary ==================== > > Name: Kernel-cmm.758 > Author: cmm > Time: 3 May 2013, 11:43:45.83 am > UUID: b64656cf-20bf-4bad-9fca-2750e1c67e67 > Ancestors: Kernel-cmm.757 > > - Another ticky-tack commit because Monticello-bf.540 did not capture ALL package changes. We already established that my MC mod does not match your old workflow ;) OTOH, I do prefer this to be two separate commits, because they have nothing to do with each other, except that they happen to be in the same package. - Bert - > The comment for the prior package is wrong, it did not include this change because I failed to: > > 1) Copy the change text to the clipboard > 2) click "Cancel" > 3) Find a MC browser. > 4) Click "Save" > 5) Re-paste the change text. > > Please see my immediate ancestor for what this change is about. > > =============== Diff against Kernel-cmm.757 =============== > > Item was changed: > ----- Method: Float class>>fromIEEE32Bit: (in category 'instance creation') ----- > fromIEEE32Bit: word > "Convert the given 32 bit word (which is supposed to be a positive 32bit value) from a 32bit IEEE floating point representation into an actual Squeak float object (being 64bit wide). Should only be used for conversion in FloatArrays or likewise objects." > > | sign mantissa exponent newFloat delta | > word negative ifTrue: [^ self error:'Cannot deal with negative numbers']. > + word = 0 ifTrue: [^ Float zero]. > - word = 0 ifTrue: [^ 0.0]. > sign := word bitAnd: 16r80000000. > word = sign ifTrue: [^self negativeZero]. > > exponent := ((word bitShift: -23) bitAnd: 16rFF) - 127. > mantissa := word bitAnd: 16r7FFFFF. > > exponent = 128 ifTrue:["Either NAN or INF" > mantissa = 0 ifFalse:[^ Float nan]. > sign = 0 > ifTrue:[^ Float infinity] > ifFalse:[^ Float infinity negated]]. > > exponent = -127 ifTrue: [ > "gradual underflow (denormalized number) > Remove first bit of mantissa and adjust exponent" > delta := mantissa highBit. > mantissa := (mantissa bitShift: 1) bitAnd: (1 bitShift: delta) - 1. > exponent := exponent + delta - 23]. > > "Create new float" > newFloat := self new: 2. > newFloat basicAt: 1 put: ((sign bitOr: (1023 + exponent bitShift: 20)) bitOr: (mantissa bitShift: -3)). > newFloat basicAt: 2 put: ((mantissa bitAnd: 7) bitShift: 29). > ^newFloat! > >

3 3

[ANN] GemStone/S product and team move to a dedicated company
by Dale Henrichs 03 May '13

03 May '13

If you haven't already heard, the GemStone/S team is becoming an independent company after 3 years as part of VMware. The entire engineering team is moving to GemTalk Systems[1]. GemTalk Systems is completely focused on Smalltalk, GemStone/S and allied initiatives. I've published a blog post[2] with my take on the acquisition (short answer is "excited!"), if you have any additional questions, feel free to contact me. Dale [1] http://gemtalksystems.com/index.php/about-us/engineers/ [2] http://gemstonesoup.wordpress.com/2013/05/02/gemtalk-systems-acquires-gemst…

1 0

Re: [squeak-dev] The Inbox: Monticello-bf.540.mcz
by Chris Muller 03 May '13

03 May '13

Bert, the UI enhancement is great, but, as you can see from my test commit of Kernel, it has the same problem as before. What happened here was that, I had 2 changed methods in Kernel. During review, I discovered an additional change to one more method needed, so I did that. Then I saved it -- but the package remained dirty and it didn't capture any of my changes resulting from the review! So the package was saved with incorrect comments and I had to save again, further bloating out ancestry and our repositories with ticky-tack one-liner changes. It's very nice to invoke the save dialog and see the changes on the save dialog all with one click, but not at the cost of decimating the review-and-fix process. We need to diff to the target repository BEFORE invoking the final save rather than after. On Fri, May 3, 2013 at 5:06 AM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of Monticello to project The Inbox: > http://source.squeak.org/inbox/Monticello-bf.540.mcz > > ==================== Summary ==================== > > Name: Monticello-bf.540 > Author: bf > Time: 3 May 2013, 12:06:01.01 pm > UUID: 759525eb-5ca8-4ab2-9e4a-bddc7d0680dc > Ancestors: Monticello-bf.532, Monticello-fbs.539 > > This is my allow-partial-commits mod, improved to always diff to the target repository, and merged with the latest fbs.359 trunk version. > > =============== Diff against Monticello-bf.532 =============== > > Item was changed: > ----- Method: MCClassDefinition>>createClass (in category 'installing') ----- > createClass > | superClass class composition | > superClass := superclassName == #nil ifFalse: > [Smalltalk at: superclassName]. > [class := (ClassBuilder new) > name: name > inEnvironment: superClass environment > subclassOf: superClass > type: type > instanceVariableNames: self instanceVariablesString > classVariableNames: self classVariablesString > poolDictionaries: self sharedPoolsString > category: category. > ] on: Warning, DuplicateVariableError do:[:ex| ex resume]. > > "The following is written to support traits unloading" > + composition := self traitComposition ifNil: [Array new] ifNotNil: [:traitComposition | Compiler evaluate: traitComposition]. > - composition := Compiler evaluate: (self traitComposition ifNil:['{}']). > (composition isCollection and:[composition isEmpty and:[class traitComposition isEmpty]]) ifFalse:[ > class setTraitComposition: composition asTraitComposition. > ]. > > + composition := self classTraitComposition ifNil: [Array new] ifNotNil: [:traitComposition | Compiler evaluate: traitComposition]. > - composition := Compiler evaluate: (self classTraitComposition ifNil:['{}']). > (composition isCollection and:[composition isEmpty and:[class class traitComposition isEmpty]]) ifFalse:[ > class class setTraitComposition: composition asTraitComposition. > ]. > > ^class! > > Item was changed: > ----- Method: MCFileBasedRepository>>versionNamed: (in category 'versions') ----- > + versionNamed: aMCVersionName > - versionNamed: aMCVersionName > "For FileBased repositories, aMCVersionName must have the appropriate extension!! :-(" > + | version | > + version := self cache > + at: aMCVersionName > + ifAbsent: > + [ [ self loadVersionFromFileNamed: aMCVersionName ] > + on: FileDoesNotExistException > + do: [ : err | nil ] ]. > - | v | > - v := self cache at: aMCVersionName ifAbsent: [self loadVersionFromFileNamed: aMCVersionName]. > self resizeCache: cache. > + (version notNil and: [ version isCacheable ]) ifTrue: > + [ cache > + at: aMCVersionName asMCVersionName > + put: version ]. > + ^ version! > - (v notNil and: [v isCacheable]) ifTrue: [cache at: aMCVersionName asMCVersionName put: v]. > - ^ v! > > Item was changed: > ----- Method: MCRepository class>>fillInTheBlankConfigure: (in category 'configuring') ----- > fillInTheBlankConfigure: aTemplateString > | chunk repo | > > aTemplateString ifNil: [ ^ false ]. > + chunk := UIManager default > + multiLineRequest: self fillInTheBlankRequest > + centerAt: Sensor cursorPoint > + initialAnswer: aTemplateString > + answerHeight: 120. > - chunk := FillInTheBlankMorph > - request: self fillInTheBlankRequest > - initialAnswer: aTemplateString > - centerAt: Sensor cursorPoint > - inWorld: World > - onCancelReturn: nil > - acceptOnCR: false > - answerExtent: 400@120. > > chunk > ifNotNil: [ > repo := self readFrom: chunk readStream. > repo creationTemplate: chunk. > ]. > > ^ repo! > > Item was added: > + ----- Method: MCRepository>>normalized (in category 'accessing') ----- > + normalized > + ^ (MCRepositoryGroup default repositories includes: self) > + ifTrue: [ self ] > + ifFalse: [ self copy ]! > > Item was added: > + ----- Method: MCRepository>>normalizedRepositories (in category 'private') ----- > + normalizedRepositories > + ^ Array with: self normalized! > > Item was added: > + ----- Method: MCRepository>>repositories (in category 'accessing') ----- > + repositories > + ^ Array with: self! > > Item was added: > + ----- Method: MCRepositoryGroup>>allPackageNames (in category 'repository-api') ----- > + allPackageNames > + ^ repositories > + inject: Set new > + into: > + [ : set : each | set > + addAll: each allPackageNames ; > + yourself ]! > > Item was added: > + ----- Method: MCRepositoryGroup>>basicStoreVersion: (in category 'repository-api') ----- > + basicStoreVersion: aVersion > + "RepositoryGroup is used for reading, not writing." > + self shouldNotImplement! > > Item was added: > + ----- Method: MCRepositoryGroup>>description (in category 'repository-api') ----- > + description > + ^ String streamContents: > + [ : stream | stream nextPutAll: '{ '. > + repositories > + do: [ : each | stream nextPut: $'; nextPutAll: each description; nextPut: $' ] > + separatedBy: [ stream nextPutAll: '. ' ]. > + stream nextPutAll: ' }' ]! > > Item was changed: > + ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'repository-api') ----- > - ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'testing') ----- > includesVersionNamed: aString > + ^ repositories anySatisfy: [ : each | [each includesVersionNamed: aString] on: Error do: [false]]! > - | versionName | > - versionName := aString asMCVersionName. > - self repositoriesDo: > - [ : ea | (ea includesVersionNamed: versionName) ifTrue: [ ^ true ] ]. > - ^ false! > > Item was changed: > ----- Method: MCRepositoryGroup>>initialize (in category 'initialize-release') ----- > initialize > + super initialize. > repositories := OrderedCollection new! > > Item was added: > + ----- Method: MCRepositoryGroup>>morphicOpen: (in category 'ui') ----- > + morphicOpen: aWorkingCopy > + ^ self repositories do: [:repo | repo morphicOpen: aWorkingCopy].! > > Item was added: > + ----- Method: MCRepositoryGroup>>normalizedRepositories (in category 'accessing') ----- > + normalizedRepositories > + "Find an existing instance of any active repository so that we use whatever name and password the user usually uses. If not found, answer a copy" > + ^ repositories collect: [ : each | each normalized ]! > > Item was added: > + ----- Method: MCRepositoryGroup>>versionNamed: (in category 'repository-api') ----- > + versionNamed: aMCVersionName > + repositories do: > + [ : each | (each versionNamed: aMCVersionName) ifNotNil: [ : ver | ^ ver ] ]. > + ^ nil! > > Item was added: > + ----- Method: MCRepositoryGroup>>versionNamesForPackageNamed: (in category 'repository-api') ----- > + versionNamesForPackageNamed: aString > + ^ repositories > + inject: Set new > + into: > + [ : set : each | set > + addAll: (each versionNamesForPackageNamed: aString) ; > + yourself ]! > > Item was added: > + ----- Method: MCRepositoryGroup>>versionWithInfo:ifAbsent: (in category 'repository-api') ----- > + versionWithInfo: aVersionInfo ifAbsent: aBlock > + repositories do: > + [ : each | (each > + versionWithInfo: aVersionInfo > + ifAbsent: [ ]) ifNotNil: > + [ : ver | ^ ver ] ]. > + ^ aBlock value! > > Item was added: > + Notification subclass: #MCRepositoryRequest > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Monticello-UI'! > > Item was changed: > ----- Method: MCSaveVersionDialog>>defaultExtent (in category 'as yet unclassified') ----- > defaultExtent > + ^ 600@600! > - ^ 400@300! > > Item was changed: > ----- Method: MCSaveVersionDialog>>ignoreSelection (in category 'as yet unclassified') ----- > ignoreSelection > selection > ifNil: [ignore size = items size > ifFalse: [ignore addAll: items] > ifTrue: [ignore removeAll]] > ifNotNil: [ > ignore remove: selection ifAbsent: [ > + ignore add: selection]. > + self selection < items size > + ifTrue: [self selection: self selection + 1]]. > - ignore add: selection]]. > self changed: #list > ! > > Item was changed: > ----- Method: MCSmtpRepository class>>morphicConfigure (in category 'as yet unclassified') ----- > morphicConfigure > | address | > + address := UIManager default request: 'Email address:'. > - address := FillInTheBlankMorph request: 'Email address:'. > ^ address isEmpty ifFalse: [self new emailAddress: address]! > > Item was changed: > Model subclass: #MCTool > + instanceVariableNames: 'morph label modalProcess modalValue' > - instanceVariableNames: 'morph label modal modalValue' > classVariableNames: '' > poolDictionaries: '' > category: 'Monticello-UI'! > > Item was changed: > ----- Method: MCTool>>answer: (in category 'morphic ui') ----- > answer: anObject > + (modalProcess notNil and: [modalProcess ~~ Processor activeProcess]) > + ifTrue: [^self inform: 'This modal dialog was interrupted, please close it']. > modalValue := anObject. > self close.! > > Item was changed: > ----- Method: MCTool>>show (in category 'morphic ui') ----- > show > + modalProcess := nil. > - modal := false. > Smalltalk at: #ToolBuilder ifPresent: [:tb | tb open: self. ^ self]. > ^self window openInWorldExtent: self defaultExtent; yourself! > > Item was changed: > ----- Method: MCTool>>showLabelled: (in category 'morphic ui') ----- > showLabelled: labelString > + modalProcess := nil. > - modal := false. > self label: labelString. > ^(self window) > openInWorldExtent: self defaultExtent; > yourself! > > Item was changed: > ----- Method: MCTool>>showModally (in category 'morphic ui') ----- > showModally > + modalProcess := Processor activeProcess. > + self window openInWorldExtent: self defaultExtent. > - modal := true. > - self window openInWorldExtent: (400@400). > [self window world notNil] whileTrue: [ > self window outermostWorldMorph doOneCycle. > ]. > morph := nil. > ^ modalValue! > > Item was changed: > ----- Method: MCVersion>>fileName (in category 'accessing') ----- > fileName > + |rawName cookedName| > + > + rawName := info name. > + "care for invalid filename characters" > + cookedName := rawName copy > + replaceAll: $/ with: $_; > + replaceAll: $: with: $_.. > + ^ (cookedName, '.', self writerClass extension) asMCVersionName! > - ^ (info name, '.', self writerClass extension) asMCVersionName! > > Item was changed: > ----- Method: MCWorkingCopy>>parentSnapshot (in category 'private') ----- > parentSnapshot > + "prefer parent in selected repository" > + MCRepositoryRequest signal ifNotNil: [:repo | > + self ancestors do: [:ancestor | > + (repo versionWithInfo: ancestor) > + ifNotNil: [:ver | ^ver snapshot]]]. > + "otherwise, look in all repositories" > + self ancestors do: [:ancestor | > + (self repositoryGroup versionWithInfo: ancestor) > + ifNotNil: [:ver | ^ver snapshot]]. > + "otherwise" > + ^MCSnapshot empty! > - ^ self findSnapshotWithVersionInfo: (self ancestors > - ifEmpty: [nil] > - ifNotEmpty: [self ancestors first])! > > Item was changed: > ----- Method: MCWorkingCopyBrowser>>addWorkingCopy (in category 'actions') ----- > addWorkingCopy > |name| > + name := UIManager default request: 'Name of package:'. > - name := FillInTheBlankMorph request: 'Name of package:'. > name isEmptyOrNil ifFalse: > [PackageInfo registerPackageName: name. > workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name). > workingCopyWrapper := nil. > self repositorySelection: 0]. > self workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList. > self changedButtons.! > > Item was changed: > ----- Method: MCWorkingCopyBrowser>>editLoadScripts (in category 'morphic ui') ----- > editLoadScripts > > + | arg | > - | menu | > self hasWorkingCopy ifFalse: [^self]. > + arg := UIManager default > + chooseFrom: #('edit preamble' 'edit postscript' 'edit preambleOfRemoval' 'edit postscriptOfRemoval') > + values: #(#preamble #postscript #preambleOfRemoval #postscriptOfRemoval). > + > + arg ifNotNil: [ > + self editScript: arg].! > - menu := MenuMorph new defaultTarget: self. > - menu add: 'edit preamble' selector: #editScript: argument: #preamble. > - menu add: 'edit postscript' selector: #editScript: argument: #postscript. > - menu add: 'edit preambleOfRemoval' selector: #editScript: argument: #preambleOfRemoval. > - menu add: 'edit postscriptOfRemoval' selector: #editScript: argument: #postscriptOfRemoval. > - menu popUpInWorld.! > > Item was changed: > ----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') ----- > renamePackage > | newName | > workingCopy ifNil: > [ UIManager inform: 'Please select a package to be renamed.'. > ^ self ]. > workingCopy modified ifTrue: > [ UIManager inform: 'Only unmodified packages should be renamed.'. > ^ self ]. > + newName := UIManager default > - newName := FillInTheBlankMorph > request: 'New name of package:' > initialAnswer: workingCopy packageName. > newName isEmptyOrNil ifFalse: > [ | newWorkingCopy | > newWorkingCopy := workingCopy renameToBe: newName. > workingCopy package snapshot definitions > ifEmpty: > [ "It worked." > workingCopy unregister. > workingCopy := newWorkingCopy. > self repositorySelection: 0. > self > workingCopyListChanged ; > changed: #workingCopySelection ; > changed: #repositoryList. > self changedButtons ] > ifNotEmpty: > [ "It didn't work, browse the remaining definitions." > self browseWorkingCopy ] ]! > > Item was changed: > ----- Method: MCWorkingCopyBrowser>>saveVersion (in category 'actions') ----- > saveVersion > | repo | > self canSave ifFalse: [^self]. > self checkForNewerVersions ifFalse: [^self]. > repo := self repository. > + (self withRepository: repo do: [workingCopy newVersion]) ifNotNil: > - workingCopy newVersion ifNotNil: > [:v | > (MCVersionInspector new version: v) show. > Cursor wait showWhile: [repo storeVersion: v]. > MCCacheRepository default cacheAllFileNamesDuring: > [repo cacheAllFileNamesDuring: > [v allAvailableDependenciesDo: > [:dep | > (repo includesVersionNamed: dep info name) > ifFalse: [repo storeVersion: dep]]]]]! > > Item was added: > + ----- Method: MCWorkingCopyBrowser>>withRepository:do: (in category 'actions') ----- > + withRepository: aRepository do: aBlock > + ^aBlock > + on: MCRepositoryRequest > + do: [:req | req resume: aRepository]! > >

1 0

The Trunk: Kernel-cmm.758.mcz
by commits＠source.squeak.org 03 May '13

03 May '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.758.mcz ==================== Summary ==================== Name: Kernel-cmm.758 Author: cmm Time: 3 May 2013, 11:43:45.83 am UUID: b64656cf-20bf-4bad-9fca-2750e1c67e67 Ancestors: Kernel-cmm.757 - Another ticky-tack commit because Monticello-bf.540 did not capture ALL package changes. The comment for the prior package is wrong, it did not include this change because I failed to: 1) Copy the change text to the clipboard 2) click "Cancel" 3) Find a MC browser. 4) Click "Save" 5) Re-paste the change text. Please see my immediate ancestor for what this change is about. =============== Diff against Kernel-cmm.757 =============== Item was changed: ----- Method: Float class>>fromIEEE32Bit: (in category 'instance creation') ----- fromIEEE32Bit: word "Convert the given 32 bit word (which is supposed to be a positive 32bit value) from a 32bit IEEE floating point representation into an actual Squeak float object (being 64bit wide). Should only be used for conversion in FloatArrays or likewise objects." | sign mantissa exponent newFloat delta | word negative ifTrue: [^ self error:'Cannot deal with negative numbers']. + word = 0 ifTrue: [^ Float zero]. - word = 0 ifTrue: [^ 0.0]. sign := word bitAnd: 16r80000000. word = sign ifTrue: [^self negativeZero]. exponent := ((word bitShift: -23) bitAnd: 16rFF) - 127. mantissa := word bitAnd: 16r7FFFFF. exponent = 128 ifTrue:["Either NAN or INF" mantissa = 0 ifFalse:[^ Float nan]. sign = 0 ifTrue:[^ Float infinity] ifFalse:[^ Float infinity negated]]. exponent = -127 ifTrue: [ "gradual underflow (denormalized number) Remove first bit of mantissa and adjust exponent" delta := mantissa highBit. mantissa := (mantissa bitShift: 1) bitAnd: (1 bitShift: delta) - 1. exponent := exponent + delta - 23]. "Create new float" newFloat := self new: 2. newFloat basicAt: 1 put: ((sign bitOr: (1023 + exponent bitShift: 20)) bitOr: (mantissa bitShift: -3)). newFloat basicAt: 2 put: ((mantissa bitAnd: 7) bitShift: 29). ^newFloat!

1 0

The Trunk: Kernel-cmm.757.mcz
by commits＠source.squeak.org 03 May '13

03 May '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.757.mcz ==================== Summary ==================== Name: Kernel-cmm.757 Author: cmm Time: 3 May 2013, 11:37:02.186 am UUID: 655c18f5-1a73-4fae-bd0d-0e2bb4bb06d7 Ancestors: Kernel-dtl.756 - Added convenience methods for creating DateAndTimes relative to now. - When materializing Floats via fromIEEE32Bit:, use the canonicalized 0.0. =============== Diff against Kernel-dtl.756 =============== Item was added: + ----- Method: Duration>>ago (in category 'squeak protocol') ----- + ago + "Answer the DateAndTime which was the receiver's duration ago. + e.g., 5 minutes ago. 2 days ago." + ^ DateAndTime now - self! Item was added: + ----- Method: Duration>>fromNow (in category 'squeak protocol') ----- + fromNow + "Answer the DateAndTime which which occurs the receiver's duration from now. + e.g., 5 minutes fromNow. 2 days fromNow." + ^ DateAndTime now + self!

1 0

ReleaseBuilder* -> 45Deprecated?
by Frank Shearar 03 May '13

03 May '13

I've come to the conclusion that having a whole swathe of ReleaseBuilders is wrong. Mostly this comes down to: * there is no way of knowing (without a lot of testing) that your ReleaseBuilderForSpecialCircumstances still works after that trivial refactoring you just did to ReleaseBuilder, and just as importantly, * who would want to make a 4.4 release (or 4.3, or 3.11, or 3.10!) from a 4.5 image? There's a slight argument in the case of ReleaseBuilderNihongo and ReleaseBuilderSqueakland, but I'd argue that these too don't belong in _trunk_. So I would like to turn ReleaseBuilderFor4dot5 into the one and only ReleaseBuilder, delete the old 3.11-4.4 builders, and put ReleaseBuilder(Nihongo|Squeakland) into a separate package, loaded in during the release process but otherwise not in Trunk. (In other words, they go the same route as XML-Parser, Universes and so on.) Thoughts? Comments? frank

5 7

The Trunk: Tests-fbs.203.mcz
by commits＠source.squeak.org 03 May '13

03 May '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.203.mcz ==================== Summary ==================== Name: Tests-fbs.203 Author: fbs Time: 3 May 2013, 3:33:25.703 pm UUID: 71609b7a-6031-460e-8381-349a5ff51d64 Ancestors: Tests-cwp.202 Update the dependency tests: strict removals of dependencies makes me happy. =============== Diff against Tests-cwp.202 =============== Item was changed: ----- Method: PackageDependencyTest>>testEtoys (in category 'tests') ----- testEtoys self testPackage: 'EToys' dependsExactlyOn: #( Balloon Collections Compiler Compression Exceptions Files Graphics Kernel Morphic MorphicExtras Network Protocols - ReleaseBuilder ST80 SUnit System 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testSystem (in category 'tests') ----- testSystem self testPackage: 'System' dependsExactlyOn: #( Collections Compiler Compression Environments Exceptions Files GetText Graphics Kernel Monticello MonticelloConfigurations Morphic MorphicExtras Multilingual Network 'PackageInfo-Base' Protocols Sound - 'SmallLand-ColorTheme' 'ToolBuilder-Kernel' Tools TrueType ).!

1 0

ScriptLoader time to die?
by Frank Shearar 03 May '13

03 May '13

Like tears in rain. It doesn't seem to be used by anything, there's a comment in it suggesting it be folded into ReleaseBuilder, ... frank

3 8

← Newer
1
...
27
28
29
30
31
32
33
34
Older →

Jump to page: