Packages March 2020

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: System-nice.1149.mcz
by commits＠source.squeak.org 30 Mar '20

30 Mar '20

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.1149.mcz ==================== Summary ==================== Name: System-nice.1149 Author: nice Time: 30 March 2020, 12:50:26.196366 pm UUID: ece53b0b-24d2-4d4b-bc91-6794a661f886 Ancestors: System-ul.1148 avoid neuron storming [...] doWhileTrue: true, it just means [...] repeat There is no other sender of doWhileFalse: doWhileTrue: and my advice would be to deprecate them. YAGNI. =============== Diff against System-ul.1148 =============== Item was changed: ----- Method: MOFile>>searchByHash: (in category 'experimental') ----- searchByHash: aString | hashValue nstr index incr key | hashValue := self hashPjw: aString. incr := 1 + (hashValue \\ (hashTableSize -2)). index := (hashValue \\ hashTableSize) . [ nstr := (hashTable at: index +1 ). nstr = 0 ifTrue: [^nil]. key := self originalString: nstr. key = aString ifTrue: [^self translatedString: nstr]. index >= (hashTableSize - incr) ifTrue: [index := index - (hashTableSize - incr) ] ifFalse:[index := index + incr]. + ] repeat! - ] doWhileTrue: true.!

1 0

The Trunk: Collections-kfr.878.mcz
by commits＠source.squeak.org 29 Mar '20

29 Mar '20

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-kfr.878.mcz ==================== Summary ==================== Name: Collections-kfr.878 Author: kfr Time: 29 February 2020, 12:18:54.1853 pm UUID: ce016281-22ee-4948-b534-944fb3913521 Ancestors: Collections-ul.877 Add 'clear' to Transcript window menu. =============== Diff against Collections-ul.877 =============== Item was added: + ----- Method: TranscriptStream>>addModelItemsToWindowMenu: (in category 'menu') ----- + addModelItemsToWindowMenu: aMenu + + aMenu addLine. + aMenu + add: 'clear' + target: self + action: #clear.!

1 0

The Trunk: Collections-dtl.884.mcz
by commits＠source.squeak.org 29 Mar '20

29 Mar '20

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-dtl.884.mcz ==================== Summary ==================== Name: Collections-dtl.884 Author: dtl Time: 28 March 2020, 8:45:29.299371 pm UUID: c6979179-ecac-4854-a979-c9dd2dcaf88e Ancestors: Collections-dtl.883, Collections-kfr.878 Merge. Add #clear to Transcript window menu. Proposed by Christoph in Collections-ct.869 (now in treated inbox) and merged from Karl's update in Collections-kfr.878. =============== Diff against Collections-dtl.883 =============== Item was added: + ----- Method: TranscriptStream>>addModelItemsToWindowMenu: (in category 'menu') ----- + addModelItemsToWindowMenu: aMenu + + aMenu addLine. + aMenu + add: 'clear' + target: self + action: #clear.!

1 0

The Trunk: Collections-ct.876.mcz
by commits＠source.squeak.org 28 Mar '20

28 Mar '20

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.876.mcz ==================== Summary ==================== Name: Collections-ct.876 Author: ct Time: 16 February 2020, 3:38:21.566 pm UUID: 83e0e8f6-a3b2-f540-a88e-6d833e2146fd Ancestors: Collections-topa.873 Fixes a typo in #withFirstCharacterDownshifted =============== Diff against Collections-topa.873 =============== Item was changed: ----- Method: Symbol>>withFirstCharacterDownshifted (in category 'converting') ----- withFirstCharacterDownshifted + "Answer an object like the receiver but with first character downshifted if necessary" - "Answer an object like the receiver but with first character downshifted if necesary" + ^self asString withFirstCharacterDownshifted asSymbol! - ^self asString withFirstCharacterDownshifted asSymbol.!

1 0

The Trunk: Collections-dtl.883.mcz
by commits＠source.squeak.org 28 Mar '20

28 Mar '20

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-dtl.883.mcz ==================== Summary ==================== Name: Collections-dtl.883 Author: dtl Time: 28 March 2020, 4:33:55.690528 pm UUID: e4123586-74d1-4edb-a358-46ce6d95631c Ancestors: Collections-eem.882, Collections-ct.876 Remove WideString class>>initialize to followi up on an old to-do note from Andreas (see methods wtih @@@ comments for others). Merge Collections-ct.876 =============== Diff against Collections-eem.882 =============== Item was changed: ----- Method: Symbol>>withFirstCharacterDownshifted (in category 'converting') ----- withFirstCharacterDownshifted + "Answer an object like the receiver but with first character downshifted if necessary" - "Answer an object like the receiver but with first character downshifted if necesary" + ^self asString withFirstCharacterDownshifted asSymbol! - ^self asString withFirstCharacterDownshifted asSymbol.! Item was removed: - ----- Method: WideSymbol class>>initialize (in category 'class initialization') ----- - initialize - Smalltalk removeFromShutDownList: self. "@@@ Remove this later @@@"!

1 0

The Trunk: Compiler-ct.426.mcz
by commits＠source.squeak.org 28 Mar '20

28 Mar '20

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ct.426.mcz ==================== Summary ==================== Name: Compiler-ct.426 Author: ct Time: 28 March 2020, 1:22:49.51256 am UUID: 761924e9-77a0-1144-9533-8a7c22c03332 Ancestors: Compiler-ct.424 Fixes a bug regarding decompilation of special selectors. The following did not work before: (OrderedCollection >> #asArray) decompile generate valueWithReceiver: {42} asOrderedCollection arguments: #(). "MessageNotUnderstood: OrderedCollection>>#Array=>Array" See also this thread: http://forum.world.st/The-Inbox-EToys-ct-367-mcz-tp5105507p5114020.html =============== Diff against Compiler-ct.424 =============== Item was changed: ----- Method: DecompilerConstructor>>codeAnySelector: (in category 'constructor') ----- codeAnySelector: selector ^SelectorNode new key: selector + index: nil - index: 0 type: SendType!

1 0

The Trunk: EToys-eem.388.mcz
by commits＠source.squeak.org 27 Mar '20

27 Mar '20

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.388.mcz ==================== Summary ==================== Name: EToys-eem.388 Author: eem Time: 27 March 2020, 10:34:37.924169 am UUID: 637d866a-2ec0-4cc4-a31d-b3ebefeb78be Ancestors: EToys-eem.387 Eliminate another underscore assignment that causes the decompilation tests to error. =============== Diff against EToys-eem.387 =============== Item was changed: ----- Method: PluggableTabBarMorph>>mouseDown: (in category 'actions') ----- mouseDown: anEvent | xPosition newTab | xPosition := anEvent cursorPoint x. + newTab := + (self tabs detect: [ :anAssociation | | tabBounds | - newTab _ - ((self tabs detect: [ :anAssociation | | tabBounds | tabBounds := anAssociation key bounds. (tabBounds left <= xPosition) and: [ tabBounds right >= xPosition]] + ifNone: [^self]) + key. - ifNone: [nil]) - key). newTab ifNil: [^ self]. + newTab = activeTab ifFalse: [ self activeTab: newTab ]! - newTab = activeTab ifFalse: [ self activeTab: newTab ] - !

1 0

The Trunk: Compiler-ct.424.mcz
by commits＠source.squeak.org 27 Mar '20

27 Mar '20

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-ct.424.mcz ==================== Summary ==================== Name: Compiler-ct.424 Author: ct Time: 26 March 2020, 5:19:54.71456 pm UUID: 10f4405b-896c-3149-b76b-b9cd45ca5734 Ancestors: Compiler-nice.420 Fixes a bug regarding decompilation of FullBlockClosures Sample to reproduce: [^ true] decompile should NOT return {[]}! =============== Diff against Compiler-nice.420 =============== Item was changed: ----- Method: Decompiler>>blockTo: (in category 'control') ----- blockTo: end + "Decompile a range of code as in statementsTo:, but return a block node. NB: end is an exclusive index." - "Decompile a range of code as in statementsTo:, but return a block node." | exprs block oldBase lastStatementOfBlockIsNil | oldBase := blockStackBase. blockStackBase := stack size. exprs := self statementsTo: end. lastStatementOfBlockIsNil := pc < method endPC and: [exprs notEmpty and: [exprs last == (constTable at: 4)]]. lastStatementOfBlockIsNil ifTrue: [exprs := exprs allButLast]. block := constructor codeBlock: exprs returns: lastReturnPc = lastPc. blockStackBase := oldBase. lastReturnPc := -1. "So as not to mislead outer calls" ^block! Item was changed: ----- Method: Decompiler>>doClosureCopy:copiedValues: (in category 'control') ----- doClosureCopy: aCompiledBlock copiedValues: blockCopiedValues "implementation note: must be invoked on a copy because it modifies states" | savedPC blockArgs blockTemps blockTempsOffset block mark | numLocalTemps := aCompiledBlock numTemps - aCompiledBlock numArgs - blockCopiedValues size. blockTempsOffset := aCompiledBlock numArgs + blockCopiedValues size. (blockStartsToTempVars notNil "implies we were intialized with temp names." and: [blockStartsToTempVars includesKey: aCompiledBlock]) ifTrue: [tempVars := blockStartsToTempVars at: aCompiledBlock] ifFalse: [blockArgs := (1 to: aCompiledBlock numArgs) collect: [:i| (constructor codeTemp: i - 1 named: 't', (tempVarCount + i) printString) beBlockArg]. blockTemps := (1 to: numLocalTemps) collect: [:i| constructor codeTemp: i + blockTempsOffset - 1 named: 't', (tempVarCount + i + aCompiledBlock numArgs) printString]. tempVars := blockArgs, blockCopiedValues, blockTemps]. tempVarCount := tempVarCount + aCompiledBlock numArgs + numLocalTemps. lastJumpIfPcStack := OrderedCollection new. caseExits := OrderedCollection new. statements := OrderedCollection new: 20. savedPC := pc. self method: (method := aCompiledBlock) pc: aCompiledBlock initialPC. mark := stack size. + block := self blockTo: aCompiledBlock endPC + 1. - block := self blockTo: aCompiledBlock endPC. mark = stack size ifFalse: [self error: 'block did alter the stack']. ^((constructor codeArguments: (tempVars copyFrom: 1 to: aCompiledBlock numArgs) temps: (tempVars copyFrom: blockTempsOffset + 1 to: blockTempsOffset + numLocalTemps) block: block) pc: aCompiledBlock -> savedPC; "c.f. BytecodeEncoder>>pc" yourself).!

1 0

The Trunk: System-ul.1148.mcz
by commits＠source.squeak.org 24 Mar '20

24 Mar '20

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.1148.mcz ==================== Summary ==================== Name: System-ul.1148 Author: ul Time: 24 March 2020, 9:15:28.593463 pm UUID: 79bbf013-47f5-4f3c-9e42-8f169fe22a6c Ancestors: System-ul.1147 - create a deep copy of the keys read from the file in SecurityManager >> #loadSecurityKeys, so that they can be modified later =============== Diff against System-ul.1147 =============== Item was changed: ----- Method: SecurityManager>>loadSecurityKeys (in category 'fileIn/out') ----- loadSecurityKeys "SecurityManager default loadSecurityKeys" "Load the keys file for the current user" | fd loc file keys | self isInRestrictedMode ifTrue:[^self]. "no point in even trying" loc := self secureUserDirectory. "where to get it from" loc last = FileDirectory pathNameDelimiter ifFalse:[ loc := loc copyWith: FileDirectory pathNameDelimiter. ]. fd := FileDirectory on: loc. file := [fd readOnlyFileNamed: keysFileName] on: FileDoesNotExistException do:[:ex| nil]. file ifNil:[^self]. "no keys file" + keys := (Object readFrom: file) veryDeepCopy. "Use #veryDeepCopy to make the non-writable literal objects created by the Compiler writable." - keys := Object readFrom: file. privateKeyPair := keys first. trustedKeys := keys last. file close.!

1 0

The Trunk: System-ul.1147.mcz
by commits＠source.squeak.org 19 Mar '20

19 Mar '20

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.1147.mcz ==================== Summary ==================== Name: System-ul.1147 Author: ul Time: 18 March 2020, 7:45:34.703617 pm UUID: 28584d2a-ac1b-4e16-a2fe-8a12694179c4 Ancestors: System-eem.1146 - fix: make ThirtyTwoBitRegister >> leftRotateBy: work when the argument is negative =============== Diff against System-eem.1146 =============== Item was changed: ----- Method: ThirtyTwoBitRegister>>leftRotateBy: (in category 'accumulator ops') ----- leftRotateBy: bits "Rotate my contents left by the given number of bits, retaining exactly 32 bits." "Details: Perform this operation with no LargeInteger arithmetic." | bitCount newHi | + bitCount := bits \\ 32. "Ensure bitCount is between 0 and 31" - bitCount := bits. - bitCount >= 32 ifTrue: [ bitCount := bitCount \\ 32 ]. bitCount >= 16 ifTrue: [ newHi := low. low := hi. hi := newHi. bitCount := bitCount - 16 ]. bitCount >= 15 ifTrue: [ newHi := ((hi bitAnd: 16r1) bitShift: 15) bitOr: (low bitShift: -1). low := ((low bitAnd: 16r1) bitShift: 15) bitOr: (hi bitShift: -1). hi := newHi. ^self ]. bitCount >= 1 ifTrue: [ | shift | shift := bitCount - 16. newHi := ((hi bitShift: bitCount) bitAnd: 16rFFFF) bitOr: (low bitShift: shift). low := ((low bitShift: bitCount) bitAnd: 16rFFFF) bitOr: (hi bitShift: shift). hi := newHi ]!

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 March 2020