Squeak-dev August 2010

squeak-dev@lists.squeakfoundation.org

100 participants
325 discussions

The Trunk: Collections-ul.374.mcz
by commits＠source.squeak.org 28 Aug '10

28 Aug '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.374.mcz ==================== Summary ==================== Name: Collections-ul.374 Author: ul Time: 27 August 2010, 11:46:39.683 pm UUID: ab565eba-f6e8-8240-8003-d4d62564e08b Ancestors: Collections-nice.372 - all VMs have finalization support, so there's no need to check for it anymore - refactored WeakArray class >> #addWeakDependent: =============== Diff against Collections-nice.372 =============== Item was changed: ----- Method: WeakArray class>>restartFinalizationProcess (in category 'private') ----- restartFinalizationProcess "kill any old process, just in case" FinalizationProcess ifNotNil: [FinalizationProcess terminate. FinalizationProcess := nil]. - "Check if Finalization is supported by this VM" - IsFinalizationSupported := nil. - self isFinalizationSupported - ifFalse: [^ self]. - FinalizationSemaphore := Smalltalk specialObjectsArray at: 42. FinalizationDependents ifNil: [FinalizationDependents := WeakArray new: 10]. FinalizationLock := Semaphore forMutualExclusion. FinalizationProcess := [self finalizationProcess] forkAt: Processor userInterruptPriority! Item was changed: ----- Method: WeakArray class>>isFinalizationSupported (in category 'accessing') ----- isFinalizationSupported + "This method is only here for backwards compatibility, all closure VMs support finalization" + + ^true! - "Check if this VM supports the finalization mechanism" - | tempObject | - IsFinalizationSupported ifNotNil:[^IsFinalizationSupported]. - tempObject := WeakArray new: 1. - "Check if the class format 4 is correctly understood by the VM. - If the weak class support is not installed then the VM will report - any weak class as containing 32bit words - not pointers" - (tempObject at: 1) = nil - ifFalse:[^IsFinalizationSupported :=false]. - "Check if objects are correctly freed" - self pvtCreateTemporaryObjectIn: tempObject. - Smalltalk garbageCollect. - ^IsFinalizationSupported := (tempObject at: 1) == nil! Item was changed: ----- Method: WeakArray class>>addWeakDependent: (in category 'accessing') ----- addWeakDependent: anObject + + FinalizationLock + critical: [ + | emptySlotIndex | + emptySlotIndex := FinalizationDependents + identityIndexOf: nil + ifAbsent: [ + | newIndex | + newIndex := FinalizationDependents size + 1. + "Grow linearly" + FinalizationDependents := FinalizationDependents grownBy: 10. + newIndex ]. + FinalizationDependents at: emptySlotIndex put: anObject ] + ifError: [ :msg :rcvr | rcvr error: msg ]! - self isFinalizationSupported ifFalse:[^self]. - FinalizationLock critical:[ - | finished index weakDependent | - finished := false. - index := 0. - [index := index + 1. - finished not and:[index <= FinalizationDependents size]] whileTrue:[ - weakDependent := FinalizationDependents at: index. - weakDependent isNil ifTrue:[ - FinalizationDependents at: index put: anObject. - finished := true. - ]. - ]. - finished ifFalse:[ - "Grow linearly" - FinalizationDependents := FinalizationDependents, (WeakArray new: 10). - FinalizationDependents at: index put: anObject. - ]. - ] ifError:[:msg :rcvr| rcvr error: msg].! Item was changed: Array weakSubclass: #WeakArray instanceVariableNames: '' + classVariableNames: 'FinalizationDependents FinalizationLock FinalizationProcess FinalizationSemaphore' - classVariableNames: 'FinalizationDependents FinalizationLock FinalizationProcess FinalizationSemaphore IsFinalizationSupported' poolDictionaries: '' category: 'Collections-Weak'! !WeakArray commentStamp: '<historical>' prior: 0! WeakArray is an array which holds only weakly on its elements. This means whenever an object is only referenced by instances of WeakArray it will be garbage collected.! Item was changed: ----- Method: WeakArray class>>removeWeakDependent: (in category 'accessing') ----- removeWeakDependent: anObject + - self isFinalizationSupported ifFalse:[^self]. FinalizationLock critical:[ 1 to: FinalizationDependents size do:[:i| ((FinalizationDependents at: i) == anObject) ifTrue:[ FinalizationDependents at: i put: nil. ]. ]. ] ifError:[:msg :rcvr| rcvr error: msg].!

1 0

Craig Latta is available for work
by Craig Latta 28 Aug '10

28 Aug '10

