Squeak-dev May 2018

squeak-dev@lists.squeakfoundation.org

44 participants
189 discussions

The Trunk: EToys-kfr.330.mcz
by commits＠source.squeak.org 26 May '18

26 May '18

Karl Ramberg uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-kfr.330.mcz ==================== Summary ==================== Name: EToys-kfr.330 Author: kfr Time: 26 May 2018, 11:55:21.200868 am UUID: 6d9d29a4-708f-e540-a815-584b7d42115e Ancestors: EToys-mt.329 Player had a send to deprecated Smalltalk>>removeKey:ifAbsent: =============== Diff against EToys-mt.329 =============== Item was changed: ----- Method: Player class>>freeUnreferencedSubclasses (in category 'housekeeping') ----- freeUnreferencedSubclasses "Player classes may hold in their class instance variables references to instances of themselves that are housekeepingwise unreachable. This method allows such loops to be garbage collected. This is done in three steps: 1. Remove user-created subclasses from the 'subclasses' set and from Smalltalk. Only remove classes whose name begins with 'Player' and which have no references. 2. Do a full garbage collection. 3. Enumerate all Metaclasses and find those whose soleInstance's superclass is this class. Reset the subclasses set to this set of classes, and add back to Smalltalk." "Player freeUnreferencedSubclasses" | oldFree candidatesForRemoval class | oldFree := Smalltalk garbageCollect. candidatesForRemoval := self subclasses asOrderedCollection select: [:aClass | (aClass name beginsWith: 'Player') and: [aClass name endsWithDigit]]. "Break all system links and then perform garbage collection." candidatesForRemoval do: [:c | self removeSubclass: c. "Break downward subclass pointers." + Smalltalk globals removeKey: c name ifAbsent: []. "Break binding of global - Smalltalk removeKey: c name ifAbsent: []. "Break binding of global name"]. candidatesForRemoval := nil. Smalltalk garbageCollect. "Now this should reclaim all unused subclasses" "Now reconstruct system links to subclasses with valid references." "First restore any global references via associations" (Association allSubInstances select: [:assn | (assn key isSymbol) and: [(assn key beginsWith: 'Player') and: [assn key endsWithDigit]]]) do: [:assn | class := assn value. (class isKindOf: self class) ifTrue: [self addSubclass: class. Smalltalk add: assn]]. "Then restore any further direct references, creating new associations." (Metaclass allInstances select: [:m | (m soleInstance name beginsWith: 'Player') and: [m soleInstance name endsWithDigit]]) do: [:m | class := m soleInstance. ((class isKindOf: self class) and: [(Smalltalk includesKey: class name) not]) ifTrue: [self addSubclass: class. Smalltalk at: class name put: class]]. SystemOrganization removeMissingClasses. ^ Smalltalk garbageCollect - oldFree !

1 0

The Inbox: Multilingual-pre.238.mcz
by commits＠source.squeak.org 26 May '18

26 May '18

Patrick Rein uploaded a new version of Multilingual to project The Inbox: http://source.squeak.org/inbox/Multilingual-pre.238.mcz ==================== Summary ==================== Name: Multilingual-pre.238 Author: pre Time: 26 May 2018, 10:01:56.809551 am UUID: 3f43777d-957b-374e-8bc6-2254763879f5 Ancestors: Multilingual-nice.237 Fixes the failing UTF-16 bug due to a missing initialization of the latin1 map. Also adds validation for overlong sequences in UTF-8. Refactors some of the UTF-8 conversion code to make the bitmasks more obvious. The performance hit from the validation seems to be negligible but further testing is required. =============== Diff against Multilingual-nice.237 =============== Item was changed: ----- Method: ByteTextConverter class>>initialize (in category 'class initialization') ----- initialize self == ByteTextConverter ifTrue: [self allSubclassesDo: [:c | c initialize]] + ifFalse: [self - ifFalse: [self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings] ! Item was added: + ----- Method: UTF16TextConverter class>>initializeLatin1MapAndEncodings (in category 'utilities') ----- + initializeLatin1MapAndEncodings + "Initialize the latin1Map and latin1Encodings. + These variables ensure that conversions from latin1 ByteString is reasonably fast" + + latin1Map := (ByteArray new: 256) atAllPut: 1. + latin1Encodings := (0 to: 255) collect: [:i | (ByteArray newFrom: {0 . i}) asString]! Item was changed: ----- Method: UTF8TextConverter class>>decodeByteString: (in category 'conversion') ----- decodeByteString: aByteString "Convert the given string from UTF-8 using the fast path if converting to Latin-1" + | outStream lastIndex nextIndex limit byte1 byte2 byte3 byte4 unicode continuationByteMask | - | outStream lastIndex nextIndex limit byte1 byte2 byte3 byte4 unicode | lastIndex := 1. (nextIndex := ByteString findFirstInString: aByteString inSet: latin1Map startingAt: lastIndex) = 0 ifTrue: [ ^aByteString ]. limit := aByteString size. outStream := (String new: limit) writeStream. + continuationByteMask := 2r00111111. [ outStream next: nextIndex - lastIndex putAll: aByteString startingAt: lastIndex. byte1 := aByteString byteAt: nextIndex. + + "The byte range checks are separated into single checks to allow for implementing recovery --pre + For the rules see: http://www.unicode.org/versions/Unicode7.0.0/UnicodeStandard-7.0.pdf page 125 table 3-7" + (byte1 bitAnd: 2r11100000) = 2r11000000 ifTrue: [ "two bytes" + nextIndex < limit ifFalse: [ ^self errorMalformedInput: aByteString ]. - (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" - nextIndex < limit ifFalse: [ ^ self errorMalformedInput: aByteString ]. byte2 := aByteString byteAt: (nextIndex := nextIndex + 1). + (byte1 < 2r11000010) ifTrue: [ ^ self errorMalformedInput: aByteString ]. "other requirements are covered by initial bit mask" + (byte2 bitAnd: 16rC0) = 16r80 ifFalse: [^ self errorMalformedInput: aByteString]. + unicode := ((byte1 bitAnd: 2r00011111) bitShift: 6) + (byte2 bitAnd: continuationByteMask)]. + + (byte1 bitAnd: 2r11110000) = 2r11100000 ifTrue: [ "three bytes" - (byte2 bitAnd: 16rC0) = 16r80 ifFalse:[ ^self errorMalformedInput: aByteString ]. - unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. - (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" (nextIndex + 2) <= limit ifFalse: [ ^ self errorMalformedInput: aByteString ]. byte2 := aByteString byteAt: (nextIndex := nextIndex + 1). (byte2 bitAnd: 16rC0) = 16r80 ifFalse:[ ^self errorMalformedInput: aByteString ]. + ((byte1 bitAnd: 2r00001111) = 2r0 and: [byte2 < 2r10100000]) ifTrue: [ ^self errorMalformedInput: aByteString ]. + ((byte1 = 2r11101101) and: [(byte2 bitAnd: 2r00100000) = 2r00100000]) ifTrue: [ + "reserved codepoints" + ^self errorMalformedInput: aByteString ]. byte3 := aByteString byteAt: (nextIndex := nextIndex + 1). (byte3 bitAnd: 16rC0) = 16r80 ifFalse:[ ^self errorMalformedInput: aByteString ]. + unicode := ((byte1 bitAnd: 2r00001111) bitShift: 12) + ((byte2 bitAnd: continuationByteMask) bitShift: 6) + + (byte3 bitAnd: continuationByteMask)]. + + (byte1 bitAnd: 2r11111000) = 2r11110000 ifTrue: [ "four bytes" - unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) - + (byte3 bitAnd: 63)]. - (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" (nextIndex + 3) <= limit ifFalse: [ ^ self errorMalformedInput: aByteString ]. byte2 := aByteString byteAt: (nextIndex := nextIndex + 1). (byte2 bitAnd: 16rC0) = 16r80 ifFalse:[ ^self errorMalformedInput: aByteString ]. + ((byte1 = 2r11110000) and: [byte2 < 2r10010000]) ifTrue: [ ^self errorMalformedInput: aByteString ]. byte3 := aByteString byteAt: (nextIndex := nextIndex + 1). (byte3 bitAnd: 16rC0) = 16r80 ifFalse:[ ^self errorMalformedInput: aByteString ]. byte4 := aByteString byteAt: (nextIndex := nextIndex + 1). (byte4 bitAnd: 16rC0) = 16r80 ifFalse:[ ^self errorMalformedInput: aByteString ]. + unicode := ((byte1 bitAnd: 2r00000111) bitShift: 18) + + ((byte2 bitAnd: continuationByteMask) bitShift: 12) + + ((byte3 bitAnd: continuationByteMask) bitShift: 6) + + (byte4 bitAnd: continuationByteMask)]. + - unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + - ((byte2 bitAnd: 63) bitShift: 12) + - ((byte3 bitAnd: 63) bitShift: 6) + - (byte4 bitAnd: 63)]. unicode ifNil: [ ^self errorMalformedInput: aByteString ]. unicode = 16rFEFF ifFalse: [ "Skip byte order mark" outStream nextPut: (Unicode value: unicode) ]. lastIndex := nextIndex + 1. (nextIndex := ByteString findFirstInString: aByteString inSet: latin1Map startingAt: lastIndex) = 0 ] whileFalse. ^outStream next: aByteString size - lastIndex + 1 putAll: aByteString startingAt: lastIndex; contents !

2 1

Caffeine 3D
by Craig Latta 26 May '18

26 May '18

Hi all-- You might like to see this quick look at 3D in Caffeine, using SqueakJS, CSS and Web3D. https://youtu.be/KNv5i8KyjGM thanks! -C -- Craig Latta Black Page Digital Amsterdam :: San Francisco craig(a)blackpagedigital.com +31 6 2757 7177 (SMS ok) + 1 415 287 3547 (no SMS)

3 2

[RELEASE] Asking advice for Linux
by Edgar J. De Cleene 26 May '18

26 May '18

As part of the upcoming 5.2 I decide migrate all my odds experiments to it changing as little as possible. Start on Mac and today wish to continue on Linux My flavor is Ubuntu Mate 16LTS The only Squeak downloadoable via synaptic is old Stack Vm from Ian. Which is fine as almost all I use daily is customized 4.5 updated to before Cog (near to 4.6 final) The point is when you download from http://ftp.squeak.org/6.0alpha/Squeak6.0alpha-17967-32bit/Squeak6.0alpha-179 67-32bit-All-in-One.zip Or http://ftp.squeak.org/6.0alpha/Squeak6.0alpha-17967-32bit/Squeak6.0alpha-179 67-32bit-201712221331-Linux.zip Have troubles when unzipped to another folder as Desktop Also the .sh fails if you manually move the X.image and X.changes you made in Mac to the buried folders, being the All in One the Resources. Why is this ? And if you touch manually some inside stop working Help , Linux people Edgar @morplenauta

3 2

Collecting Release Notes for 5.2
by Marcel Taeumel 25 May '18

25 May '18

Hi, there. I made preparations for every volunteer to work on the release notes for the upcoming Squeak 5.2. Here is what I did: 1. I updated the swiki page "Squeak Versions": http://wiki.squeak.org/squeak/275 [http://wiki.squeak.org/squeak/275] 2. I created an swiki page to collect ideas in "Squeak 5.2 Release Notes": http://wiki.squeak.org/squeak/6599 [http://wiki.squeak.org/squeak/6599] 3. I explained the interplay between the release notes on GitHub, swiki, and Squeak's Help Browser on that page 6599 [http://wiki.squeak.org/squeak/6599]: https://raw.githubusercontent.com/squeak-smalltalk/squeak-app/squeak-trunk/… [https://raw.githubusercontent.com/squeak-smalltalk/squeak-app/squeak-trunk/…] If you are not sure how to edit things on the swiki, look here: http://wiki.squeak.org/squeak/9 [http://wiki.squeak.org/squeak/9] Note that you can file-out the commit messages since the last release via "ReleaseBuilder fileOutChangesBetweenReleases" into a mark-down file. Best, Marcel

1 0

The Trunk: ReleaseBuilder-mt.184.mcz
by commits＠source.squeak.org 25 May '18

25 May '18

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.184.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.184 Author: mt Time: 25 May 2018, 10:06:40.125844 am UUID: 93aa5eff-5938-ca4c-97f2-1cfff9337924 Ancestors: ReleaseBuilder-mt.183 Updates the commit-message file-out code to be used as helper for writing the release notes. Just call "ReleaseBuilder fileOutChangesBetweenReleases" and look for a new "*.md" file in your working directory. =============== Diff against ReleaseBuilder-mt.183 =============== Item was changed: ----- Method: ReleaseBuilder class>>changesBetweenReleases (in category 'scripts - support') ----- changesBetweenReleases | repos configs result | + repos :=#(51) collect: [:ea | - repos :=#(41 42 43 44 45 50) collect: [:ea | (MCHttpRepository location: 'http://source.squeak.org/squeak', ea user: 'squeak' password: 'squeak')]. configs := repos collect: [:ea | ea description -> (self firstConfigurationIn: ea map: 'update')]. configs := configs, {(self buildRepository description -> self buildConfiguration)}. result := OrderedDictionary new. configs overlappingPairsDo: [:c1 :c2 | result at: c2 key put: (self changesBetween: c1 value and: c2 value)]. ^ result !

1 0

The Trunk: Kernel-mt.1171.mcz
by commits＠source.squeak.org 25 May '18

25 May '18

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1171.mcz ==================== Summary ==================== Name: Kernel-mt.1171 Author: mt Time: 25 May 2018, 9:29:12.802382 am UUID: deb4b76c-283f-764c-958d-37e8162ea996 Ancestors: Kernel-mt.1170 Rename #isReference to #isCodeReference. =============== Diff against Kernel-mt.1170 =============== Item was added: + ----- Method: Object>>isCodeReference (in category 'testing') ----- + isCodeReference + + ^ self isClassReference or: [self isMethodReference]! Item was removed: - ----- Method: Object>>isReference (in category 'testing') ----- - isReference - - ^ self isClassReference or: [self isMethodReference]!

1 0

The Trunk: System-mt.1030.mcz
by commits＠source.squeak.org 25 May '18

25 May '18

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1030.mcz ==================== Summary ==================== Name: System-mt.1030 Author: mt Time: 25 May 2018, 9:27:22.087382 am UUID: 5c12364e-1739-1d46-b1d2-3c1ec7b9c67e Ancestors: System-mt.1029 Rename #asReference to #asCodeReference. =============== Diff against System-mt.1029 =============== Item was added: + ----- Method: ClassDescription>>asCodeReference (in category '*System-Tools') ----- + asCodeReference + + ^ self classReference! Item was removed: - ----- Method: ClassDescription>>asReference (in category '*System-Tools') ----- - asReference - - ^ self classReference! Item was added: + ----- Method: ClassReference>>asCodeReference (in category 'converting') ----- + asCodeReference + + ^ self! Item was removed: - ----- Method: ClassReference>>asReference (in category 'converting') ----- - asReference - - ^ self! Item was added: + ----- Method: CompiledCode>>asCodeReference (in category '*System-converting') ----- + asCodeReference + + ^ self methodReference ifNil: [MethodReference invalid]! Item was removed: - ----- Method: CompiledCode>>asReference (in category '*System-converting') ----- - asReference - - ^ self methodReference ifNil: [MethodReference invalid]! Item was added: + ----- Method: MethodReference>>asCodeReference (in category 'converting') ----- + asCodeReference + + ^ self! Item was removed: - ----- Method: MethodReference>>asReference (in category 'converting') ----- - asReference - - ^ self!

1 0

The Trunk: Tools-mt.815.mcz
by commits＠source.squeak.org 25 May '18

25 May '18

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.815.mcz ==================== Summary ==================== Name: Tools-mt.815 Author: mt Time: 24 May 2018, 10:49:38.933621 am UUID: d4418382-5b3a-b74d-ac4c-a16f2306827d Ancestors: Tools-tpr.814 Avoid unnecessary tabs or linebreaks when creating accessors. =============== Diff against Tools-tpr.814 =============== Item was changed: ----- Method: Behavior>>createGetterFor: (in category '*Tools-Browser-accessors') ----- createGetterFor: aName | code | + code := '{1}\\ ^ {1}' withCRs format: {aName}. - code := '{1}\ \ ^ {1}\' withCRs format: {aName.}. self compile: code classified: #accessing notifying: nil.! Item was changed: ----- Method: Behavior>>createSetterFor: (in category '*Tools-Browser-accessors') ----- createSetterFor: aName | code | + code := '{1}: anObject\\ {2}{1} := anObject.' withCRs + format: {aName. self settersReturnValue ifTrue: ['^ '] ifFalse: ['']}. - code := '{1}: anObject\ \ {2}{1} := anObject.\' withCRs - format: {aName. self settersReturnValue ifTrue: ['^ '] ifFalse: [''].}. self compile: code classified: #accessing notifying: nil.! Item was changed: ----- Method: Behavior>>settersReturnValue (in category '*Tools-Browser-accessors') ----- settersReturnValue "Determine whether the browser's createInstVarAccessors code will generate setters that answer self (the default here) or the value set. Classes that want to answer the value set (e.g. VMStructType) override." + + ^ false! - ^false!

2 1

The Inbox: Tools-cmm.816.mcz
by commits＠source.squeak.org 24 May '18

24 May '18

Chris Muller uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-cmm.816.mcz ==================== Summary ==================== Name: Tools-cmm.816 Author: cmm Time: 24 May 2018, 4:43:41.184703 pm UUID: 05f6c859-3e95-45a3-972c-01430ee54d1e Ancestors: Tools-mt.815 Remove unnecessary period from generated setter methods, and blank lines from getters and setters. =============== Diff against Tools-mt.815 =============== Item was changed: ----- Method: Behavior>>createGetterFor: (in category '*Tools-Browser-accessors') ----- createGetterFor: aName - | code | + code := '{1}\ ^ {1}' withCRs format: {aName}. + self compile: code classified: #accessing notifying: nil! - code := '{1}\\ ^ {1}' withCRs format: {aName}. - self compile: code classified: #accessing notifying: nil.! Item was changed: ----- Method: Behavior>>createSetterFor: (in category '*Tools-Browser-accessors') ----- + createSetterFor: aName - createSetterFor: aName - | code | + code := '{1}: anObject\ {2}{1} := anObject' withCRs format: {aName. + self settersReturnValue ifTrue: [ '^ ' ] ifFalse: [ String empty ]}. + self + compile: code + classified: #accessing + notifying: nil! - code := '{1}: anObject\\ {2}{1} := anObject.' withCRs - format: {aName. self settersReturnValue ifTrue: ['^ '] ifFalse: ['']}. - self compile: code classified: #accessing notifying: nil.!

1 0

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

Jump to page: