Packages October 2014

packages@lists.squeakfoundation.org

1 participants
165 discussions

The Trunk: Sound-ul.41.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

Levente Uzonyi uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-ul.41.mcz ==================== Summary ==================== Name: Sound-ul.41 Author: ul Time: 27 October 2014, 4:48:59.268 pm UUID: b700fc19-c219-47e3-bc55-4874db9dea22 Ancestors: Sound-nice.38 - use the new ExternalObjectTable API =============== Diff against Sound-nice.38 =============== Item was changed: ----- Method: SoundPlayer class>>startPlayerProcessBufferSize:rate:stereo:sound: (in category 'player process') ----- startPlayerProcessBufferSize: bufferSize rate: samplesPerSecond stereo: stereoFlag sound: aSound "Start the sound player process. Terminate the old process, if any." "SoundPlayer startPlayerProcessBufferSize: 1000 rate: 11025 stereo: false" self stopPlayerProcess. aSound ifNil:[ActiveSounds := OrderedCollection new] ifNotNil:[ActiveSounds := OrderedCollection with: aSound]. Buffer := SoundBuffer newStereoSampleCount: (bufferSize // 4) * 4. LastBuffer ifNotNil:[LastBuffer := SoundBuffer basicNew: Buffer basicSize]. PlayerSemaphore := Semaphore forMutualExclusion. SamplingRate := samplesPerSecond. Stereo := stereoFlag. - ReadyForBuffer := Semaphore new. SoundSupported := true. "Assume so" UseReadySemaphore := true. "set to false if ready semaphore not supported by VM" + Smalltalk newExternalSemaphoreDo: [ :semaphore :index | + ReadyForBuffer := semaphore. + self primSoundStartBufferSize: Buffer stereoSampleCount + rate: samplesPerSecond + stereo: Stereo + semaIndex: index ]. - self primSoundStartBufferSize: Buffer stereoSampleCount - rate: samplesPerSecond - stereo: Stereo - semaIndex: (Smalltalk registerExternalObject: ReadyForBuffer). "Check if sound start prim was successful" + SoundSupported ifFalse:[ + Smalltalk unregisterExternalObject: ReadyForBuffer. + ReadyForBuffer := nil. + ^self ]. - SoundSupported ifFalse:[^self]. UseReadySemaphore ifTrue: [PlayerProcess := [SoundPlayer playLoop] newProcess] ifFalse: [PlayerProcess := [SoundPlayer oldStylePlayLoop] newProcess]. UseReverb ifTrue: [self startReverb]. PlayerProcess priority: Processor userInterruptPriority. + PlayerProcess resume! - PlayerProcess resume.! Item was changed: ----- Method: SoundRecorder>>startRecording (in category 'recording controls') ----- startRecording "Turn of the sound input driver and start the recording process. Initially, recording is paused." - | semaIndex | recordLevel ifNil: [recordLevel := 0.5]. "lazy initialization" CanRecordWhilePlaying ifFalse: [SoundPlayer shutDown]. recordProcess ifNotNil: [self stopRecording]. paused := true. meteringBuffer := SoundBuffer newMonoSampleCount: 1024. meterLevel := 0. self allocateBuffer. + Smalltalk newExternalSemaphoreDo: [ :semaphore :index | + bufferAvailableSema := semaphore. + self primStartRecordingDesiredSampleRate: samplingRate asInteger + stereo: stereo + semaIndex: index ]. - bufferAvailableSema := Semaphore new. - semaIndex := Smalltalk registerExternalObject: bufferAvailableSema. - self primStartRecordingDesiredSampleRate: samplingRate asInteger - stereo: stereo - semaIndex: semaIndex. RecorderActive := true. samplingRate := self primGetActualRecordingSampleRate. self primSetRecordLevel: (1000.0 * recordLevel) asInteger. recordProcess := [self recordLoop] newProcess. recordProcess priority: Processor userInterruptPriority. + recordProcess resume! - recordProcess resume. - !

1 0

The Trunk: Network-ul.155.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.155.mcz ==================== Summary ==================== Name: Network-ul.155 Author: ul Time: 27 October 2014, 4:46:13.635 pm UUID: cf2f8a25-3525-4183-8f93-7dc5d127f22d Ancestors: Network-ul.152 - use the new ExternalObjectTable API - unifed socket initialization - unregister ResolverSemaphore when the network initialization fails =============== Diff against Network-ul.152 =============== Item was changed: ----- Method: NetNameResolver class>>initializeNetwork (in category 'network initialization') ----- initializeNetwork "Initialize the network drivers and record the semaphore to be used by the resolver. Do nothing if the network is already initialized. Evaluate the given block if network initialization fails." "NetNameResolver initializeNetwork" - | semaIndex | self resolverStatus = ResolverUninitialized ifFalse: [^HaveNetwork := true]. "network is already initialized" HaveNetwork := false. "in case abort" + Smalltalk newExternalSemaphoreDo: [ :semaphore :index | + ResolverSemaphore := semaphore. + "result is nil if network initialization failed, self if it succeeds" + (self primInitializeNetwork: index) + ifNil: [ + Smalltalk unregisterExternalObject: ResolverSemaphore. + ResolverSemaphore := nil. + NoNetworkError signal: 'failed network initialization'] + ifNotNil: [ HaveNetwork := true ] ]. - ResolverSemaphore := Semaphore new. - semaIndex := Smalltalk registerExternalObject: ResolverSemaphore. + self initializeOldNetworkFlag! - "result is nil if network initialization failed, self if it succeeds" - (self primInitializeNetwork: semaIndex) - ifNil: [NoNetworkError signal: 'failed network initialization'] - ifNotNil: [HaveNetwork := true]. - - self initializeOldNetworkFlag - ! Item was changed: ----- Method: Socket>>acceptFrom: (in category 'initialize-destroy') ----- acceptFrom: aSocket "Initialize a new socket handle from an accept call" - | semaIndex readSemaIndex writeSemaIndex | + self initializeSocketHandleUsing: [ :semaIndex :readSemaIndex :writeSemaIndex | + self + primAcceptFrom: aSocket socketHandle + receiveBufferSize: 8000 + sendBufSize: 8000 + semaIndex: semaIndex + readSemaIndex: readSemaIndex + writeSemaIndex: writeSemaIndex ]! - semaphore := Semaphore new. - readSemaphore := Semaphore new. - writeSemaphore := Semaphore new. - semaIndex := Smalltalk registerExternalObject: semaphore. - readSemaIndex := Smalltalk registerExternalObject: readSemaphore. - writeSemaIndex := Smalltalk registerExternalObject: writeSemaphore. - socketHandle := self primAcceptFrom: aSocket socketHandle - receiveBufferSize: 8000 - sendBufSize: 8000 - semaIndex: semaIndex - readSemaIndex: readSemaIndex - writeSemaIndex: writeSemaIndex. - socketHandle - ifNotNil: [ self register ] - ifNil: [ "socket creation failed" - Smalltalk unregisterExternalObject: semaphore. - Smalltalk unregisterExternalObject: readSemaphore. - Smalltalk unregisterExternalObject: writeSemaphore. - readSemaphore := writeSemaphore := semaphore := nil ] - ! Item was changed: ----- Method: Socket>>destroy (in category 'initialize-destroy') ----- destroy "Destroy this socket. Its connection, if any, is aborted and its resources are freed. Do nothing if the socket has already been destroyed (i.e., if its socketHandle is nil)." socketHandle ifNotNil: [ self isValid ifTrue: [ self primSocketDestroy: socketHandle ]. + Smalltalk unregisterExternalObjects: { + semaphore. + readSemaphore. + writeSemaphore }. - Smalltalk unregisterExternalObject: semaphore. - Smalltalk unregisterExternalObject: readSemaphore. - Smalltalk unregisterExternalObject: writeSemaphore. socketHandle := nil. readSemaphore := writeSemaphore := semaphore := nil. self unregister ]! Item was changed: ----- Method: Socket>>finalize (in category 'finalization') ----- finalize + self primSocketDestroyGently: socketHandle. + Smalltalk unregisterExternalObjects: { + semaphore. + readSemaphore. + writeSemaphore } - Smalltalk unregisterExternalObject: semaphore. - Smalltalk unregisterExternalObject: readSemaphore. - Smalltalk unregisterExternalObject: writeSemaphore. ! Item was changed: ----- Method: Socket>>initialize: (in category 'initialize-destroy') ----- initialize: socketType "Initialize a new socket handle. If socket creation fails, socketHandle will be set to nil." - | semaIndex readSemaIndex writeSemaIndex | + self initializeSocketHandleUsing: [ :semaIndex :readSemaIndex :writeSemaIndex | - semaphore := Semaphore new. - readSemaphore := Semaphore new. - writeSemaphore := Semaphore new. - semaIndex := Smalltalk registerExternalObject: semaphore. - readSemaIndex := Smalltalk registerExternalObject: readSemaphore. - writeSemaIndex := Smalltalk registerExternalObject: writeSemaphore. - socketHandle := self primSocketCreateNetwork: 0 type: socketType receiveBufferSize: 8000 sendBufSize: 8000 semaIndex: semaIndex readSemaIndex: readSemaIndex + writeSemaIndex: writeSemaIndex ]! - writeSemaIndex: writeSemaIndex. - - socketHandle - ifNotNil: [ self register ] - ifNil: [ "socket creation failed" - Smalltalk unregisterExternalObject: semaphore. - Smalltalk unregisterExternalObject: readSemaphore. - Smalltalk unregisterExternalObject: writeSemaphore. - readSemaphore := writeSemaphore := semaphore := nil ] - ! Item was changed: ----- Method: Socket>>initialize:family: (in category 'initialize-destroy') ----- initialize: socketType family: family "Initialize a new socket handle. If socket creation fails, socketHandle will be set to nil." - | semaIndex readSemaIndex writeSemaIndex | + NetNameResolver useOldNetwork ifTrue: [ ^self initialize: socketType ]. + self initializeSocketHandleUsing: [ :semaIndex :readSemaIndex :writeSemaIndex | - NetNameResolver useOldNetwork ifTrue: [^self initialize: socketType]. - semaphore := Semaphore new. - readSemaphore := Semaphore new. - writeSemaphore := Semaphore new. - semaIndex := Smalltalk registerExternalObject: semaphore. - readSemaIndex := Smalltalk registerExternalObject: readSemaphore. - writeSemaIndex := Smalltalk registerExternalObject: writeSemaphore. - socketHandle := self primSocketCreateNetwork: family type: socketType receiveBufferSize: 8000 sendBufSize: 8000 semaIndex: semaIndex readSemaIndex: readSemaIndex + writeSemaIndex: writeSemaIndex ]! - writeSemaIndex: writeSemaIndex. - - socketHandle - ifNotNil: [ self register ] - ifNil: [ "socket creation failed" - Smalltalk unregisterExternalObject: semaphore. - Smalltalk unregisterExternalObject: readSemaphore. - Smalltalk unregisterExternalObject: writeSemaphore. - readSemaphore := writeSemaphore := semaphore := nil ] - ! Item was added: + ----- Method: Socket>>initializeSocketHandleUsing: (in category 'initialize-destroy') ----- + initializeSocketHandleUsing: aBlock + "Initialize a new socket handle. If socket creation fails, socketHandle will be set to nil." + + | semaphoresAndIndexes semaphores indexes | + semaphoresAndIndexes := Smalltalk newExternalSemaphores: 3. + semaphores := semaphoresAndIndexes at: 1. + indexes := semaphoresAndIndexes at: 2. + semaphore := semaphores at: 1. + readSemaphore := semaphores at: 2. + writeSemaphore := semaphores at: 3. + (socketHandle := aBlock valueWithArguments: indexes) + ifNotNil: [ self register ] + ifNil: [ + "socket creation failed" + semaphore := readSemaphore := writeSemaphore := nil. + Smalltalk unregisterExternalObjects: semaphores ]!

1 0

The Trunk: Network-ul.155.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

1 0

The Trunk: Network-ul.155.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

1 0

The Trunk: Files-ul.141.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.141.mcz ==================== Summary ==================== Name: Files-ul.141 Author: ul Time: 27 October 2014, 4:51:14.305 pm UUID: b0dbabfe-ce75-4f18-a82f-2f95fa8b026e Ancestors: Files-eem.138 - use the new ExternalObjectTable API =============== Diff against Files-eem.138 =============== Item was changed: ----- Method: AsyncFile>>open:forWrite: (in category 'as yet unclassified') ----- open: fullFileName forWrite: aBoolean "Open a file of the given name, and return a handle for that file. Answer the receiver if the primitive succeeds, nil otherwise. If openForWrite is true, then: if there is no existing file with this name, then create one else open the existing file in read-write mode otherwise: if there is an existing file with this name, then open it read-only else answer nil." "Note: if an exisiting file is opened for writing, it is NOT truncated. If truncation is desired, the file should be deleted before being opened as an asynchronous file." "Note: On some platforms (e.g., Mac), a file can only have one writer at a time." - | semaIndex | name := fullFileName. writeable := aBoolean. + ^Smalltalk newExternalSemaphoreDo: [ :newSemaphore :index | + fileHandle := self primOpen: name asVmPathName forWrite: writeable semaIndex: index. + fileHandle + ifNotNil: [ + semaphore := newSemaphore. + self ] + ifNil: [ + Smalltalk unregisterExternalObject: newSemaphore. + nil ] ]! - semaphore := Semaphore new. - semaIndex := Smalltalk registerExternalObject: semaphore. - fileHandle := self primOpen: name asVmPathName forWrite: writeable semaIndex: semaIndex. - fileHandle ifNil: [ - Smalltalk unregisterExternalObject: semaphore. - semaphore := nil. - ^ nil]. - ! Item was changed: ----- Method: StandardFileStream>>post:target:url:ifError: (in category 'browser requests') ----- post: data target: target url: url ifError: errorBlock "Post data to the given URL. The returned file stream contains the reply of the server. If Squeak is not running in a browser evaluate errorBlock" + - | sema index request result | self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value]. + Smalltalk newExternalSemaphoreDo: [ :semaphore :index | + | request result | + request := self primURLPost: url target: target data: data semaIndex: index. + request ifNil: [ + Smalltalk unregisterExternalObject: semaphore. + ^errorBlock value ]. + [ semaphore wait. "until something happens" + result := self primURLRequestState: request. + result == nil ] whileTrue. + result ifTrue: [ fileID := self primURLRequestFileHandle: request ]. - sema := Semaphore new. - index := Smalltalk registerExternalObject: sema. - request := self primURLPost: url target: target data: data semaIndex: index. - request == nil ifTrue:[ - - Smalltalk unregisterExternalObject: sema. - ^errorBlock value. - ] ifFalse:[ - [sema wait. "until something happens" - result := self primURLRequestState: request. - result == nil] whileTrue. - result ifTrue:[fileID := self primURLRequestFileHandle: request]. self primURLRequestDestroy: request. + Smalltalk unregisterExternalObject: semaphore ]. + fileID ifNil: [ ^nil ]. - ]. - Smalltalk unregisterExternalObject: sema. - fileID == nil ifTrue:[^nil]. self register. name := url. rwmode := false. buffer1 := String new: 1. + self enableReadBuffering! - self enableReadBuffering - ! Item was changed: ----- Method: StandardFileStream>>requestURL:target:ifError: (in category 'browser requests') ----- requestURL: url target: target ifError: errorBlock "Request to go to the target for the given URL. If Squeak is not running in a browser evaluate errorBlock" - | sema index request result | self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value]. + Smalltalk newExternalSemaphoreDo: [ :semaphore :index | + | request result | + request := self primURLRequest: url target: target semaIndex: index. + request ifNil: [ + Smalltalk unregisterExternalObject: semaphore. + ^errorBlock value ]. + [ semaphore wait. "until something happens" + result := self primURLRequestState: request. + result == nil ] whileTrue. - sema := Semaphore new. - index := Smalltalk registerExternalObject: sema. - request := self primURLRequest: url target: target semaIndex: index. - request == nil ifTrue:[ - - Smalltalk unregisterExternalObject: sema. - ^errorBlock value. - ] ifFalse:[ - [sema wait. "until something happens" - result := self primURLRequestState: request. - result == nil] whileTrue. self primURLRequestDestroy: request. + Smalltalk unregisterExternalObject: semaphore ]. + fileID ifNil: [ ^nil ]. - ]. - Smalltalk unregisterExternalObject: sema. - fileID == nil ifTrue:[^nil]. self register. name := url. rwmode := false. buffer1 := String new: 1. + self enableReadBuffering! - self enableReadBuffering - ! Item was changed: ----- Method: StandardFileStream>>requestURLStream:ifError: (in category 'browser requests') ----- requestURLStream: url ifError: errorBlock "Request a FileStream for the given URL. If Squeak is not running in a browser evaluate errorBlock" "FileStream requestURLStream:'http://www.squeak.org'" + - | sema index request result | self waitBrowserReadyFor: self defaultBrowserReadyWait ifFail: [^errorBlock value]. + Smalltalk newExternalSemaphoreDo: [ :semaphore :index | + | request result | + request := self primURLRequest: url semaIndex: index. + request ifNil: [ + Smalltalk unregisterExternalObject: semaphore. + ^errorBlock value ]. + [ semaphore wait. "until something happens" + result := self primURLRequestState: request. + result == nil ] whileTrue. + result ifTrue: [ fileID := self primURLRequestFileHandle: request ]. - sema := Semaphore new. - index := Smalltalk registerExternalObject: sema. - request := self primURLRequest: url semaIndex: index. - request == nil ifTrue:[ - - Smalltalk unregisterExternalObject: sema. - ^errorBlock value. - ] ifFalse:[ - [sema wait. "until something happens" - result := self primURLRequestState: request. - result == nil] whileTrue. - result ifTrue:[fileID := self primURLRequestFileHandle: request]. self primURLRequestDestroy: request. + Smalltalk unregisterExternalObject: semaphore ]. + fileID ifNil: [ ^nil ]. - ]. - Smalltalk unregisterExternalObject: sema. - fileID == nil ifTrue:[^nil]. self register. name := url. rwmode := false. buffer1 := String new: 1. + self enableReadBuffering! - self enableReadBuffering - !

1 0

The Trunk: Files-ul.141.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

1 0

The Trunk: Files-ul.141.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

1 0

The Trunk: Kernel-nice.881.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.881.mcz ==================== Summary ==================== Name: Kernel-nice.881 Author: nice Time: 27 October 2014, 9:59:32.033 pm UUID: 3a3a0a22-ab12-4838-8606-250c9e58cf76 Ancestors: Kernel-ul.880 Fix Float literal equality: 0.0 and -0.0 are not the same Float... =============== Diff against Kernel-ul.880 =============== Item was added: + ----- Method: Float>>literalEqual: (in category 'comparing') ----- + literalEqual: aFloat + "Two float literals can be replaced by a single one only if their representation have the same bits. + For example, zero and negativeZero are equal, but not literally equal." + + ^self class == aFloat class and: [(self at: 1) = (aFloat at: 1) and: [(self at: 2) = (aFloat at: 2)]]!

1 0

The Trunk: Kernel-nice.881.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

1 0

The Trunk: Kernel-nice.881.mcz
by commits＠source.squeak.org 27 Oct '14

27 Oct '14

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2014