Hi-- I'm available for work. My resume is at http://netjam.org/resume/. thanks! -C -- Craig Latta www.netjam.org + 31 020 894 6247 + 1 415 287 3547

1 0

The Trunk: Protocols-nice.32.mcz
by commits＠source.squeak.org 27 Aug '10

27 Aug '10

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-nice.32.mcz ==================== Summary ==================== Name: Protocols-nice.32 Author: nice Time: 27 August 2010, 10:32:16.708 pm UUID: 54ca194f-35cd-bf48-9216-6d167e293b58 Ancestors: Protocols-nice.31 #ifNil: simplification =============== Diff against Protocols-nice.31 =============== Item was changed: ----- Method: ObjectWithDocumentation>>editDescription (in category 'documentation') ----- editDescription "Allow the user to see and edit the documentation for this object" | reply helpMessage | + helpMessage := self documentation ifNil: [String new]. - helpMessage := self documentation isNil - ifTrue: [String new] - ifFalse: [self documentation]. reply := UIManager default multiLineRequest: 'Kindly edit the description' translated centerAt: Sensor cursorPoint initialAnswer: helpMessage answerHeight: 200. reply isEmptyOrNil ifFalse: [self documentation: reply]!

1 0

The Trunk: SUnit-nice.81.mcz
by commits＠source.squeak.org 27 Aug '10

27 Aug '10

Nicolas Cellier uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-nice.81.mcz ==================== Summary ==================== Name: SUnit-nice.81 Author: nice Time: 27 August 2010, 10:29:17.421 pm UUID: 65e5fc98-4b2d-6046-8856-a7fe327cf920 Ancestors: SUnit-ar.80 A few ifNil: simplifications inspired by Cuis. Note how ifNotNil: cheaply replace an ensure: Block =============== Diff against SUnit-ar.80 =============== Item was changed: ----- Method: SUnitExtensionsTest>>stream (in category 'accessing') ----- stream + ^stream ifNil: [stream := WriteStream on: String new]! - stream isNil ifTrue: [stream := WriteStream on: String new]. - ^stream! Item was changed: ----- Method: TestResource>>name (in category 'accessing') ----- name + ^name ifNil: [ self printString]! - name isNil - ifTrue: [^self printString]. - - ^name - ! Item was changed: + ----- Method: TestSuite>>tests (in category 'Accessing') ----- - ----- Method: TestSuite>>tests (in category 'accessing') ----- tests + ^ tests ifNil: [tests := OrderedCollection new] - tests isNil ifTrue: [tests := OrderedCollection new]. - ^tests ! Item was changed: ----- Method: TestResource class>>current (in category 'accessing') ----- current + ^ current ifNil: [ current := self new] - - current isNil - ifTrue: [current := self new]. - - ^current ! Item was changed: + ----- Method: TestResource class>>reset (in category 'Creation') ----- - ----- Method: TestResource class>>reset (in category 'creation') ----- reset + current ifNotNil: [:oldCurrent | + current := nil. + oldCurrent tearDown]! - - current notNil ifTrue: [ - [current tearDown] ensure: [ - current := nil]] - ! Item was changed: + ----- Method: TestSuite>>resources (in category 'Accessing') ----- - ----- Method: TestSuite>>resources (in category 'accessing') ----- resources + ^ resources ifNil: [resources := self defaultResources] - resources isNil ifTrue: [resources := self defaultResources]. - ^resources ! Item was changed: ----- Method: TestResource>>description (in category 'accessing') ----- description + ^description ifNil: [ '' ]! - description isNil - ifTrue: [^'']. - - ^description - !

1 0

The Trunk: Files-nice.84.mcz
by commits＠source.squeak.org 27 Aug '10

27 Aug '10

Nicolas Cellier uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-nice.84.mcz ==================== Summary ==================== Name: Files-nice.84 Author: nice Time: 27 August 2010, 9:46:35.718 pm UUID: a166f43e-949e-b948-ae0d-5dad5c1c94bd Ancestors: Files-ar.83 Apply #ifNil: simplification from Cuis =============== Diff against Files-ar.83 =============== Item was changed: ----- Method: StandardFileStream class>>readOnlyFileNamed: (in category 'file creation') ----- readOnlyFileNamed: fileName "Open an existing file with the given name for reading." | fullName f | fullName := self fullName: fileName. f := self new open: fullName forWrite: false. + ^ f + ifNil: ["File does not exist..." - ^ f isNil - ifFalse: [f] - ifTrue: ["File does not exist..." ((FileDoesNotExistException fileName: fullName) readOnly: true) signal]. "StandardFileStream readOnlyFileNamed: 'kjsd.txt' "! Item was changed: ----- Method: StandardFileStream class>>registry (in category 'registry') ----- registry WeakArray isFinalizationSupported ifFalse:[^nil]. + ^Registry + ifNil: [ Registry := WeakRegistry new]! - ^Registry isNil - ifTrue:[Registry := WeakRegistry new] - ifFalse:[Registry].! Item was changed: ----- Method: StandardFileStream class>>forceNewFileNamed: (in category 'file creation') ----- forceNewFileNamed: fileName "Create a new file with the given name, and answer a stream opened for writing on that file. If the file already exists, delete it without asking before creating the new file." | dir localName fullName f | fullName := self fullName: fileName. (self isAFileNamed: fullName) + ifFalse: + [f := self new open: fullName forWrite: true. + ^ f + ifNil: ["Failed to open the file" + (FileDoesNotExistException fileName: fullName) signal]]. - ifFalse: [f := self new open: fullName forWrite: true. - ^ f isNil - ifTrue: ["Failed to open the file" - (FileDoesNotExistException fileName: fullName) signal] - ifFalse: [f]]. dir := FileDirectory forFileName: fullName. localName := FileDirectory localNameFor: fullName. dir deleteFileNamed: localName ifAbsent: [(CannotDeleteFileException new messageText: 'Could not delete the old version of file ' , fullName) signal]. f := self new open: fullName forWrite: true. + ^ f + ifNil: ["Failed to open the file" + (FileDoesNotExistException fileName: fullName) signal]! - ^ f isNil - ifTrue: ["Failed to open the file" - (FileDoesNotExistException fileName: fullName) signal] - ifFalse: [f]!

1 0

MPEG Player
by Chris Cunnington 27 Aug '10

27 Aug '10

Every project needs a quick victory to create some momentum, so I've taken a slight detour from Sophie to Scratch. I've uploaded a player taken from Scratch to http://www.squeaksource.com/MultiMedia.html. (Writable to all) You can load it into an updated 4.1 image. Then you can get a movie file to put on your desktop from here: http://wiki.squeak.org/squeak/uploads/1/castle.mpg.zip In a Workspace, you can enter: MoviePlayerMorph new openInWorld do it, and you'll get a player. Hit the "Open" button, find the "castle.mpg" you just downloaded, and you'll have something that looks like this: http://www.smalltalktelevision.com/player.jpg Then you can press "Play" and listen and watch the bird. To "Play" again you need to "Rewind" first. The file is an MPEG1 Muxed. It is quite old and if this player can play anything else, I couldn't say. It's a pretty humble beginning, but seeing as I posted the idea less than 48 hours ago, and now you're looking at a movie in 4.1, I think that's a solid start. Chris

2 1

Crypto, a Villain, and You (was: Re: [squeak-dev] Re: [Cryptography Team] Re: DigitalSignatureAlgorithm>>#initRandomNonInteractively is not random)
by Casey Ransberger 27 Aug '10

27 Aug '10

<villain type="mustachioed"> I think crypto is a strong candidate for "community supported package." I want to say that I think this is incredibly admirable work; the educational value alone cannot be overstated. I've been meaning to look at this stuff, because I think it's endlessly cool, and I pray my next statement will harm none... I also think that crypto vetted by such a small community is extremely *dangerous*, if just because new users might confuse it with the much more well-vetted platform crypto that most programming systems make use of (I'm ill-educated here, so forgive me if I'm totally ignorant of something critical; I hope that WithPrimitive means "hooks into platform crypto," not "goes faster.") </villain> On Thu, Aug 26, 2010 at 9:48 PM, Andreas Raab <andreas.raab(a)gmx.de> wrote: > On 8/26/2010 4:02 PM, Chris Muller wrote: > >> Folding Cryptography into Squeak would probably go against the >> political momentum toward smaller, more modular images. >> > > I'm not entirely sure about this. The problems with the Crypto package as I > see it are: > > 1) It carries a lot of dead weight. It might be educational to carry an > implementation of MD2 but it's also completely *useless*. So my take here > would be to have two packages "Crypto-Core" and "Crypto-Extras" and move all > of the non-essential stuff to Crypto-Extras. > > 2) It has too many variations (all those *WithPrimitive and *NonPrimitive) > variants. There's no need to have both; write the primitive variants so that > they use non-primitive fallback code or simply require the primitives. > > 3) ASN1, X509, PKCS. This is not cryptography, this is certificate > handling. It should be in a Certificates package, not Cryptography. > > 4) A category per class. Puh-lease... > > If you do all of the above you'll end up with one or two "Crypto-Core" > categories containing all of the "essentials" like MD5, Triple DES, DSA, > RSA, SHA1, SHA256. That's probably about what you'd want in the base image > and I'd be surprised if it's more than 20 classes. I think you could make a > *very* reasoned case that this Crypto-Core should be included in the trunk > image by default in particular considering that it would remain loadable and > simplify the System (and other) packages. > > Then you have Crypt-Extras with the less common stuff, from MD2 to > DiffieHelman. On top of which is the Certificate package with ASN1, X509, > and PKCS. On top of which is the SSL stuff. > > I think this would be quite a nice structure and I'd be supporting getting > a small Crypto-Core package into trunk. Anyone up for it? > > Cheers, > - Andreas > > -- Casey Ransberger

2 1

Meeting Report for 8/18/2010
by Juan Vuletich 27 Aug '10

27 Aug '10

Hi Folks, These are the notes for the last Board Meeting, posted at the Squeak Board blog at http://squeakboard.wordpress.com/2010/08/20/meeting-report-for-8182010/ . Almost full house today. Only Chris was missing because he is on vacation. We had a good meeting and discussed many issues. Money transfers to SFC. Andreas has been extremely busy at work, but will be able to pick it up again now. Squeak 4.2 release: Date and Scope. Setting up the infrastructure for Community Supported Packages and start picking them. We currently don’t have an active Release Team. If somebody steps up to work on this, we can start planning. Please volunteer! Documentation. The community has previously shown interest in having a Documentation Team, so Jecel will post to squeak-dev to check up on the current volunteers and seek out new ones. Randal suggested doing a wide survey on usage of Squeak and Squeak derivatives to help in planning and decision making. This would include Pharo, Etoys, Cobalt, Scratch, Cuis and others. We’d need input from groups and organizations that are not members of the squeak-dev list. Therefore we need to approach members of those groups and organizations for coordination. We’ll also need cooperation from everybody to get all users of Squeak and derivatives to be aware of this effort, and to consider answering the survey. Randal will start contacting some of these groups for coordinating. Bert will attend to Esug 2010 partly on behalf of the Squeak Board as a Squeak PR activity. We decided to financially support his trip. Andreas and Juan would like to find a way to leverage the work done to reduce Cuis for Squeak. Ideally, Squeak would become a smaller kernel, about the size of Cuis, and everything else would be in optional packages that would be unloadable. Comments, suggestions, volunteers, are all welcome! Cheers, Juan Vuletich (for the SOB)

13 56

[DOCS] http://bugs.squeak.org/view.php?id=7557
by Casey Ransberger 27 Aug '10

27 Aug '10

Figured I'd give it a try:) I think it may be worth filing a few "doc" bugs to get a nice little backlog going. If any of you can think of anything you'd personally like to see better docs for, don't be shy about filing a bug:) Once we have a nice little pile of doc bugs, we can start looking for a workflow. Pick stuff off. Sound like a good idea? -- Casey Ransberger

3 4

Experimental Cocoa OS-X based Squeak Cog JIT VM 5.8b3.
by John M McIntosh 27 Aug '10

27 Aug '10

I've stuck a version (5.8b3) of the cocoa based os-x squeak cog JIT based VM in my experimental folder. http://homepage.mac.com/johnmci/.Public/experimental/Squeak%205.8b3.app.zip This VM is built from the Cog sources (with some minor changes for the iPhone) & revised & fixed Socket Plugin. It currently does NOT contain any external plugins. I did check in the changes to squeakvm.org that are required to build this VM excluding the required Cog changes... People are invited to take it for a whirl, report any performance gains, issues and especially crashes. PS (a) yes shortly we'll get the iPhone changes folded back into the source tree so you can build the VM. (b) yes when resizing a window you get neat graphic effects (fixing that issue is non-trival). (c) As time permits we'll look into rebuild this rather long list of plugins. ClipboardExtendedPlugin.bundle CroquetPlugin.bundle CurlPlugin.bundle FloatMathPlugin.bundle FT2Plugin.bundle IA32ABI.bundle KedamaPlugin.bundle KedamaPlugin2.bundle LocalePlugin.bundle mpeg3Plugin.bundle ObjectiveCPlugin.bundle OggPlugin.bundle PrintJobPlugin.bundle QuicktimePlugin.bundle RomePlugin.bundle SerialExtendedUnixPlugin.bundle ServicesPlugin.bundle SpellingPlugin.bundle SqueakFFIPrims.bundle TestOSAPlugin.bundle UnixOSProcessPlugin.bundle -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

4 5

← Newer
1
...
6
7
8
9
10
11
12
...
33
Older →

Jump to page: