Squeak-dev April 2013

squeak-dev@lists.squeakfoundation.org

66 participants
225 discussions

Fwd: Fwd: [squeakland] The Dynabook and modern computing
by Yoshiki Ohshima 03 Apr '13

03 Apr '13

Benoit, Hope this helps, ---------- Forwarded message ---------- From: Alan Kay <alan.nemo(a)yahoo.com> Date: Tue, Apr 2, 2013 at 11:57 AM Subject: Re: Fwd: [squeakland] The Dynabook and modern computing To: Yoshiki Ohshima <Yoshiki.Ohshima(a)acm.org> Cc: Bert Freudenberg <bert(a)freudenbergs.de> Ask him: how did the invention of agriculture influence "civilization"? Or: what is ultimately more powerful, competition or cooperation? Cheers, Alan ________________________________ From: Yoshiki Ohshima <Yoshiki.Ohshima(a)acm.org> To: Alan Kay <alan.nemo(a)yahoo.com> Cc: Bert Freudenberg <bert(a)freudenbergs.de> Sent: Tuesday, April 2, 2013 11:47 AM Subject: Fwd: [squeakland] The Dynabook and modern computing Benoit is asking this. ---------- Forwarded message ---------- From: Benoît Fleury <benoit.fleury(a)gmail.com> Date: Tue, Apr 2, 2013 at 11:36 AM Subject: Re: [squeakland] The Dynabook and modern computing To: Bert Freudenberg <bert(a)freudenbergs.de> Cc: IAEP SugarLabs <iaep(a)lists.sugarlabs.org>, squeakland list <squeakland(a)squeakland.org> Thank you Bert for the link. I am not sure to understand this metaphor with agriculture. "One way to think of all of these organizations is to realize that if they require a charismatic leader who will shoot people in the knees when needed, then the corporate organization and process is a failure. It means no group can come up with a good decision and make it stick just because it is a good idea. All the companies I’ve worked for have this deep problem of devolving to something like the hunting and gathering cultures of 100,000 years ago. If businesses could find a way to invent “agriculture” we could put the world back together and all would prosper." If someone could explain me what it means. Thanks, Benoit. On Tue, Apr 2, 2013 at 1:38 PM, Bert Freudenberg <bert(a)freudenbergs.de> wrote: > Time interviews Alan Kay: > > http://techland.time.com/2013/04/02/an-interview-with-computing-pioneer-ala… > > - Bert - > > > _______________________________________________ > squeakland mailing list > squeakland(a)squeakland.org > http://lists.squeakland.org/mailman/listinfo/squeakland _______________________________________________ squeakland mailing list squeakland(a)squeakland.org http://lists.squeakland.org/mailman/listinfo/squeakland -- -- Yoshiki -- -- Yoshiki

3 2

Daily Commit Log
by commits＠source.squeak.org 03 Apr '13

03 Apr '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-April/005826.html Name: Environments-cwp.19 Ancestors: Environments-cwp.18 Bindings cleanup stage 1/2. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005827.html Name: Tests-cwp.195 Ancestors: Tests-dtl.194 Make environment tests use the new binding classes, add tests for #literalEqual:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005828.html Name: Environments-cwp.20 Ancestors: Environments-cwp.19 Bindings cleanup stage 2/2. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-April/005829.html Name: Environments-fbs.21 Ancestors: Environments-cwp.20 When a class removes itself from the system, we need to forget about the class... including our reference to it in our list of bindings. =============================================

1 0

Re: [squeak-dev] The Trunk: Tests-cwp.195.mcz
by Frank Shearar 02 Apr '13

02 Apr '13

On 2 April 2013 07:13, <commits(a)source.squeak.org> wrote: > Colin Putney uploaded a new version of Tests to project The Trunk: > http://source.squeak.org/trunk/Tests-cwp.195.mcz > > ==================== Summary ==================== > > Name: Tests-cwp.195 > Author: cwp > Time: 1 April 2013, 11:13:55.788 pm > UUID: d0b0de68-7e72-4291-a7c2-e9b35372660f > Ancestors: Tests-dtl.194 > > Make environment tests use the new binding classes, add tests for #literalEqual:. > > =============== Diff against Tests-dtl.194 =============== > > Item was changed: > + AnObsoleteClassTestCase subclass: #EventManagerTest > - ClassTestCase subclass: #EventManagerTest That's not right, surely? Did you base these changes on an image updated past Eliot's moving of ClassTestCase to SUnit? (They cause a debugger to pop up, talking about deprecated classes. That will cause big issues for a CI environment.) frank

3 2

Unloading packages with Environments (was Re: [squeak-dev] Re: Towards SqueakCore)
by Frank Shearar 02 Apr '13

02 Apr '13

On 1 April 2013 20:44, Eliot Miranda <eliot.miranda(a)gmail.com> wrote: > > > On Sat, Mar 30, 2013 at 4:52 AM, Frank Shearar <frank.shearar(a)gmail.com> > wrote: >> >> On 25 February 2013 18:51, David T. Lewis <lewis(a)mail.msen.com> wrote: >> > On Mon, Feb 25, 2013 at 04:57:54PM +0000, Frank Shearar wrote: >> >> On 25 February 2013 16:37, Bert Freudenberg <bert(a)freudenbergs.de> >> >> wrote: >> >> > On 2013-02-25, at 17:07, Frank Shearar <frank.shearar(a)gmail.com> >> >> > wrote: >> >> > >> >> >> On 25 February 2013 15:35, David T. Lewis <lewis(a)mail.msen.com> >> >> >> wrote: >> >> >>> On Mon, Feb 25, 2013 at 03:01:18PM +0000, Frank Shearar wrote: >> >> >>>> On 25 February 2013 14:49, Bert Freudenberg <bert(a)freudenbergs.de> >> >> >>>> wrote: >> >> >>>>> >> >> >>>>> On 2013-02-25, at 15:33, Frank Shearar <frank.shearar(a)gmail.com> >> >> >>>>> wrote: >> >> >>>>> >> >> >>>>>> On 14 February 2013 16:50, Frank Shearar >> >> >>>>>> <frank.shearar(a)gmail.com> wrote: >> >> >>>>>>> No, this takes the Trunk image as is and runs the job. No >> >> >>>>>>> stripping >> >> >>>>>>> has occurred. Noone's actually said "oh, that's a sane idea >> >> >>>>>>> someone >> >> >>>>>>> should do that" yet (except possibly for you, by virtue of not >> >> >>>>>>> saying >> >> >>>>>>> "are you crazy?" :) ), so I haven't done it yet. >> >> >>>>>>> >> >> >>>>>>> So the installation is essentially a no-op. >> >> >>>>>>> >> >> >>>>>>> With green lights on these builds, we can now verify that >> >> >>>>>>> removing >> >> >>>>>>> these packages won't break anything. At least, to the limit of >> >> >>>>>>> the >> >> >>>>>>> tests, which isn't much at all. So if we _do_ actually strip >> >> >>>>>>> these >> >> >>>>>>> guys out of Trunk, the builds should stay green. If they don't, >> >> >>>>>>> we'll >> >> >>>>>>> need to roll back the change and investigate. >> >> >>>>>>> >> >> >>>>>>> But I don't actually know how to strip them out of Trunk. I >> >> >>>>>>> _suspect_ >> >> >>>>>>> it'll be via a Monticello config map of some description. >> >> >>>>>> >> >> >>>>>> Anyone? Bert? How do we strip packages out of Trunk? >> >> >>>>> >> >> >>>>> Manually once, when you prepare the Core image. Otherwise, if we >> >> >>>>> put it in the trunk update stream, the packages would be unloaded from >> >> >>>>> everyone's working images when updating. >> >> >>>> >> >> >>>> Given that we're early in 4.5's release cycle, if we do this kind >> >> >>>> of >> >> >>>> thing - stripping unnecessary things out of trunk - we ought to do >> >> >>>> it >> >> >>>> now rather than later. And announce loudly what we're doing, why, >> >> >>>> and >> >> >>>> how people can load in their favourite not-Core packages. >> >> >>> >> >> >>> NO. >> >> >>> >> >> >>> If Squeak developers work with images that contain just "their >> >> >>> favourite >> >> >>> non-Core packages" then none of the non-Core packages get >> >> >>> maintained. >> >> >> >> >> >> Clearly we disagree quite a bit on this, but I don't think anyone >> >> >> should actually _work_ on a Core image. _Noone_ should be able to >> >> >> work >> >> >> effectively in a minimal image because such a thing wouldn't even >> >> >> have >> >> >> a Browser! >> >> > >> >> > We don't disagree on this at all. People should be working in a full >> >> > image. >> >> >> >> OK, cool. Finding out points of agreement helps in finding out where >> >> we disagree :) >> >> >> >> >>> It is important to work on making packages loadable and unloadable, >> >> >>> but >> >> >>> you do not need to break the trunk image in order to accomplish >> >> >>> this. >> >> >> >> >> >> Who's breaking trunk? I want to remove packages that are already >> >> >> unloadable, >> >> > >> >> > Yes, but not from *user's* images, from the *core* image that is only >> >> > used by the CI to build a full image. >> >> > >> >> >> and have CI jobs that run every time Trunk updates that >> >> >> verifies that the packages can (a) reload and (b) run as well as we >> >> >> already know now (which is not very). To be precise: Universes (for >> >> >> example) might be smashed beyond recognition, and there is no way to >> >> >> know, because it has something like 23% method coverage. >> >> > >> >> > Right. >> >> > >> >> >> Removing these packages from Trunk _will_ affect people updating >> >> >> from >> >> >> Trunk, I agree. How else do we make Trunk simpler, if not by >> >> >> removing >> >> >> stuff? >> >> > >> >> > I think we may be talking past each other. There are two types of >> >> > packages we want to "remove from trunk": >> >> > >> >> > full = core packages + unloadable packages + deprecated packages >> >> > >> >> > So there are unloadable packages which should still exist in a full >> >> > image that everyone is using. And there are deprecated packages which should >> >> > not exist in a full image. >> >> > >> >> > Both core packages and unloadable packages are in Trunk. The only >> >> > packages that we actually want to remove for good are the deprecated ones. >> >> > The mechanics of unloading a deprecated package is by committing an empty >> >> > version (which will remove all the classes and methods from user's images >> >> > when updating), and eventually removing the now empty package from the >> >> > update map (and bumping the squeak-version package to keep update numbers >> >> > continuous). >> >> > >> >> > Maybe that's what you were asking about? >> >> > >> >> >> (It's also simple enough to reinstall your favourite packages: >> >> >> Installer squeakmap update; install: 'WhateverItIs (someVersion)'.) >> >> > >> >> > Sure, that's how you would re-install a deprecated package. >> >> > >> >> >>> Also, please recognize that not everybody wants to do all their >> >> >>> work in >> >> >>> a clean image built by a robot. I for example do most of my work in >> >> >>> a >> >> >>> Squeak3.11alpha image that has been continuously updated from the >> >> >>> update >> >> >>> stream for quite a while. I also periodically check things against >> >> >>> a >> >> >>> fresh 4.4 image, but my usual pattern is to use one image over a >> >> >>> long >> >> >>> period of time with the trunk update stream, and most of my updates >> >> >>> to >> >> >>> trunk come from that old image. >> >> >> >> >> >> OK, but then we can't have a minimal core without an entire reboot. >> >> >> I >> >> >> mean, seriously, making a minimal core by unloading packages is an >> >> >> order of magnitude harder when you cannot ever actually unload the >> >> >> packages! >> >> >> >> >> >> So, given the resistance to my slow, gradual unwinding of the >> >> >> tangle, >> >> >> what's your counterproposal? >> >> >> >> >> >> frank >> >> > >> >> > >> >> > I still fail to see the problem. For purposes of the build server, >> >> > you once make a Core image by unloading all possible packages. This becomes >> >> > the new "master image" from which all subsequent releases are built. Then >> >> > you use that as the base to run tests, build full images, etc. >> >> > >> >> > Does that sound reasonable? >> >> >> >> Ah! OK, right. So, to see if I understand correctly: >> >> * We _don't_ issue an empty version for the packages we're interested >> >> in unloading. (Just for argument's sake, I'll talk about Universes.) >> >> * If at some point in the future we decide to deprecate Universes, >> >> _then_ we commit the empty version, and update the map. That decision >> >> may be deferred for an arbitrary period after unloading it from Core. >> >> * We take a clean Trunk image from CI, unload all unloadable packages, >> >> and store that as our new master 4.5 image. (This will likely be a >> >> manual step, and the clean image committed to the squeak-ci script >> >> repository.) >> >> * The stripped master remains stripped, and the existing SqueakTrunk >> >> job publishes updated copies of the core image as per normal. >> >> * We adjust the ReleaseSqueakTrunk CI job to, via >> >> ReleaseBuilderForSqueak4dot5, loads the unloadable packages from >> >> SqueakTrunk's output to create a "full fat" version. >> >> >> >> Dave, sound good? >> >> >> > >> > Yes :) >> >> OK, so I thought I'd start the ball rolling with inspiration from >> SmalltalkImage >> #unloadAllKnownPackages - >> >> #('Nebraska' 'Universes' 'XML-Parser') do: [:pkgName| >> (MCPackage named: pkgName) unload. >> MCMcmUpdater disableUpdatesOfPackage: pkgName]. >> >> I've stored this as Squeak4.5.image in the squeak-ci repository. This >> is the new base that we update from trunk. ReleaseSqueakTrunk then >> loads these packages back into the image. >> >> That's the theory. In practice, the above is insufficient because it >> leaves obsolete classes lying around. So I added >> >> MCWorkingCopy flushObsoletePackageInfos. >> MCFileBasedRepository flushAllCaches. >> MCDefinition clearInstances. >> Behavior flushObsoleteSubclasses. >> ChangeSet current clear. >> ChangeSet current name: 'Unnamed1'. >> Smalltalk flushClassNameCache. >> >> This too is insufficient: The SqueakCI-Benchmarking package happens to >> depend on XML-Parser, so I reload the latest version of that >> package... and things break because there are AnObsoleteXMLWriter >> instances. >> >> What have I missed? > > > This is when the tedium starts. Use PointerFinder to track down the > reference path to the obsolete XMLWriter, then determine (e.g. find or > invent) the initialization(s) that eliminate that path (either by deleting > the thing because it shouldn't be referred to, or evaluating something that > replaces it). Right. That tells me there's an Alias still pointing to the XMLWriter class. So my half-baked theory is that something's missing in the Environment work and how it integrates with Monticello? frank >> frank >> >> > Dave >> > >> >> frank >> >> >> >> > - Bert - >> >> > >> >> > >> > >> > > > > -- > best, > Eliot > > >

3 7

Re: [squeak-dev] The Trunk: Environments-fbs.21.mcz
by Frank Shearar 02 Apr '13

02 Apr '13

On 2 April 2013 14:56, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of Environments to project The Trunk: > http://source.squeak.org/trunk/Environments-fbs.21.mcz > > ==================== Summary ==================== > > Name: Environments-fbs.21 > Author: fbs > Time: 2 April 2013, 2:56:27.995 pm > UUID: a2afb389-193a-44a7-8664-559a4177936c > Ancestors: Environments-cwp.20 > > When a class removes itself from the system, we need to forget about the class... including our reference to it in our list of bindings. > > =============== Diff against Environments-cwp.20 =============== > > Item was changed: > ----- Method: Environment>>forgetClass:logged: (in category 'classes and traits') ----- > forgetClass: aClass logged: aBool > aBool ifTrue: > [SystemChangeNotifier uniqueInstance > classRemoved: aClass fromCategory: aClass category]. > self organization removeElement: aClass name. > Smalltalk removeFromStartUpList: aClass. > Smalltalk removeFromShutDownList: aClass. > contents removeKey: aClass name ifAbsent: []. > + bindings removeKey: aClass name ifAbsent: [].! > - ! This, I think, it the necessary fix. It looks right, I can now unload XML-Parser and see that there are no bindings hanging around (so "PointerFinder on: XMLWriter" correctly says "ain't no such class"). But... Colin, what do you think? frank

3 3

Re: [Vm-dev] Accelerating LargeIntegersPlugin phase 2
by tim Rowledge 02 Apr '13

02 Apr '13

On 20-01-2013, at 9:39 AM, "David T. Lewis" <lewis(a)mail.msen.com> wrote: > On Sun, Jan 20, 2013 at 04:52:42PM +0000, Frank Shearar wrote: >> >> At the risk of sounding rather ignorant, what kind of machine would >> that be? IIRC the 68k machines were big endian but they've been wiped >> out now haven't they? >> It has taken many years of blood, effort, toil, tears, sweat, pointed emails and sharply aimed comments, but finally, finally, my friends, at last we are *free* from the evil of Big Endian! At last we can release our families from the underground bunkers of safety and let them wander the outer world as nature intended. > > Most certainly not, Edgar still has one. Ah, him. Well, I've heard about him and his nasty habits. We're onto you Edgar! > > Wikipedia gives a good summary: http://en.wikipedia.org/wiki/Endianness > > Older Macs are big endian, and the Squeak VM was originally written on > big endian machines. ARM processors can run in either mode. Most likely > they run as little endian for Linux, and I'm not sure which mode is used > for RISC OS. I've never yet come across an ARM being used in bigendian mode, but I have to assume some large customer wanted it in order to persuade ARM Ltd to pervert the natural course of things. So somewhere out there are a few million processors yearning to be released from bondage. I take comfort from the thought of the overwhelming majority of the approximately 18 *billion* ARM processors being Properly Ended. To be honest I really think it's time we considered changing Squeak to use little-endian form for bitmaps, at least. There aren't any major systems out there that use big endian any more. If any legacy devices still need it, they can be adapted to use the same tricks that current little-endian machines have to use *every time* something is displayed on screen. All I can say is thank goodness that the ATT 'Hobbit' processor never took off, with that insane middle-endian nonsense. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim The halfway point between right and wrong is still damn wrong. Compromise isn't always a solution

7 14

The Trunk: Environments-fbs.21.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

Frank Shearar uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-fbs.21.mcz ==================== Summary ==================== Name: Environments-fbs.21 Author: fbs Time: 2 April 2013, 2:56:27.995 pm UUID: a2afb389-193a-44a7-8664-559a4177936c Ancestors: Environments-cwp.20 When a class removes itself from the system, we need to forget about the class... including our reference to it in our list of bindings. =============== Diff against Environments-cwp.20 =============== Item was changed: ----- Method: Environment>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. self organization removeElement: aClass name. Smalltalk removeFromStartUpList: aClass. Smalltalk removeFromShutDownList: aClass. contents removeKey: aClass name ifAbsent: []. + bindings removeKey: aClass name ifAbsent: [].! - !

1 0

The Trunk: Environments-cwp.20.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.20.mcz ==================== Summary ==================== Name: Environments-cwp.20 Author: cwp Time: 2 April 2013, 12:27:08.241 am UUID: ebb65551-c6d9-4a51-b174-6e6306fbf55f Ancestors: Environments-cwp.19 Bindings cleanup stage 2/2. =============== Diff against Environments-cwp.19 =============== Item was removed: - LookupKey subclass: #AbstractBinding - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Environments-Core'! Item was removed: - ----- Method: AbstractBinding class>>convertInstances (in category 'as yet unclassified') ----- - convertInstances - | new old | - old := Binding allInstances. - new := old collect: [:ea | ClassBinding key: ea key value: ea value]. - old elementsForwardIdentityTo: new. - - old := ReadOnlyVariableBinding allInstances. - new := old collect: [:ea | ClassBinding key: ea key value: ea value]. - old elementsForwardIdentityTo: new. - - Environment allInstancesDo: - [:env | - #('contents' 'bindings' 'public' 'undeclared') do: - [:var || dict | - old := Array new writeStream. - new := Array new writeStream. - dict := env instVarNamed: var. - dict associations do: - [:binding | - binding class == Association ifTrue: - [old nextPut: binding. - new nextPut: binding key => binding value]]. - old contents elementsForwardIdentityTo: new contents]]! Item was removed: - ----- Method: AbstractBinding class>>initialize (in category 'as yet unclassified') ----- - initialize - self convertInstances! Item was removed: - ----- Method: AbstractBinding>>analogousCodeTo: (in category 'as yet unclassified') ----- - analogousCodeTo: anObject - "For MethodProperties comparison." - ^anObject isVariableBinding - and: [self key = anObject key - and: [self value = anObject value]]! Item was removed: - ----- Method: AbstractBinding>>canAssign (in category 'as yet unclassified') ----- - canAssign - ^ true! Item was removed: - ----- Method: AbstractBinding>>isSpecialReadBinding (in category 'as yet unclassified') ----- - isSpecialReadBinding - ^ false! Item was removed: - ----- Method: AbstractBinding>>isSpecialWriteBinding (in category 'as yet unclassified') ----- - isSpecialWriteBinding - ^ false! Item was removed: - ----- Method: AbstractBinding>>isVariableBinding (in category 'as yet unclassified') ----- - isVariableBinding - ^ true! Item was removed: - ----- Method: AbstractBinding>>objectForDataStream: (in category 'as yet unclassified') ----- - objectForDataStream: refStream - "It's not yet clear how serialization should work in the presence of environments" - - self shouldBeImplemented.! Item was removed: - ----- Method: AbstractBinding>>printOn: (in category 'as yet unclassified') ----- - printOn: aStream - key printOn: aStream. - aStream nextPutAll: '=>'. - self value printOn: aStream! Item was changed: + Binding subclass: #Alias - AbstractBinding subclass: #Alias instanceVariableNames: 'source' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was changed: LookupKey subclass: #Binding + instanceVariableNames: '' - instanceVariableNames: 'value' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was added: + ----- Method: Binding class>>convertInstances (in category 'as yet unclassified') ----- + convertInstances + | new old | + old := Binding allInstances. + new := old collect: [:ea | ClassBinding key: ea key value: ea value]. + old elementsForwardIdentityTo: new. + + old := ReadOnlyVariableBinding allInstances. + new := old collect: [:ea | ClassBinding key: ea key value: ea value]. + old elementsForwardIdentityTo: new. + + Environment allInstancesDo: + [:env | + #('contents' 'bindings' 'public' 'undeclared') do: + [:var || dict | + old := Array new writeStream. + new := Array new writeStream. + dict := env instVarNamed: var. + dict associations do: + [:binding | + binding class == Association ifTrue: + [old nextPut: binding. + new nextPut: binding key => binding value]]. + old contents elementsForwardIdentityTo: new contents]]! Item was removed: - ----- Method: Binding class>>key:value: (in category 'as yet unclassified') ----- - key: key value: value - ^ self basicNew initializeWithKey: key value: value! Item was added: + ----- Method: Binding>>analogousCodeTo: (in category 'as yet unclassified') ----- + analogousCodeTo: anObject + "For MethodProperties comparison." + ^anObject isVariableBinding + and: [self key = anObject key + and: [self value = anObject value]]! Item was removed: - ----- Method: Binding>>asBinding: (in category 'as yet unclassified') ----- - asBinding: aSymbol - ^ self class key: aSymbol value: value! Item was changed: ----- Method: Binding>>canAssign (in category 'as yet unclassified') ----- canAssign + ^ true! - ^ false! Item was removed: - ----- Method: Binding>>initializeWithKey:value: (in category 'as yet unclassified') ----- - initializeWithKey: kObject value: vObject - self initialize. - key := kObject. - value := vObject.! Item was added: + ----- Method: Binding>>isSpecialReadBinding (in category 'as yet unclassified') ----- + isSpecialReadBinding + ^ false! Item was changed: ----- Method: Binding>>isSpecialWriteBinding (in category 'as yet unclassified') ----- isSpecialWriteBinding + ^ false! - ^ true! Item was added: + ----- Method: Binding>>isVariableBinding (in category 'as yet unclassified') ----- + isVariableBinding + ^ true! Item was added: + ----- Method: Binding>>objectForDataStream: (in category 'as yet unclassified') ----- + objectForDataStream: refStream + "It's not yet clear how serialization should work in the presence of environments" + + self shouldBeImplemented.! Item was added: + ----- Method: Binding>>printOn: (in category 'as yet unclassified') ----- + printOn: aStream + key printOn: aStream. + aStream nextPutAll: '=>'. + self value printOn: aStream! Item was removed: - ----- Method: Binding>>value (in category 'as yet unclassified') ----- - value - ^ value! Item was removed: - ----- Method: Binding>>value: (in category 'as yet unclassified') ----- - value: anObject - (AttemptToWriteReadOnlyGlobal signal: 'Cannot store into read-only bindings') - ifTrue: [value := anObject]! Item was changed: + Binding subclass: #ClassBinding - AbstractBinding subclass: #ClassBinding instanceVariableNames: 'value' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was changed: ----- Method: Environment>>at:put: (in category 'emulating') ----- at: aSymbol put: anObject | binding | (contents includesKey: aSymbol) ifTrue: [contents at: aSymbol put: anObject] ifFalse: [(undeclared includesKey: aSymbol) ifTrue: [contents declare: aSymbol from: undeclared. contents at: aSymbol put: anObject] ifFalse: + [binding := aSymbol => anObject. - [binding := anObject isBehavior - ifTrue: [Binding key: aSymbol value: anObject] - ifFalse: [Association key: aSymbol value: anObject]. contents add: binding. exports bind: binding]]. ^ anObject ! Item was changed: + Binding subclass: #Global - AbstractBinding subclass: #Global instanceVariableNames: 'value' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was changed: ----- Method: ReadOnlyVariableBinding>>asBinding: (in category '*environments') ----- asBinding: aSymbol + ^ ClassBinding key: aSymbol value: value! - ^ Binding key: aSymbol value: value!

1 0

The Trunk: Tests-cwp.195.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.195.mcz ==================== Summary ==================== Name: Tests-cwp.195 Author: cwp Time: 1 April 2013, 11:13:55.788 pm UUID: d0b0de68-7e72-4291-a7c2-e9b35372660f Ancestors: Tests-dtl.194 Make environment tests use the new binding classes, add tests for #literalEqual:. =============== Diff against Tests-dtl.194 =============== Item was changed: ----- Method: AliasTest>>testAsBindingRead (in category 'tests') ----- testAsBindingRead | alias imported | + alias := (#Griffle => value) asBinding: #Plonk. - alias := (#Griffle -> value) asBinding: #Plonk. imported := alias asBinding: #Nurp. self assert: imported key = #Nurp. self assert: imported value == value! Item was changed: ----- Method: AliasTest>>testAsBindingWrite (in category 'tests') ----- testAsBindingWrite | alias imported global | + global := Global key: #Griffle value: Object new. - global := Association key: #Griffle value: Object new. alias := global asBinding: #Plonk. imported := alias asBinding: #Nurp. imported value: value. self assert: global value == value! Item was changed: ----- Method: AliasTest>>testCanAssign (in category 'tests') ----- testCanAssign | alias | + alias := Alias key: #Plonk source: #Giffle => value. - alias := Alias key: #Plonk source: #Giffle -> value. self assert: alias canAssign! Item was changed: ----- Method: AliasTest>>testIsSpecialRead (in category 'tests') ----- testIsSpecialRead | alias | + alias := Alias key: #Plonk source: #Griffle => value. - alias := Alias key: #Plonk source: #Griffle -> value. self assert: alias isSpecialReadBinding! Item was changed: ----- Method: AliasTest>>testIsSpecialWrite (in category 'tests') ----- testIsSpecialWrite | alias | + alias := Alias key: #Plonk source: #Griffle => value. - alias := Alias key: #Plonk source: #Griffle -> value. self assert: alias isSpecialWriteBinding! Item was added: + ----- Method: AliasTest>>testLiteralEqual (in category 'tests') ----- + testLiteralEqual + | global a1 a2 | + global := #Giffle => value. + a1 := global asBinding: #Plonk. + a2 := global asBinding: #Nurp. + self assert: (a1 literalEqual: a2) + ! Item was added: + ----- Method: AliasTest>>testLiteralUnequal (in category 'tests') ----- + testLiteralUnequal + | a1 a2 | + a1 := (#Giffle => value) asBinding: #Plonk. + a2 := (#Giffle => value) asBinding: #Plonk. + self deny: (a1 literalEqual: a2) + ! Item was changed: ----- Method: AliasTest>>testWrite (in category 'tests') ----- testWrite | alias global | + global := #Giffle => Object new. - global := #Giffle -> Object new. alias := Alias key: #Plonk source: global. alias value: value. self assert: global value == value. self assert: alias value == value.! Item was removed: - TestCase subclass: #BindingTest - instanceVariableNames: 'key value' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Environments'! Item was removed: - ----- Method: BindingTest>>setUp (in category 'as yet unclassified') ----- - setUp - key := Object new. - value := Object new.! Item was removed: - ----- Method: BindingTest>>testAsBindingRead (in category 'as yet unclassified') ----- - testAsBindingRead - | binding imported | - binding := Binding key: #Griffle value: value. - imported := binding asBinding: #Plonk. - self assert: imported key = #Plonk. - self assert: imported value == value.! Item was removed: - ----- Method: BindingTest>>testCanAssign (in category 'as yet unclassified') ----- - testCanAssign - | binding | - binding := Binding key: key value: value. - self deny: binding canAssign! Item was removed: - ----- Method: BindingTest>>testIsSpecialRead (in category 'as yet unclassified') ----- - testIsSpecialRead - | binding | - binding := Binding key: key value: value. - self deny: binding isSpecialReadBinding! Item was removed: - ----- Method: BindingTest>>testIsSpecialWrite (in category 'as yet unclassified') ----- - testIsSpecialWrite - | binding | - binding := Binding key: key value: value. - self assert: binding isSpecialWriteBinding! Item was removed: - ----- Method: BindingTest>>testRead (in category 'as yet unclassified') ----- - testRead - | binding | - binding := Binding key: key value: value. - self assert: binding key == key. - self assert: binding value == value! Item was removed: - ----- Method: BindingTest>>testResumeExceptionToWrite (in category 'as yet unclassified') ----- - testResumeExceptionToWrite - | binding | - binding := Binding key: key value: Object new. - [binding value: value] - on: AttemptToWriteReadOnlyGlobal - do: [:ex | ex resume: true]. - self assert: binding value == value! Item was removed: - ----- Method: BindingTest>>testWriteRaisesException (in category 'as yet unclassified') ----- - testWriteRaisesException - | binding | - binding := Binding key: key value: value. - self - should: [binding value: Object new] - raise: AttemptToWriteReadOnlyGlobal.! Item was added: + TestCase subclass: #ClassBindingTest + instanceVariableNames: 'key value' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Environments'! Item was added: + ----- Method: ClassBindingTest>>setUp (in category 'as yet unclassified') ----- + setUp + key := Object new. + value := Object new.! Item was added: + ----- Method: ClassBindingTest>>testArrowBinding (in category 'as yet unclassified') ----- + testArrowBinding + | binding | + binding := #Griffle => self class. + self assert: binding class = ClassBinding. + self assert: binding key = #Griffle. + self assert: binding value = self class. + ! Item was added: + ----- Method: ClassBindingTest>>testAsBindingRead (in category 'as yet unclassified') ----- + testAsBindingRead + | binding imported | + binding := ClassBinding key: #Griffle value: value. + imported := binding asBinding: #Plonk. + self assert: imported key = #Plonk. + self assert: imported value == value.! Item was added: + ----- Method: ClassBindingTest>>testCanAssign (in category 'as yet unclassified') ----- + testCanAssign + | binding | + binding := ClassBinding key: key value: value. + self deny: binding canAssign! Item was added: + ----- Method: ClassBindingTest>>testIsSpecialRead (in category 'as yet unclassified') ----- + testIsSpecialRead + | binding | + binding := ClassBinding key: key value: value. + self deny: binding isSpecialReadBinding! Item was added: + ----- Method: ClassBindingTest>>testIsSpecialWrite (in category 'as yet unclassified') ----- + testIsSpecialWrite + | binding | + binding := ClassBinding key: key value: value. + self assert: binding isSpecialWriteBinding! Item was added: + ----- Method: ClassBindingTest>>testLiteralEqual (in category 'as yet unclassified') ----- + testLiteralEqual + | b1 b2 | + b1 := #Griffle => self class. + b2 := #Plonk => self class. + self assert: (b1 literalEqual: b2)! Item was added: + ----- Method: ClassBindingTest>>testLiteralUnequal (in category 'as yet unclassified') ----- + testLiteralUnequal + | b1 b2 | + b1 := #Griffle => self class. + b2 := #Griffle => self class superclass. + self deny: (b1 literalEqual: b2)! Item was added: + ----- Method: ClassBindingTest>>testRead (in category 'as yet unclassified') ----- + testRead + | binding | + binding := ClassBinding key: key value: value. + self assert: binding key == key. + self assert: binding value == value! Item was added: + ----- Method: ClassBindingTest>>testResumeExceptionToWrite (in category 'as yet unclassified') ----- + testResumeExceptionToWrite + | binding | + binding := ClassBinding key: key value: Object new. + [binding value: value] + on: AttemptToWriteReadOnlyGlobal + do: [:ex | ex resume: true]. + self assert: binding value == value! Item was added: + ----- Method: ClassBindingTest>>testWriteRaisesException (in category 'as yet unclassified') ----- + testWriteRaisesException + | binding | + binding := ClassBinding key: key value: value. + self + should: [binding value: Object new] + raise: AttemptToWriteReadOnlyGlobal.! Item was changed: + AnObsoleteClassTestCase subclass: #EventManagerTest - ClassTestCase subclass: #EventManagerTest instanceVariableNames: 'eventSource eventListener succeeded' classVariableNames: '' poolDictionaries: '' category: 'Tests-Object Events'! Item was changed: + AnObsoleteClassTestCase subclass: #FileDirectoryTest - ClassTestCase subclass: #FileDirectoryTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Files'! Item was changed: + AnObsoleteClassTestCase subclass: #FileStreamTest - ClassTestCase subclass: #FileStreamTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Files'! Item was added: + ----- Method: GlobalTest>>testArrowBinding (in category 'as yet unclassified') ----- + testArrowBinding + | binding | + binding := #Griffle => value. + self assert: binding class = Global. + self assert: binding key = #Griffle. + self assert: binding value == value! Item was changed: ----- Method: GlobalTest>>testAsBindingRead (in category 'as yet unclassified') ----- testAsBindingRead | global imported | + global := Global key: key value: value. - global := Association key: key value: value. imported := global asBinding: #Griffle. self assert: imported key = #Griffle. self assert: imported value == value. ! Item was changed: ----- Method: GlobalTest>>testAsBindingWrite (in category 'as yet unclassified') ----- testAsBindingWrite | global imported | + global := Global key: key value: Object new. - global := Association key: key value: Object new. imported := global asBinding: #Griffle. imported value: value. self assert: imported value == value. ! Item was changed: ----- Method: GlobalTest>>testCanAssign (in category 'as yet unclassified') ----- testCanAssign | global | + global := Global key: key value: value. - global := Association key: key value: value. self assert: global canAssign! Item was changed: ----- Method: GlobalTest>>testIsSpecialRead (in category 'as yet unclassified') ----- testIsSpecialRead | global | + global := Global key: key value: value. - global := Association key: key value: value. self deny: global isSpecialReadBinding! Item was changed: ----- Method: GlobalTest>>testIsSpecialWrite (in category 'as yet unclassified') ----- testIsSpecialWrite | global | + global := Global key: key value: value. - global := Association key: key value: value. self deny: global isSpecialWriteBinding! Item was added: + ----- Method: GlobalTest>>testLiteralEqual (in category 'as yet unclassified') ----- + testLiteralEqual + | global | + global := #Griffle => value. + self assert: (global literalEqual: global)! Item was added: + ----- Method: GlobalTest>>testLiteralUnequal (in category 'as yet unclassified') ----- + testLiteralUnequal + | g1 g2 | + g1 := #Griffle => value. + g2 := #Griffle => value. + self deny: (g1 literalEqual: g2)! Item was changed: ----- Method: GlobalTest>>testRead (in category 'as yet unclassified') ----- testRead | global | + global := Global key: key value: value. - global := Association key: key value: value. self assert: global key == key. self assert: global value == value.! Item was changed: ----- Method: GlobalTest>>testWrite (in category 'as yet unclassified') ----- testWrite | global | + global := Global key: key value: Object new. - global := Association key: key value: Object new. global value: value. self assert: global value == value! Item was added: + ----- Method: NamePolicyTest class>>isAbstract (in category 'as yet unclassified') ----- + isAbstract + ^ self name = #NamePolicyTest! Item was changed: + AnObsoleteClassTestCase subclass: #PrimCallControllerAbstractTest - ClassTestCase subclass: #PrimCallControllerAbstractTest instanceVariableNames: 'pcc doNotMakeSlowTestsFlag' classVariableNames: '' poolDictionaries: '' category: 'Tests-PrimCallController'! !PrimCallControllerAbstractTest commentStamp: 'sr 6/15/2004 19:20' prior: 0! PrimCallController tests. Tests are here, but this class isAbstract and won't be tested. Tests are done in the subclasses, which inherit the tests here. If you want to perform some more very slow tests, change doNotMakeSlowTestsFlag in >>setUp.! Item was changed: + AnObsoleteClassTestCase subclass: #SecureHashAlgorithmTest - ClassTestCase subclass: #SecureHashAlgorithmTest instanceVariableNames: 'hash' classVariableNames: '' poolDictionaries: '' category: 'Tests-Digital Signatures'! !SecureHashAlgorithmTest commentStamp: '<historical>' prior: 0! This is the unit test for the class SecureHashAlgorithm. Unit tests are a good way to exercise the functionality of your system in a repeatable and automatic manner. They are therefore recommended if you plan to release anything. For more information, see: - http://www.c2.com/cgi/wiki?UnitTest - http://minnow.cc.gatech.edu/squeak/1547 - the sunit class category!

1 0

The Trunk: Environments-cwp.19.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.19.mcz ==================== Summary ==================== Name: Environments-cwp.19 Author: cwp Time: 1 April 2013, 11:08:28.022 pm UUID: 90a9eda4-b8ad-4f7e-9e71-c5e940c08e4f Ancestors: Environments-cwp.18 Bindings cleanup stage 1/2. =============== Diff against Environments-cwp.18 =============== Item was added: + LookupKey subclass: #AbstractBinding + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Environments-Core'! Item was added: + ----- Method: AbstractBinding class>>convertInstances (in category 'as yet unclassified') ----- + convertInstances + | new old | + old := Binding allInstances. + new := old collect: [:ea | ClassBinding key: ea key value: ea value]. + old elementsForwardIdentityTo: new. + + old := ReadOnlyVariableBinding allInstances. + new := old collect: [:ea | ClassBinding key: ea key value: ea value]. + old elementsForwardIdentityTo: new. + + Environment allInstancesDo: + [:env | + #('contents' 'bindings' 'public' 'undeclared') do: + [:var || dict | + old := Array new writeStream. + new := Array new writeStream. + dict := env instVarNamed: var. + dict associations do: + [:binding | + binding class == Association ifTrue: + [old nextPut: binding. + new nextPut: binding key => binding value]]. + old contents elementsForwardIdentityTo: new contents]]! Item was added: + ----- Method: AbstractBinding class>>initialize (in category 'as yet unclassified') ----- + initialize + self convertInstances! Item was added: + ----- Method: AbstractBinding>>analogousCodeTo: (in category 'as yet unclassified') ----- + analogousCodeTo: anObject + "For MethodProperties comparison." + ^anObject isVariableBinding + and: [self key = anObject key + and: [self value = anObject value]]! Item was added: + ----- Method: AbstractBinding>>canAssign (in category 'as yet unclassified') ----- + canAssign + ^ true! Item was added: + ----- Method: AbstractBinding>>isSpecialReadBinding (in category 'as yet unclassified') ----- + isSpecialReadBinding + ^ false! Item was added: + ----- Method: AbstractBinding>>isSpecialWriteBinding (in category 'as yet unclassified') ----- + isSpecialWriteBinding + ^ false! Item was added: + ----- Method: AbstractBinding>>isVariableBinding (in category 'as yet unclassified') ----- + isVariableBinding + ^ true! Item was added: + ----- Method: AbstractBinding>>objectForDataStream: (in category 'as yet unclassified') ----- + objectForDataStream: refStream + "It's not yet clear how serialization should work in the presence of environments" + + self shouldBeImplemented.! Item was added: + ----- Method: AbstractBinding>>printOn: (in category 'as yet unclassified') ----- + printOn: aStream + key printOn: aStream. + aStream nextPutAll: '=>'. + self value printOn: aStream! Item was changed: + AbstractBinding subclass: #Alias - LookupKey subclass: #Alias instanceVariableNames: 'source' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was changed: + ----- Method: Alias>>initializeWithKey:source: (in category 'initialization') ----- - ----- Method: Alias>>initializeWithKey:source: (in category 'as yet unclassified') ----- initializeWithKey: aSymbol source: anAssociation self initialize. key := aSymbol. source := anAssociation! Item was changed: + ----- Method: Alias>>isSpecialReadBinding (in category 'testing') ----- - ----- Method: Alias>>isSpecialReadBinding (in category 'as yet unclassified') ----- isSpecialReadBinding ^ true! Item was changed: + ----- Method: Alias>>isSpecialWriteBinding (in category 'testing') ----- - ----- Method: Alias>>isSpecialWriteBinding (in category 'as yet unclassified') ----- isSpecialWriteBinding ^ true! Item was added: + ----- Method: Alias>>literalEqual: (in category 'error handling') ----- + literalEqual: other + "Two aliases are equal if they have the same source" + + ^ self species = other species and: [self source == other source]! Item was added: + ----- Method: Alias>>source (in category 'accessing') ----- + source + ^ source! Item was changed: + ----- Method: Alias>>value (in category 'evaluating') ----- - ----- Method: Alias>>value (in category 'as yet unclassified') ----- value ^ source value! Item was changed: + ----- Method: Alias>>value: (in category 'accessing') ----- - ----- Method: Alias>>value: (in category 'as yet unclassified') ----- value: anObject source value: anObject! Item was added: + AbstractBinding subclass: #ClassBinding + instanceVariableNames: 'value' + classVariableNames: '' + poolDictionaries: '' + category: 'Environments-Core'! Item was added: + ----- Method: ClassBinding class>>key:value: (in category 'as yet unclassified') ----- + key: key value: value + ^ self basicNew initializeWithKey: key value: value! Item was added: + ----- Method: ClassBinding>>asBinding: (in category 'as yet unclassified') ----- + asBinding: aSymbol + ^ self class key: aSymbol value: value! Item was added: + ----- Method: ClassBinding>>canAssign (in category 'as yet unclassified') ----- + canAssign + ^ false! Item was added: + ----- Method: ClassBinding>>initializeWithKey:value: (in category 'as yet unclassified') ----- + initializeWithKey: kObject value: vObject + self initialize. + key := kObject. + value := vObject.! Item was added: + ----- Method: ClassBinding>>isSpecialWriteBinding (in category 'as yet unclassified') ----- + isSpecialWriteBinding + ^ true! Item was added: + ----- Method: ClassBinding>>literalEqual: (in category 'as yet unclassified') ----- + literalEqual: other + "Class bindings are equal when the bind the same class" + + ^ self species = other species and: [self value = other value]! Item was added: + ----- Method: ClassBinding>>value (in category 'as yet unclassified') ----- + value + ^ value! Item was added: + ----- Method: ClassBinding>>value: (in category 'as yet unclassified') ----- + value: anObject + (AttemptToWriteReadOnlyGlobal signal: 'Cannot store into read-only bindings') + ifTrue: [value := anObject]! Item was added: + AbstractBinding subclass: #Global + instanceVariableNames: 'value' + classVariableNames: '' + poolDictionaries: '' + category: 'Environments-Core'! Item was added: + ----- Method: Global class>>key:value: (in category 'as yet unclassified') ----- + key: aSymbol value: anObject + ^ self basicNew initializeWithKey: aSymbol value: anObject! Item was added: + ----- Method: Global>>asBinding: (in category 'as yet unclassified') ----- + asBinding: aSymbol + ^ Alias key: aSymbol source: self! Item was added: + ----- Method: Global>>initializeWithKey:value: (in category 'as yet unclassified') ----- + initializeWithKey: aSymbol value: anObject + self initialize. + key := aSymbol. + value := anObject! Item was added: + ----- Method: Global>>literalEqual: (in category 'as yet unclassified') ----- + literalEqual: other + "Globals are only equal to themselves, since another global with the same + name could have a different value in the future." + + ^ self == other! Item was added: + ----- Method: Global>>value (in category 'as yet unclassified') ----- + value + ^ value! Item was added: + ----- Method: Global>>value: (in category 'as yet unclassified') ----- + value: anObject + value := anObject! Item was added: + ----- Method: Symbol>>=> (in category '*environments') ----- + => anObject + + ^ anObject isBehavior + ifTrue: [ClassBinding key: self value: anObject] + ifFalse: [Global key: self value: anObject]!

1 0

Jump to page: