Squeak-dev October 2015

squeak-dev@lists.squeakfoundation.org

40 participants
234 discussions

The Trunk: Tools-mt.644.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.644.mcz ==================== Summary ==================== Name: Tools-mt.644 Author: mt Time: 22 October 2015, 10:52:56.745 am UUID: 6b7546e7-363c-4382-8907-97fb0d98fddc Ancestors: Tools-mt.643 Adds support for dropping directories into the image and opening file lists on those. =============== Diff against Tools-mt.643 =============== Item was added: + ----- Method: FileDirectory class>>serviceBrowseDirectory (in category '*Tools-FileList') ----- + serviceBrowseDirectory + + ^ (SimpleServiceEntry + provider: FileList + label: 'browse directory' + selector: #openOn: + description: 'browse directory' + buttonLabel: 'browse') + argumentGetter: [:directory | directory]; + yourself! Item was changed: ----- Method: FileList class>>newOn: (in category 'instance creation') ----- newOn: aDirectory + ^super new directory: aDirectory! Item was added: + ----- Method: FileList class>>openOn: (in category 'instance creation') ----- + openOn: directory + + ^ToolBuilder open: (self newOn: directory)!

1 0

The Trunk: Morphic-mt.1018.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1018.mcz ==================== Summary ==================== Name: Morphic-mt.1018 Author: mt Time: 22 October 2015, 10:51:51.981 am UUID: e2faf21f-a955-4d6f-849c-0d844a7eaf2b Ancestors: Morphic-cmm.1017 Adds support for dropping directories into the image. =============== Diff against Morphic-cmm.1017 =============== Item was changed: ----- Method: PasteUpMorph>>dropFiles: (in category 'event handling') ----- dropFiles: anEvent "Handle a number of dropped files from the OS. TODO: - use a more general mechanism for figuring out what to do with the file (perhaps even offering a choice from a menu) - remember the resource location or (when in browser) even the actual file handle " + | numFiles | - | numFiles stream handler | numFiles := anEvent contents. 1 to: numFiles do: [ :i | + (FileStream requestDropStream: i) + ifNotNil: [:stream | + [ (ExternalDropHandler lookupExternalDropHandler: stream) ifNotNil: [:handler | + handler handle: stream in: self dropEvent: anEvent ] ] + ensure: [ stream close ] ] + ifNil: [(FileDirectory requestDropDirectory: i) ifNotNil: [:directory | + (ExternalDropHandler lookupExternalDropHandler: directory) ifNotNil: [:handler | + handler handle: directory in: self dropEvent: anEvent]]]].! - (stream := FileStream requestDropStream: i) ifNotNil: [ - handler := ExternalDropHandler lookupExternalDropHandler: stream. - [ handler ifNotNil: [handler handle: stream in: self dropEvent: anEvent ] ] - ensure: [ stream close ] ] ].!

1 0

The Trunk: Files-mt.147.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Marcel Taeumel uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-mt.147.mcz ==================== Summary ==================== Name: Files-mt.147 Author: mt Time: 22 October 2015, 10:51:13.247 am UUID: 088e1934-a399-40ed-923c-a0cdca15894b Ancestors: Files-topa.146 Adds support for dropping directories into the image. =============== Diff against Files-topa.146 =============== Item was added: + ----- Method: FileDirectory class>>fileReaderServicesForFile:suffix: (in category 'file reader services') ----- + fileReaderServicesForFile: fullName suffix: suffix + + ^ (self on: fullName) exists + ifTrue: [self services] + ifFalse: [#()].! Item was added: + ----- Method: FileDirectory class>>initialize (in category 'class initialization') ----- + initialize + + FileServices registerFileReader: self.! Item was added: + ----- Method: FileDirectory class>>requestDropDirectory: (in category 'dnd requests') ----- + requestDropDirectory: dropIndex + + ^ self on: (FileStream primDropRequestFileName: dropIndex)! Item was added: + ----- Method: FileDirectory class>>services (in category 'file reader services') ----- + services + + ^ (self class selectors copyWithout: #services) + select: [:symbol | symbol beginsWith: #service] + thenCollect: [:selector | self perform: selector]! Item was added: + ----- Method: FileDirectory>>mimeTypes (in category 'path access') ----- + mimeTypes + + ^ #('text/directory')! Item was added: + ----- Method: FileDirectory>>name (in category 'path access') ----- + name + "Compatibility with StandardFileStream >> #name to be used, for example, for drop event handling." + + ^ self fullName! Item was changed: ----- Method: FileStream class>>fileReaderServicesForFile:suffix: (in category 'file reader services') ----- fileReaderServicesForFile: fullName suffix: suffix "Answer services for the given file" + "Check whether the given path points to a directory or file." + (FileStream isAFileNamed: fullName) ifFalse: [^ #()]. + ^ self servicesWithSuffixes select: [:spec | spec key anySatisfy: [:pattern | suffix = '*' or: [pattern match: suffix]]] thenCollect: [:spec | spec value]! Item was added: + ----- Method: FileStream class>>primDropRequestFileName: (in category 'dnd requests') ----- + primDropRequestFileName: dropIndex + "Primitive. Return the file name for some file that was just dropped onto Squeak. + Fail if dropIndex is out of range or the primitive is not supported." + <primitive: 'primitiveDropRequestFileName' module:'DropPlugin'> + ^nil! Item was removed: - ----- Method: StandardFileStream>>primDropRequestFileName: (in category 'dnd requests') ----- - primDropRequestFileName: dropIndex - "Primitive. Return the file name for some file that was just dropped onto Squeak. - Fail if dropIndex is out of range or the primitive is not supported." - <primitive: 'primitiveDropRequestFileName' module:'DropPlugin'> - ^nil! Item was changed: ----- Method: StandardFileStream>>requestDropStream: (in category 'dnd requests') ----- requestDropStream: dropIndex "Return a read-only stream for some file the user has just dropped onto Squeak." | rawName | + rawName := self class primDropRequestFileName: dropIndex. - rawName := self primDropRequestFileName: dropIndex. name := (FilePath pathName: rawName isEncoded: true) asSqueakPathName. fileID := self primDropRequestFileHandle: dropIndex. fileID == nil ifTrue:[^nil]. self register. rwmode := false. buffer1 := String new: 1. self enableReadBuffering !

1 0

The Trunk: Network-topa.166.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Tobias Pape uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-topa.166.mcz ==================== Summary ==================== Name: Network-topa.166 Author: topa Time: 21 October 2015, 8:26:14.656 pm UUID: d6d9910f-fa67-4c69-9a89-030c81233e90 Ancestors: Network-topa.165 UUIDGenerator - Use new Random>>#nextBytes:into:startingAt: (needs Kernel-ul.960) for even more speed - Fix UUIDGenerator class>>#initialize to correctly register at startup - Do not reset default on startup but rather reseed TheRandom Timings improved: '1,190,000 per second. 842 nanoseconds per run.' (0.25 times slower than primitive version) =============== Diff against Network-topa.165 =============== Item was changed: Object subclass: #UUIDGenerator + instanceVariableNames: '' - instanceVariableNames: 'bits' classVariableNames: 'Default TheRandom TheSemaphore' poolDictionaries: '' category: 'Network-UUID'! !UUIDGenerator commentStamp: 'topa 10/19/2015 23:23:19' prior: 0! I generate a pseudo-random UUID by asking Random for a 128 bit value. See https://tools.ietf.org/html/rfc4122.html#section-4.4 for reference.! Item was changed: ----- Method: UUIDGenerator class>>default (in category 'instance creation') ----- default + ^ Default ifNil: [Default := self new] + ! - Default ifNil: [self generateDefault]. - ^Default! Item was removed: - ----- Method: UUIDGenerator class>>generateDefault (in category 'instance creation') ----- - generateDefault - Default := self new! Item was changed: ----- Method: UUIDGenerator class>>initialize (in category 'class initialization') ----- initialize TheRandom := Random new. TheSemaphore := Semaphore forMutualExclusion. + Smalltalk addToStartUpList: self! - Smalltalk addToStartUpList: self after: nil.! Item was added: + ----- Method: UUIDGenerator class>>resetDefault (in category 'class initialization') ----- + resetDefault + Default := nil.! Item was changed: ----- Method: UUIDGenerator class>>startUp (in category 'class initialization') ----- startUp + "Reseed the random" + TheSemaphore critical: [TheRandom seed: nil].! - Default := nil! Item was added: + ----- Method: UUIDGenerator>>fillRandomly: (in category 'instance creation') ----- + fillRandomly: aUUID + + TheSemaphore critical: [ + TheRandom nextBytes: 16 "128 bit" into: aUUID startingAt: 1].! Item was changed: ----- Method: UUIDGenerator>>generateBytes:forVersion: (in category 'instance creation') ----- + generateBytes: aUUID forVersion: aVersion + | versionID fixedValue | + + aVersion = 4 ifFalse: [^ self error: 'Unsupported version']. + + self fillRandomly: aUUID. + versionID := ((aUUID at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" + fixedValue := ((aUUID at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" + aUUID + at: 7 put: versionID; + at: 9 put: fixedValue.! - generateBytes: aPlaceHolder forVersion: aVersion - aVersion = 4 ifTrue: [self generateFieldsVersion4] - ifFalse: [self error: 'Unsupported version']. - self placeFields: aPlaceHolder.! Item was removed: - ----- Method: UUIDGenerator>>generateFieldsVersion4 (in category 'instance creation') ----- - generateFieldsVersion4 - - TheSemaphore critical: [ - bits := 16rffffffffffffffffffffffffffffffff atRandom: TheRandom. "128 bit"].! Item was removed: - ----- Method: UUIDGenerator>>placeFields: (in category 'instance creation') ----- - placeFields: aByteArray - - | version fixed | - bits isLarge - ifTrue: [ aByteArray replaceFrom: 1 to: bits size with: bits] - ifFalse: [aByteArray unsignedLongAt: 1 put: bits bigEndian: false]. - - version := ((aByteArray at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" - fixed := ((aByteArray at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" - aByteArray - at: 7 put: version; - at: 9 put: fixed.!

1 0

The Trunk: Network-topa.165.mcz
by commits＠source.squeak.org 22 Oct '15

22 Oct '15

Tobias Pape uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-topa.165.mcz ==================== Summary ==================== Name: Network-topa.165 Author: topa Time: 19 October 2015, 11:28:20.052 pm UUID: b4b1febc-df00-4213-b76f-c007b06bb2e2 Ancestors: Network-ul.164 Simplify and speed up non-primitive UUID generation (hat-tip to Martin McClure <martin.mcclure(a)gemtalksystems.com>) Instead of generating all parts of the UUID separately, we generate a single, 128-bit number and modify it slightly to match the UUID definition. This complies with RFC 4122, Sec. 4.4. This approach is 2500 times faster than the old method and only about 3 times slower than the primitive. Hence, we disable the primitive and no longer need to rely on the UUIDPlugin to be present. Informational: The Timings: { 'Pure allocation' -> [UUID basicNew: 16] bench. 'Primitive + alloc' -> [(UUID basicNew: 16) primMakeUUID] bench. 'Old + alloc' -> [|u| u := (UUID basicNew: 16). UUIDGeneratorOld new generateBytes: u forVersion: 4] bench. 'New + alloc' -> [|u| u := (UUID basicNew: 16). UUIDGeneratorNew new generateBytes: u forVersion: 4] bench. }. "{ 'Pure allocation'->'56,500,000 per second. 17.7 nanoseconds per run.' . 'Primitive + alloc'->'1,510,000 per second. 663 nanoseconds per run.' . 'Old + alloc'->'202 per second. 4.95 milliseconds per run.' . 'New + alloc'->'519,000 per second. 1.93 microseconds per run.' }." =============== Diff against Network-ul.164 =============== Item was changed: ----- Method: String>>asAlphaNumeric:extraChars:mergeUID: (in category '*network-uuid') ----- asAlphaNumeric: totalSize extraChars: additionallyAllowed mergeUID: minimalSizeOfRandomPart "Generates a String with unique identifier ( UID ) qualities, the difference to a UUID is that its beginning is derived from the receiver, so that it has a meaning for a human reader. Answers a String of totalSize, which consists of 3 parts 1.part: the beginning of the receiver only consisting of a-z, A-Z, 0-9 and extraChars in Collection additionallyAllowed ( which can be nil ) 2.part: a single _ 3.part: a ( random ) UID of size >= minimalSizeOfRandomPart consisting of a-z, A-Z, 0-9 Starting letters are capitalized. TotalSize must be at least 1. Exactly 1 occurrence of $_ is guaranteed ( unless additionallyAllowed includes $_ ). The random part has even for small sizes good UID qualitites for many practical purposes. If only lower- or uppercase letters are demanded, simply convert the answer with say #asLowercase. The probability of a duplicate will rise only moderately ( see below ). Example: size of random part = 10 in n generated UIDs the chance p of having non-unique UIDs is n = 10000 -> p < 1e-10 if answer is reduced to lowerCase: p < 1.4 e-8 n = 100000 -> p < 1e-8 at the bottom is a snippet for your own calculations Note: the calculated propabilites are theoretical, for the actually used random generator they may be much worse" | stream out sizeOfFirstPart index ascii ch skip array random | totalSize > minimalSizeOfRandomPart ifFalse: [ self errorOutOfBounds ]. stream := ReadStream on: self. out := WriteStream on: ( String new: totalSize ). index := 0. skip := true. sizeOfFirstPart := totalSize - minimalSizeOfRandomPart - 1. [ stream atEnd or: [ index >= sizeOfFirstPart ]] whileFalse: [ ((( ascii := ( ch := stream next ) asciiValue ) >= 65 and: [ ascii <= 90 ]) or: [ ( ascii >= 97 and: [ ascii <= 122 ]) or: [ ch isDigit or: [ additionallyAllowed notNil and: [ additionallyAllowed includes: ch ]]]]) ifTrue: [ skip ifTrue: [ out nextPut: ch asUppercase ] ifFalse: [ out nextPut: ch ]. index := index + 1. skip := false ] ifFalse: [ skip := true ]]. out nextPut: $_. array := Array new: 62. 1 to: 26 do: [ :i | array at: i put: ( i + 64 ) asCharacter. array at: i + 26 put: ( i + 96 ) asCharacter ]. 53 to: 62 do: [ :i | array at: i put: ( i - 5 ) asCharacter ]. + random := ThreadSafeRandom value. - random := UUIDGenerator default randomGenerator. totalSize - index - 1 timesRepeat: [ out nextPut: ( array atRandom: random )]. ^out contents " calculation of probability p for failure of uniqueness in n UIDs Note: if answer will be converted to upper or lower case replace 62 with 36 | n i p all | all := 62 raisedTo: sizeOfRandomPart. i := 1. p := 0.0 . n := 10000. [ i <= n ] whileTrue: [ p := p + (( i - 1 ) / all ). i := i + 1 ]. p approximation formula: n squared / ( 62.0 raisedTo: sizeOfRandomPart ) / 2 " "'Crop SketchMorphs and Grab Screen Rect to JPG' asAlphaNumeric: 31 extraChars: nil mergeUID: 10 'CropSketchMorphsAndG_iOw94jquN6' 'Monticello' asAlphaNumeric: 31 extraChars: nil mergeUID: 10 'Monticello_kp6aV2l0IZK9uBULGOeG' 'version-', ( '1.1.2' replaceAll: $. with: $- ) asAlphaNumeric: 31 extraChars: #( $- ) mergeUID: 10 'Version-1-1-2_kuz2tMg2xX9iRLDVR'" ! Item was changed: ----- Method: UUID>>initialize (in category 'initalize-release') ----- initialize + self makeUUID.! - self primMakeUUID.! Item was added: + ----- Method: UUID>>makeUUID (in category 'as yet unclassified') ----- + makeUUID + UUIDGenerator default generateBytes: self forVersion: 4.! Item was changed: ----- Method: UUID>>primMakeUUID (in category 'system primitives') ----- primMakeUUID <primitive: 'primitiveMakeUUID' module: 'UUIDPlugin'> + self makeUUID! - UUIDGenerator default generateBytes: self forVersion: 4.! Item was changed: Object subclass: #UUIDGenerator + instanceVariableNames: 'bits' + classVariableNames: 'Default TheRandom TheSemaphore' - instanceVariableNames: 'timeLow timeMid timeHiAndVersion clockSeqHiAndReserved clockSeqLow node randomCounter randomGenerator semaphoreForGenerator' - classVariableNames: 'Default' poolDictionaries: '' category: 'Network-UUID'! + !UUIDGenerator commentStamp: 'topa 10/19/2015 23:23:19' prior: 0! + I generate a pseudo-random UUID by asking Random for a 128 bit value. - !UUIDGenerator commentStamp: '<historical>' prior: 0! - This class generates a pseudo-random UUID - by John M McIntosh johnmci(a)smalltalkconsulting.com + See https://tools.ietf.org/html/rfc4122.html#section-4.4 for reference.! - See http://www.webdav.org/specs/draft-leach-uuids-guids-01.txt! Item was changed: ----- Method: UUIDGenerator class>>initialize (in category 'class initialization') ----- initialize + TheRandom := Random new. + TheSemaphore := Semaphore forMutualExclusion. Smalltalk addToStartUpList: self after: nil.! Item was changed: ----- Method: UUIDGenerator>>generateFieldsVersion4 (in category 'instance creation') ----- generateFieldsVersion4 + + TheSemaphore critical: [ + bits := 16rffffffffffffffffffffffffffffffff atRandom: TheRandom. "128 bit"].! - - timeLow := self generateRandomBitsOfLength: 32. - timeMid := self generateRandomBitsOfLength: 16. - timeHiAndVersion := 16r4000 bitOr: (self generateRandomBitsOfLength: 12). - clockSeqHiAndReserved := 16r80 bitOr: (self generateRandomBitsOfLength: 6). - clockSeqLow := self generateRandomBitsOfLength: 8. - node := self generateRandomBitsOfLength: 48. - ! Item was removed: - ----- Method: UUIDGenerator>>generateOneOrZero (in category 'generator') ----- - generateOneOrZero - ^self semaphoreForGenerator - critical: [| value | - value := self randomGenerator next. - self randomCounter: self randomCounter + 1. - self randomCounter > 100000 - ifTrue: [self setupRandom]. - value < 0.5 - ifTrue: [0] - ifFalse: [1]].! Item was removed: - ----- Method: UUIDGenerator>>generateRandomBitsOfLength: (in category 'generator') ----- - generateRandomBitsOfLength: aNumberOfBits - | target | - target := 0. - aNumberOfBits isZero ifTrue: [^target]. - target := self generateOneOrZero. - (aNumberOfBits - 1) timesRepeat: - [target := (target bitShift: 1) bitOr: self generateOneOrZero]. - ^target! Item was removed: - ----- Method: UUIDGenerator>>initialize (in category 'instance creation') ----- - initialize - self setupRandom. - semaphoreForGenerator := Semaphore forMutualExclusion. - ! Item was removed: - ----- Method: UUIDGenerator>>makeSeed (in category 'random seed') ----- - makeSeed - "Try various methods of getting good seeds" - | seed | - seed := self makeUnixSeed. - seed ifNotNil: [^seed]. - - "not sure if this is reliably random... commented out for now. -dew" - "seed := self makeSeedFromSound. - seed ifNotNil: [^seed]." - - "default" - [seed := (Time millisecondClockValue bitAnd: 16r3FFFFFFF) bitXor: self hash. - seed := seed bitXor: (Time totalSeconds bitAnd: 16r3FFFFFFF). - seed = 0] whileTrue: ["Try again if ever get a seed = 0"]. - - ^seed - ! Item was removed: - ----- Method: UUIDGenerator>>makeSeedFromSound (in category 'random seed') ----- - makeSeedFromSound - ^[SoundService default randomBitsFromSoundInput: 32] - ifError: [nil].! Item was removed: - ----- Method: UUIDGenerator>>makeUnixSeed (in category 'random seed') ----- - makeUnixSeed - - ^[ - StandardFileStream readOnlyFileNamed: '/dev/urandom' do: [ :stream | - stream binary. - (Integer - byte1: stream next - byte2: stream next - byte3: stream next - byte4: stream next) ] ] - on: Error - do: [ nil ]! Item was changed: ----- Method: UUIDGenerator>>placeFields: (in category 'instance creation') ----- placeFields: aByteArray + | version fixed | + bits isLarge + ifTrue: [ aByteArray replaceFrom: 1 to: bits size with: bits] + ifFalse: [aByteArray unsignedLongAt: 1 put: bits bigEndian: false]. + + version := ((aByteArray at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" + fixed := ((aByteArray at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" + aByteArray + at: 7 put: version; + at: 9 put: fixed.! - aByteArray at: 1 put: ((timeLow bitShift: -24) bitAnd: 16rFF). - aByteArray at: 2 put: ((timeLow bitShift: -16) bitAnd: 16rFF). - aByteArray at: 3 put: ((timeLow bitShift: -8) bitAnd: 16rFF). - aByteArray at: 4 put: (timeLow bitAnd: 16rFF). - aByteArray at: 5 put: ((timeMid bitShift: -8) bitAnd: 16rFF). - aByteArray at: 6 put: (timeMid bitAnd: 16rFF). - aByteArray at: 7 put: ((timeHiAndVersion bitShift: -8) bitAnd: 16rFF). - aByteArray at: 8 put: (timeHiAndVersion bitAnd: 16rFF). - aByteArray at: 9 put: clockSeqHiAndReserved. - aByteArray at: 10 put: clockSeqLow. - 0 to: 5 do: [:i | - aByteArray at: 11 + i put: ((node bitShift: (-8*i)) bitAnd: 16rFF)] - ! Item was removed: - ----- Method: UUIDGenerator>>randomCounter (in category 'accessors and mutators') ----- - randomCounter - ^randomCounter! Item was removed: - ----- Method: UUIDGenerator>>randomCounter: (in category 'accessors and mutators') ----- - randomCounter: aNumber - randomCounter := aNumber - ! Item was removed: - ----- Method: UUIDGenerator>>randomGenerator (in category 'accessors and mutators') ----- - randomGenerator - ^randomGenerator - ! Item was removed: - ----- Method: UUIDGenerator>>randomGenerator: (in category 'accessors and mutators') ----- - randomGenerator: aGenerator - randomGenerator := aGenerator - ! Item was removed: - ----- Method: UUIDGenerator>>semaphoreForGenerator (in category 'accessors and mutators') ----- - semaphoreForGenerator - ^semaphoreForGenerator! Item was removed: - ----- Method: UUIDGenerator>>semaphoreForGenerator: (in category 'accessors and mutators') ----- - semaphoreForGenerator: aSema - semaphoreForGenerator := aSema - ! Item was removed: - ----- Method: UUIDGenerator>>setupRandom (in category 'instance creation') ----- - setupRandom - randomCounter := 0. - randomGenerator := Random seed: self makeSeed.!

1 0

Re: [squeak-dev] The Inbox: Network-topa.166.mcz
by Tobias Pape 22 Oct '15

22 Oct '15

Hi all I hope this version is an improvement over the last attempt :) Levente, is this way of using the Random generator useful? That is, Class-wide, guarded with a Semaphore and re-seeded at image startup? Best regards -Tobias On 21.10.2015, at 18:26, commits(a)source.squeak.org wrote: > Tobias Pape uploaded a new version of Network to project The Inbox: > http://source.squeak.org/inbox/Network-topa.166.mcz > > ==================== Summary ==================== > > Name: Network-topa.166 > Author: topa > Time: 21 October 2015, 8:26:14.656 pm > UUID: d6d9910f-fa67-4c69-9a89-030c81233e90 > Ancestors: Network-topa.165 > > UUIDGenerator > - Use new Random>>#nextBytes:into:startingAt: (needs Kernel-ul.960) for even more speed > - Fix UUIDGenerator class>>#initialize to correctly register at startup > - Do not reset default on startup but rather reseed TheRandom > > Timings improved: '1,190,000 per second. 842 nanoseconds per run.' (0.25 times slower than primitive version) > > =============== Diff against Network-topa.165 =============== > > Item was changed: > Object subclass: #UUIDGenerator > + instanceVariableNames: '' > - instanceVariableNames: 'bits' > classVariableNames: 'Default TheRandom TheSemaphore' > poolDictionaries: '' > category: 'Network-UUID'! > > !UUIDGenerator commentStamp: 'topa 10/19/2015 23:23:19' prior: 0! > I generate a pseudo-random UUID by asking Random for a 128 bit value. > > See https://tools.ietf.org/html/rfc4122.html#section-4.4 for reference.! > > Item was changed: > ----- Method: UUIDGenerator class>>default (in category 'instance creation') ----- > default > + ^ Default ifNil: [Default := self new] > + ! > - Default ifNil: [self generateDefault]. > - ^Default! > > Item was removed: > - ----- Method: UUIDGenerator class>>generateDefault (in category 'instance creation') ----- > - generateDefault > - Default := self new! > > Item was changed: > ----- Method: UUIDGenerator class>>initialize (in category 'class initialization') ----- > initialize > TheRandom := Random new. > TheSemaphore := Semaphore forMutualExclusion. > + Smalltalk addToStartUpList: self! > - Smalltalk addToStartUpList: self after: nil.! > > Item was added: > + ----- Method: UUIDGenerator class>>resetDefault (in category 'class initialization') ----- > + resetDefault > + Default := nil.! > > Item was changed: > ----- Method: UUIDGenerator class>>startUp (in category 'class initialization') ----- > startUp > + "Reseed the random" > + TheSemaphore critical: [TheRandom seed: nil].! > - Default := nil! > > Item was added: > + ----- Method: UUIDGenerator>>fillRandomly: (in category 'instance creation') ----- > + fillRandomly: aUUID > + > + TheSemaphore critical: [ > + TheRandom nextBytes: 16 "128 bit" into: aUUID startingAt: 1].! > > Item was changed: > ----- Method: UUIDGenerator>>generateBytes:forVersion: (in category 'instance creation') ----- > + generateBytes: aUUID forVersion: aVersion > + | versionID fixedValue | > + > + aVersion = 4 ifFalse: [^ self error: 'Unsupported version']. > + > + self fillRandomly: aUUID. > + versionID := ((aUUID at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" > + fixedValue := ((aUUID at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" > + aUUID > + at: 7 put: versionID; > + at: 9 put: fixedValue.! > - generateBytes: aPlaceHolder forVersion: aVersion > - aVersion = 4 ifTrue: [self generateFieldsVersion4] > - ifFalse: [self error: 'Unsupported version']. > - self placeFields: aPlaceHolder.! > > Item was removed: > - ----- Method: UUIDGenerator>>generateFieldsVersion4 (in category 'instance creation') ----- > - generateFieldsVersion4 > - > - TheSemaphore critical: [ > - bits := 16rffffffffffffffffffffffffffffffff atRandom: TheRandom. "128 bit"].! > > Item was removed: > - ----- Method: UUIDGenerator>>placeFields: (in category 'instance creation') ----- > - placeFields: aByteArray > - > - | version fixed | > - bits isLarge > - ifTrue: [ aByteArray replaceFrom: 1 to: bits size with: bits] > - ifFalse: [aByteArray unsignedLongAt: 1 put: bits bigEndian: false]. > - > - version := ((aByteArray at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" > - fixed := ((aByteArray at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" > - aByteArray > - at: 7 put: version; > - at: 9 put: fixed.! > >

2 1

[FYI] Restarted jenkins on build.squeak.org
by David T. Lewis 22 Oct '15

22 Oct '15

Test jobs on build.squeak.org seemed to be running very slowly and timing out. I restarted jenkins a couple minutes ago to see if it makes any difference. Dave

1 0

Daily Commit Log
by commits＠source.squeak.org 21 Oct '15

21 Oct '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-October/009066.ht… Name: Tools-mt.643 Ancestors: Tools-cmm.642 If there is nothing to pretty-diff, show at least the pretty-printed version of the code to avoid confusion. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009067.ht… Name: Morphic-cmm.1017 Ancestors: Morphic-topa.1016 - When Windows Raise On Click is off, still raise SystemWindows when any of their resize or splitter handles are clicked, not just their title bar, so that Z-order can be adjusted even when the title bar is covered. - Demote Command+t back to a desktop-only command key, not global, because I forgot about Command+t for stepping Over in the debugger -- we don't need that opening a Transcript. =============================================

1 0

The Inbox: Network-topa.166.mcz
by commits＠source.squeak.org 21 Oct '15

21 Oct '15

Tobias Pape uploaded a new version of Network to project The Inbox: http://source.squeak.org/inbox/Network-topa.166.mcz ==================== Summary ==================== Name: Network-topa.166 Author: topa Time: 21 October 2015, 8:26:14.656 pm UUID: d6d9910f-fa67-4c69-9a89-030c81233e90 Ancestors: Network-topa.165 UUIDGenerator - Use new Random>>#nextBytes:into:startingAt: (needs Kernel-ul.960) for even more speed - Fix UUIDGenerator class>>#initialize to correctly register at startup - Do not reset default on startup but rather reseed TheRandom Timings improved: '1,190,000 per second. 842 nanoseconds per run.' (0.25 times slower than primitive version) =============== Diff against Network-topa.165 =============== Item was changed: Object subclass: #UUIDGenerator + instanceVariableNames: '' - instanceVariableNames: 'bits' classVariableNames: 'Default TheRandom TheSemaphore' poolDictionaries: '' category: 'Network-UUID'! !UUIDGenerator commentStamp: 'topa 10/19/2015 23:23:19' prior: 0! I generate a pseudo-random UUID by asking Random for a 128 bit value. See https://tools.ietf.org/html/rfc4122.html#section-4.4 for reference.! Item was changed: ----- Method: UUIDGenerator class>>default (in category 'instance creation') ----- default + ^ Default ifNil: [Default := self new] + ! - Default ifNil: [self generateDefault]. - ^Default! Item was removed: - ----- Method: UUIDGenerator class>>generateDefault (in category 'instance creation') ----- - generateDefault - Default := self new! Item was changed: ----- Method: UUIDGenerator class>>initialize (in category 'class initialization') ----- initialize TheRandom := Random new. TheSemaphore := Semaphore forMutualExclusion. + Smalltalk addToStartUpList: self! - Smalltalk addToStartUpList: self after: nil.! Item was added: + ----- Method: UUIDGenerator class>>resetDefault (in category 'class initialization') ----- + resetDefault + Default := nil.! Item was changed: ----- Method: UUIDGenerator class>>startUp (in category 'class initialization') ----- startUp + "Reseed the random" + TheSemaphore critical: [TheRandom seed: nil].! - Default := nil! Item was added: + ----- Method: UUIDGenerator>>fillRandomly: (in category 'instance creation') ----- + fillRandomly: aUUID + + TheSemaphore critical: [ + TheRandom nextBytes: 16 "128 bit" into: aUUID startingAt: 1].! Item was changed: ----- Method: UUIDGenerator>>generateBytes:forVersion: (in category 'instance creation') ----- + generateBytes: aUUID forVersion: aVersion + | versionID fixedValue | + + aVersion = 4 ifFalse: [^ self error: 'Unsupported version']. + + self fillRandomly: aUUID. + versionID := ((aUUID at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" + fixedValue := ((aUUID at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" + aUUID + at: 7 put: versionID; + at: 9 put: fixedValue.! - generateBytes: aPlaceHolder forVersion: aVersion - aVersion = 4 ifTrue: [self generateFieldsVersion4] - ifFalse: [self error: 'Unsupported version']. - self placeFields: aPlaceHolder.! Item was removed: - ----- Method: UUIDGenerator>>generateFieldsVersion4 (in category 'instance creation') ----- - generateFieldsVersion4 - - TheSemaphore critical: [ - bits := 16rffffffffffffffffffffffffffffffff atRandom: TheRandom. "128 bit"].! Item was removed: - ----- Method: UUIDGenerator>>placeFields: (in category 'instance creation') ----- - placeFields: aByteArray - - | version fixed | - bits isLarge - ifTrue: [ aByteArray replaceFrom: 1 to: bits size with: bits] - ifFalse: [aByteArray unsignedLongAt: 1 put: bits bigEndian: false]. - - version := ((aByteArray at: 7) bitAnd: 16r0F) bitOr: 16r40. "Version 4" - fixed := ((aByteArray at: 9) bitAnd: 16r3F) bitOr: 16r80. "Fixed 8..b value" - aByteArray - at: 7 put: version; - at: 9 put: fixed.!

1 0

/inbox missing in 4.6/5.0/trunk
by Tobias Pape 21 Oct '15

21 Oct '15

Hi all, I just noticed that the 'inbox' repo is missing in our 2+1 current images, so people might be less encouraged to contribute. How would we fix that? Best regards -Tobias

2 1

← Newer
1
...
4
5
6
7
8
9
10
...
24
Older →

Jump to page: