Packages January 2018

packages@lists.squeakfoundation.org

1 participants
79 discussions

The Trunk: Kernel-eem.1139.mcz
by commits＠source.squeak.org 11 Jan '18

11 Jan '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1139.mcz ==================== Summary ==================== Name: Kernel-eem.1139 Author: eem Time: 10 January 2018, 5:37:26.591853 pm UUID: 54bd97b7-0152-4647-b109-78c294afc74e Ancestors: Kernel-eem.1138 Add CompiledBlock>>pragmaAt:. Make the accessors that defer to the home mehtod use homeMehtod instaed of chaining through outerCode. The stack depth is one less as a result. =============== Diff against Kernel-eem.1138 =============== Item was changed: ----- Method: CompiledBlock>>encoderClass (in category 'accessing') ----- encoderClass "Answer the encoder class that encoded the bytecodes in this method. The sign flag bit is used by the VM to select a bytecode set. This formulation may seem odd but this has to be fast, so no property probe unless needed." ^self header >= 0 ifTrue: [PrimaryBytecodeSetEncoderClass] ifFalse: [PrimaryBytecodeSetEncoderClass == SecondaryBytecodeSetEncoderClass ifTrue: "Support for testing prior to installing another set" + [(self homeMethod propertyValueAt: #encoderClass) ifNil: [SecondaryBytecodeSetEncoderClass]] - [(self outerCode propertyValueAt: #encoderClass) ifNil: [SecondaryBytecodeSetEncoderClass]] ifFalse: [SecondaryBytecodeSetEncoderClass]]! Item was changed: ----- Method: CompiledBlock>>holdsTempNames (in category 'source code management') ----- holdsTempNames + ^self homeMethod holdsTempNames! - ^self outerCode holdsTempNames! Item was changed: ----- Method: CompiledBlock>>methodClass (in category 'accessing') ----- methodClass "Answer the class that I am installed in." + ^self homeMethod methodClass! - | outerCodeOrMethodClassAssoc | - outerCodeOrMethodClassAssoc := self outerCode. - outerCodeOrMethodClassAssoc isVariableBinding ifTrue: - [self assert: outerCodeOrMethodClassAssoc value isBehavior. - ^outerCodeOrMethodClassAssoc value]. - ^outerCodeOrMethodClassAssoc methodClass! Item was changed: ----- Method: CompiledBlock>>methodForDecompile (in category 'decompiling') ----- methodForDecompile + ^self homeMethod methodForDecompile! - ^self outerCode methodForDecompile! Item was changed: ----- Method: CompiledBlock>>methodNode (in category 'accessing') ----- methodNode + ^ self homeMethod methodNode! - ^ self outerCode methodNode! Item was added: + ----- Method: CompiledBlock>>pragmaAt: (in category 'accessing-pragmas & properties') ----- + pragmaAt: aKey + "Answer the pragma with selector aKey, or nil if none." + ^self homeMethod pragmaAt: aKey! Item was changed: ----- Method: CompiledBlock>>selector (in category 'accessing') ----- selector + ^ self homeMethod selector! - ^ self outerCode selector!

1 0

The Trunk: Files-tpr.177.mcz
by commits＠source.squeak.org 08 Jan '18

08 Jan '18

tim Rowledge uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-tpr.177.mcz ==================== Summary ==================== Name: Files-tpr.177 Author: tpr Time: 8 January 2018, 2:42:23.914232 pm UUID: c7c9aa30-635c-40a5-abff-1001a16e85ea Ancestors: Files-tpr.176 Remove a spurious use of #checkName:fixErrors: that wilfully mangled filenames - it wasn't even the right thing to do since the #newFileNamed: carefully uses it within each path segment. The writeSourceCode... method is still insane even after this. It looks like it is something left over from the partial i18n era. See also crazy things like #multiCs. See also the apparent complete nonsense of the supposed html flag; I can't find any places where actual html is generated and the only effect seems to be the file extension used ? =============== Diff against Files-tpr.176 =============== Item was changed: ----- Method: FileDirectory>>writeSourceCodeFrom:baseName:isSt:useHtml: (in category 'utilities') ----- writeSourceCodeFrom: aStream baseName: baseName isSt: stOrCsFlag useHtml: useHtml "Write the source code from aStream into a file." | extension converter f fileName | aStream contents isAsciiString ifTrue: [ stOrCsFlag ifTrue: [ extension := (FileDirectory dot, FileStream st). ] ifFalse: [ extension := (FileDirectory dot, FileStream cs). ]. converter := MacRomanTextConverter new. ] ifFalse: [ stOrCsFlag ifTrue: [ extension := (FileDirectory dot, FileStream st "multiSt"). ] ifFalse: [ extension := (FileDirectory dot, FileStream cs "multiCs"). ]. converter := UTF8TextConverter new. ]. fileName := useHtml ifTrue: [baseName, '.html'] ifFalse: [baseName, extension]. - fileName := self checkName: fileName fixErrors: true. f := self newFileNamed: fileName. f ifNil: [^ self error: 'Cannot open file']. (converter isMemberOf: UTF8TextConverter) ifTrue: [f binary. UTF8TextConverter writeBOMOn: f]. f text. f converter: converter. f nextPutAll: aStream contents. f close. !

1 0

The Trunk: 46Deprecated-mt.7.mcz
by commits＠source.squeak.org 08 Jan '18

08 Jan '18

Marcel Taeumel uploaded a new version of 46Deprecated to project The Trunk: http://source.squeak.org/trunk/46Deprecated-mt.7.mcz ==================== Summary ==================== Name: 46Deprecated-mt.7 Author: mt Time: 8 January 2018, 9:12:32.321885 am UUID: 3dff94ee-9c0e-4543-bb0b-3180b65f1695 Ancestors: 46Deprecated-eem.6 Makes some deprecations more clear with a helpful description. =============== Diff against 46Deprecated-eem.6 =============== Item was changed: ----- Method: ScrollPane>>alwaysShowHScrollBar: (in category '*46Deprecated') ----- alwaysShowHScrollBar: bool + + self deprecated: 'Use #hScrollBarPolicy: instead. Note that true means #always and false means #whenNeeded.'. + - self deprecated. self setProperty: #hScrollBarAlways toValue: bool. bool ifTrue: [self hScrollBarPolicy: #always] ifFalse: [self hScrollBarPolicy: #whenNeeded]. self hHideOrShowScrollBar. ! Item was changed: ----- Method: ScrollPane>>alwaysShowScrollBars: (in category '*46Deprecated') ----- alwaysShowScrollBars: bool "Get rid of scroll bar for short panes that don't want it shown." + self deprecated: 'Use #vScrollBarPolicy: and #hScrollBarPolicy: instead. Note that true means #always and false means #whenNeeded.'. - self deprecated. self alwaysShowHScrollBar: bool; alwaysShowVScrollBar: bool. ! Item was changed: ----- Method: ScrollPane>>alwaysShowVScrollBar: (in category '*46Deprecated') ----- alwaysShowVScrollBar: bool + self deprecated: 'Use #vScrollBarPolicy: instead. Note that true means #always and false means #whenNeeded.'. - self deprecated. self setProperty: #vScrollBarAlways toValue: bool. bool ifTrue: [self vScrollBarPolicy: #always] ifFalse: [self vScrollBarPolicy: #whenNeeded]. self vHideOrShowScrollBar. ! Item was changed: ----- Method: ScrollPane>>hideHScrollBarIndefinitely: (in category '*46Deprecated') ----- hideHScrollBarIndefinitely: bool "Get rid of scroll bar for short panes that don't want it shown." + self deprecated: 'Use #hScrollBarPolicy: instead. Note that true means #never and false means #whenNeeded.'. - self deprecated. self setProperty: #noHScrollBarPlease toValue: bool. bool ifTrue: [self hScrollBarPolicy: #never] ifFalse: [self hScrollBarPolicy: #whenNeeded]. self hHideOrShowScrollBar. ! Item was changed: ----- Method: ScrollPane>>hideScrollBarsIndefinitely: (in category '*46Deprecated') ----- hideScrollBarsIndefinitely: bool "Get rid of scroll bar for short panes that don't want it shown." + self deprecated: 'Use #vScrollBarPolicy: and #hScrollBarPolicy: instead. Note that true means #never and false means #whenNeeded.'. - self deprecated. self hideVScrollBarIndefinitely: bool. self hideHScrollBarIndefinitely: bool. ! Item was changed: ----- Method: ScrollPane>>hideVScrollBarIndefinitely: (in category '*46Deprecated') ----- hideVScrollBarIndefinitely: bool "Get rid of scroll bar for short panes that don't want it shown." + self deprecated: 'Use #vScrollBarPolicy: instead. Note that true means #never and false means #whenNeeded.'. - self deprecated. self setProperty: #noVScrollBarPlease toValue: bool. bool ifTrue: [self vScrollBarPolicy: #never] ifFalse: [self vScrollBarPolicy: #whenNeeded]. self vHideOrShowScrollBar. ! Item was changed: ----- Method: ScrollPane>>showHScrollBarOnlyWhenNeeded: (in category '*46Deprecated') ----- showHScrollBarOnlyWhenNeeded: bool "Get rid of scroll bar for short panes that don't want it shown." + self deprecated: 'Use #hScrollBarPolicy: instead. Note that true means #whenNeeded and false means #never.'. - self deprecated. self setProperty: #noHScrollBarPlease toValue: bool not. self setProperty: #hScrollBarAlways toValue: bool not. bool ifTrue: [self hScrollBarPolicy: #whenNeeded] ifFalse: [self hScrollBarPolicy: #never]. self hHideOrShowScrollBar. ! Item was changed: ----- Method: ScrollPane>>showScrollBarsOnlyWhenNeeded: (in category '*46Deprecated') ----- showScrollBarsOnlyWhenNeeded: bool + self deprecated: 'Use #vScrollBarPolicy: and #hScrollBarPolicy: instead. Note that true means #whenNeeded and false means #never.'. - self deprecated. self showHScrollBarOnlyWhenNeeded: bool. self showVScrollBarOnlyWhenNeeded: bool. ! Item was changed: ----- Method: ScrollPane>>showVScrollBarOnlyWhenNeeded: (in category '*46Deprecated') ----- showVScrollBarOnlyWhenNeeded: bool "Get rid of scroll bar for short panes that don't want it shown." + self deprecated: 'Use #vScrollBarPolicy: instead. Note that true means #whenNeeded and false means #never.'. - self deprecated. self setProperty: #noVScrollBarPlease toValue: bool not. self setProperty: #vScrollBarAlways toValue: bool not. bool ifTrue: [self vScrollBarPolicy: #whenNeeded] ifFalse: [self vScrollBarPolicy: #never]. self vHideOrShowScrollBar. !

1 0

The Trunk: Kernel-eem.1138.mcz
by commits＠source.squeak.org 08 Jan '18

08 Jan '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1138.mcz ==================== Summary ==================== Name: Kernel-eem.1138 Author: eem Time: 7 January 2018, 8:52:41.778375 pm UUID: fd3ba881-0f7c-4ef3-a5a5-6b132f9d01fc Ancestors: Kernel-eem.1137 Implement homeMethod; I find "method method" painful to write (too Bowieesque for code). Move pcPreviousTo: up to CompiledCode. Make CompiledCode>>= accept non-identical outerCode instances in the last literal (outerCode in a CompiledBlock). Simulate FullBlockClosure>>value[:*] in the Debugger. =============== Diff against Kernel-eem.1136 =============== Item was added: + ----- Method: CompiledBlock>>holdsTempNames (in category 'source code management') ----- + holdsTempNames + ^self outerCode holdsTempNames! Item was added: + ----- Method: CompiledBlock>>homeMethod (in category 'accessing') ----- + homeMethod + "answer the compiled method that I am installed in, or nil if none." + ^self outerCode homeMethod! Item was changed: ----- Method: CompiledCode>>= (in category 'comparing') ----- = method "Answer whether the receiver implements the same code as the argument, method. Here ``same code'' means that if the receiver's source is compiled with the same compiler it should produce the same sequence of bytecodes and literals, same trailer and same properties. Hence this definition of #= (only one of many plausible definitions) can be used to quickly identify changes in the compiler's output." | numLits | self == method ifTrue: [^true]. method isCompiledCode ifFalse: [^false]. self size = method size ifFalse: [^false]. self header = method header ifFalse: [^false]. "N.B. includes numLiterals comparison." self initialPC to: self endPC do: [:i | (self at: i) = (method at: i) ifFalse: [^false]]. numLits := self numLiterals. 1 to: numLits do: [:i| | lit1 lit2 | lit1 := self literalAt: i. lit2 := method literalAt: i. (lit1 == lit2 or: [lit1 literalEqual: lit2]) ifFalse: [(i = 1 and: [#(117 120) includes: self primitive]) ifTrue: [lit1 isArray ifTrue: [(lit2 isArray and: [(lit1 first: 2) = (lit2 first: 2)]) ifFalse: [^false]] ifFalse: "ExternalLibraryFunction" [(lit1 analogousCodeTo: lit2) ifFalse: [^false]]] ifFalse: [i = (numLits - 1) ifTrue: "properties" [(self properties analogousCodeTo: method properties) ifFalse: [^false]] ifFalse: "last literal (methodClassAssociation) of class-side methods is not unique" + "last literal of CompiledBlock is outerMethod and may not be unique." + [(self isCompiledBlock + and: [lit1 isCompiledCode + and: [lit2 isCompiledCode]]) ifTrue: + [^true]. + (i = numLits - [(i = numLits and: [lit1 isVariableBinding and: [lit2 isVariableBinding and: [lit1 key == lit2 key and: [lit1 value == lit2 value]]]]) ifFalse: [^false]]]]]. ^true! Item was added: + ----- Method: CompiledCode>>homeMethod (in category 'accessing') ----- + homeMethod + "Answer the home method associated with the receiver." + + ^self subclassResponsibility! Item was added: + ----- Method: CompiledCode>>pcPreviousTo: (in category 'scanning') ----- + pcPreviousTo: thePC + "Answer the pc of the bytecode before the bytecode at thePC." + | pc prevPc byte encoderClass | + thePC > self endPC ifTrue: [^self endPC]. + pc := self initialPC. + encoderClass := self encoderClass. + [pc < thePC] whileTrue: + [byte := self at: (prevPc := pc). + [pc := pc + (encoderClass bytecodeSize: byte). + encoderClass isExtension: byte] whileTrue: + [byte := self at: pc]]. + ^prevPc! Item was added: + ----- Method: CompiledMethod>>homeMethod (in category 'accessing') ----- + homeMethod + "Answer the home method associated with the receiver. + This is polymorphic with closure, CompiledBlock, Context etc" + + ^self! Item was removed: - ----- Method: CompiledMethod>>pcPreviousTo: (in category 'scanning') ----- - pcPreviousTo: thePC - "Answer the pc of the bytecode before the bytecode at thePC." - | pc prevPc byte encoderClass | - thePC > self endPC ifTrue: [^self endPC]. - pc := self initialPC. - encoderClass := self encoderClass. - [pc < thePC] whileTrue: - [byte := self at: (prevPc := pc). - [pc := pc + (encoderClass bytecodeSize: byte). - encoderClass isExtension: byte] whileTrue: - [byte := self at: pc]]. - ^prevPc! Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ToolSet debugContext: self label:'Code simulation error' contents: nil]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: + [(primitiveIndex = 206 + or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" + [^receiver simulateValueWithArguments: arguments first caller: self]. + ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" + or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" + [^receiver simulateValueWithArguments: arguments caller: self]]. - [((primitiveIndex between: 201 and: 205) "BlockClosure>>value[:value:...]" - or: [primitiveIndex between: 221 and: 222]) ifTrue: "BlockClosure>>valueNoContextSwitch[:]" - [^receiver simulateValueWithArguments: arguments caller: self]. - primitiveIndex = 206 ifTrue: "BlockClosure>>valueWithArguments:" - [^receiver simulateValueWithArguments: arguments first caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [^self send: arguments first to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (self objectClass: receiver)]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (arguments at: 3)]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "eem 5/27/2008 11:10 Object>>withArgs:executeMethod:" [((self objectClass: (arguments at: 1)) == Array and: [(self objectClass: (arguments at: 2)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. (arguments at: 2) numArgs = (arguments at: 1) size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. (arguments at: 2) primitive > 0 ifTrue: [(arguments at: 2) isQuick ifTrue: [^self push: (receiver withArgs: (arguments at: 1) executeMethod: (arguments at: 2))]. ^self doPrimitive: (arguments at: 2) primitive method: (arguments at: 2) receiver: receiver args: (arguments at: 1)]. ^Context sender: self receiver: receiver method: (arguments at: 2) arguments: (arguments at: 1)]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

1 0

The Trunk: Kernel-eem.1136.mcz
by commits＠source.squeak.org 08 Jan '18

08 Jan '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1136.mcz ==================== Summary ==================== Name: Kernel-eem.1136 Author: eem Time: 7 January 2018, 5:12:13.286468 pm UUID: d26ae358-e7c7-4838-8053-f3e868c774be Ancestors: Kernel-eem.1135 Make CompiledCode>>= work for CompiledBlocks and add the #== short-cut (e.g. to speed-up Dictionary lookup). Add pushFullClosure:numCopied: implementations to Context, BlockStartLocator and InstructionClient. Tweak pushClosureCopyNumCopiedValues:numArgs:blockSize: to avoid determining numCopied from the copiedValues. =============== Diff against Kernel-eem.1135 =============== Item was added: + ----- Method: BlockStartLocator>>pushFullClosure:numCopied: (in category 'instruction decoding') ----- + pushFullClosure: aCompiledBlock numCopied: numCopied + "Answer the block method" + ^aCompiledBlock! Item was changed: ----- Method: CompiledCode>>= (in category 'comparing') ----- = method "Answer whether the receiver implements the same code as the argument, method. Here ``same code'' means that if the receiver's source is compiled with the same compiler it should produce the same sequence of bytecodes and literals, same trailer and same properties. Hence this definition of #= (only one of many plausible definitions) can be used to quickly identify changes in the compiler's output." | numLits | + self == method ifTrue: + [^true]. + method isCompiledCode ifFalse: [^false]. - method isCompiledMethod ifFalse: [^false]. self size = method size ifFalse: [^false]. self header = method header ifFalse: [^false]. "N.B. includes numLiterals comparison." self initialPC to: self endPC do: [:i | (self at: i) = (method at: i) ifFalse: [^false]]. numLits := self numLiterals. 1 to: numLits do: [:i| | lit1 lit2 | lit1 := self literalAt: i. lit2 := method literalAt: i. (lit1 == lit2 or: [lit1 literalEqual: lit2]) ifFalse: [(i = 1 and: [#(117 120) includes: self primitive]) ifTrue: [lit1 isArray ifTrue: [(lit2 isArray and: [(lit1 first: 2) = (lit2 first: 2)]) ifFalse: [^false]] ifFalse: "ExternalLibraryFunction" [(lit1 analogousCodeTo: lit2) ifFalse: [^false]]] ifFalse: [i = (numLits - 1) ifTrue: "properties" [(self properties analogousCodeTo: method properties) ifFalse: [^false]] ifFalse: "last literal (methodClassAssociation) of class-side methods is not unique" [(i = numLits and: [lit1 isVariableBinding and: [lit2 isVariableBinding and: [lit1 key == lit2 key and: [lit1 value == lit2 value]]]]) ifFalse: [^false]]]]]. ^true! Item was changed: ----- Method: Context>>pushClosureCopyNumCopiedValues:numArgs:blockSize: (in category 'instruction decoding') ----- pushClosureCopyNumCopiedValues: numCopied numArgs: numArgs blockSize: blockSize "Simulate the action of a 'closure copy' bytecode whose result is the new BlockClosure for the following code" | copiedValues | numCopied > 0 ifTrue: [copiedValues := Array new: numCopied. numCopied to: 1 by: -1 do: [:i| copiedValues at: i put: self pop]] ifFalse: [copiedValues := nil]. + self push: ((BlockClosure new: numCopied) - self push: (BlockClosure outerContext: self startpc: pc numArgs: numArgs copiedValues: copiedValues). self jump: blockSize! Item was added: + ----- Method: Context>>pushFullClosure:numCopied: (in category 'instruction decoding') ----- + pushFullClosure: aCompiledBlock numCopied: numCopied + "Simulate the action of a 'closure copy' bytecode whose result is the + new FullBlockClosure for the supplied compiled block." + | copiedValues | + numCopied > 0 + ifTrue: + [copiedValues := Array new: numCopied. + numCopied to: 1 by: -1 do: + [:i| + copiedValues at: i put: self pop]] + ifFalse: + [copiedValues := nil]. + self push: ((FullBlockClosure new: numCopied) + receiver: receiver + outerContext: self + method: aCompiledBlock + copiedValues: copiedValues)! Item was added: + ----- Method: InstructionClient>>pushFullClosure:numCopied: (in category 'instruction decoding') ----- + pushFullClosure: aCompiledBlock numCopied: numCopied + "Push Full Closure bytecode."!

1 0

The Trunk: Kernel-eem.1135.mcz
by commits＠source.squeak.org 08 Jan '18

08 Jan '18

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1135.mcz ==================== Summary ==================== Name: Kernel-eem.1135 Author: eem Time: 7 January 2018, 4:52:25.529759 pm UUID: 51a9a0b5-8ab9-4ada-8030-ab0dd9bedf09 Ancestors: Kernel-eem.1134 Speed up some of the scanning methods in CompiledCode by cacheing encoderClass =============== Diff against Kernel-eem.1134 =============== Item was changed: ----- Method: CompiledCode>>abstractBytecodeMessagesAndPCs (in category 'scanning') ----- abstractBytecodeMessagesAndPCs "Answer the receiver's sequence of abstract bytecodes as a sequence of tuples of bytecode message and pc." "(CompiledCode >> #abstractBytecodeMessagesAndPCs) abstractBytecodeMessagesAndPCs" + | msgs initial endpc pc scanner encoderClass | - | msgs initial endpc pc scanner | scanner := InstructionStream new method: self pc: (initial := self initialPC). msgs := OrderedCollection new: (endpc := self endPC) - initial. + encoderClass := self encoderClass. [(pc := scanner pc) <= endpc] whileTrue: + "i.e. nil will not understand any message and so the exception block will collect all of them." + [[encoderClass interpretNextInstructionFor: nil in: scanner] - [[scanner interpretNextInstructionFor: nil] on: MessageNotUnderstood do: [:ex| msgs addLast: { ex message. pc }]]. ^msgs! Item was changed: ----- Method: CompiledCode>>abstractBytecodeMessagesFrom:to:do: (in category 'scanning') ----- abstractBytecodeMessagesFrom: startpc to: endpc do: aBlock "Evaluate aBlock with the sequence of abstract bytecodes from startpc through endpc in the receiver" + | scanner encoderClass | - | scanner | scanner := InstructionStream new method: self pc: startpc. + encoderClass := self encoderClass. [scanner pc <= endpc] whileTrue: + "i.e. nil will not understand any message and so the exception block will collect all of them." + [[encoderClass interpretNextInstructionFor: nil in: scanner] - [[scanner interpretNextInstructionFor: nil] on: MessageNotUnderstood do: [:ex| aBlock value: ex message]] "| m msgs | msgs := OrderedCollection new. + (m := CompiledCode >> #abstractBytecodeMessagesFrom:to:do:) - (m := CompiledCode >> #abstractBytecodeMessagesFrom:to:) abstractBytecodeMessagesFrom: m initialPC to: m endPC do: [:msg| msgs add: msg selector]. msgs"! Item was changed: ----- Method: CompiledMethod>>embeddedBlockClosures (in category 'closures') ----- embeddedBlockClosures + | bms extractor scanner endPC encoderClass | - | bms extractor scanner endPC | bms := OrderedCollection new. scanner := self scanner. + extractor := ClosureExtractor withAction: [:c| bms add: c] andScanner: scanner. - extractor := ClosureExtractor withAction: [ :c | bms add: c ] andScanner: scanner. endPC := self endPC. + encoderClass := self encoderClass. + [scanner pc <= endPC] whileTrue: + [encoderClass interpretNextInstructionFor: extractor in: scanner]. + ^bms! - [ scanner pc <= endPC ] whileTrue: [ scanner interpretNextInstructionFor: extractor ]. - ^ bms!

1 0

The Trunk: EToys-tpr.318.mcz
by commits＠source.squeak.org 08 Jan '18

08 Jan '18

tim Rowledge uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-tpr.318.mcz ==================== Summary ==================== Name: EToys-tpr.318 Author: tpr Time: 7 January 2018, 4:50:04.77835 pm UUID: e54e7a35-2e82-480c-b307-c6493a5d7e3c Ancestors: EToys-dtl.317 Updates to connect some file loading methods to the new FileDialogs =============== Diff against EToys-dtl.317 =============== Item was changed: ----- Method: MentoringEventRecorder>>readTape (in category 'fileIn/Out') ----- readTape "Put up a prompt for reading an event tape; if one is provided, read it." + | fileName | + fileName := UIManager default chooseFileMatchingSuffixes: #('tape' ) . + fileName ifNotNil: [self readTapeFrom: (FileStream fileNamed: fileName)]! - | aFileStream | - aFileStream := (FileList2 modalFileSelectorForSuffixes: #('tape' )) . - aFileStream ifNotNil: [self readTapeFrom: aFileStream]! Item was changed: ----- Method: PDA>>loadDatabase (in category 'initialization') ----- loadDatabase | aName aFileStream list | + aName := UIManager default chooseFileMatchingSuffixes: #('pda' 'pda.gz' ) label: 'Choose a file to load'. - aName := Utilities chooseFileWithSuffixFromList: #('.pda' '.pda.gz' ) withCaption: 'Choose a file to load'. aName ifNil: [^ self]. + - "User made no choice" - aName == #none - ifTrue: [^ self inform: 'Sorry, no suitable files found - (names should end with .data or .data.gz)']. aFileStream := FileStream oldFileNamed: aName. list := aFileStream fileInObjectAndCode. userCategories := list first. allPeople := list second. allEvents := list third. recurringEvents := list fourth. allToDoItems := list fifth. allNotes := list sixth. date := Date today. self selectCategory: 'all'! Item was changed: ----- Method: PDA>>mergeDatabase (in category 'initialization') ----- mergeDatabase | aName aFileStream list | + aName := UIManager default chooseFileMatchingSuffixes: #('pda' 'pda.gz' ) label: 'Choose a file to load'. - aName := Utilities chooseFileWithSuffixFromList: #('.pda' '.pda.gz' ) withCaption: 'Choose a file to load'. aName ifNil: [^ self]. - "User made no choice" - aName == #none - ifTrue: [^ self inform: 'Sorry, no suitable files found - (names should end with .data or .data.gz)']. aFileStream := FileStream oldFileNamed: aName. list := aFileStream fileInObjectAndCode. userCategories := (list first , userCategories) asSet asArray sort. allPeople := (list second , allPeople) asSet asArray sort. allEvents := (list third , allEvents) asSet asArray sort. recurringEvents := (list fourth , recurringEvents) asSet asArray sort. allToDoItems := (list fifth , allToDoItems) asSet asArray sort. allNotes := ((list sixth) , allNotes) asSet asArray sort. date := Date today. self selectCategory: 'all'! Item was changed: ----- Method: SoundLibraryTool>>loadSoundFromDisk (in category 'menu') ----- loadSoundFromDisk "Put up a file chooser dialog inviting the user to import a sound file; accept it" | aSound aName aFileStream fullName ext reply | + fullName := UIManager default chooseFileMatchingSuffixes: #(#AIFF #aiff #Wave #wav #wave ). + fullName - aFileStream := FileList2 modalFileSelectorForSuffixes: #(#AIFF #aiff #Wave #wav #wave ). - aFileStream ifNil: [^ self]. + - fullName := aFileStream name. ('*.AIFF' match: fullName) ifTrue: [aSound := SampledSound fromAIFFfileNamed: fullName] + ifFalse: [aSound := SampledSound fromWaveStream: (aFileStream := FileStream oldFileNamed: fullName). + aFileStream close]. + - ifFalse: [aSound := SampledSound fromWaveStream: aFileStream]. - aFileStream close. ext := FileDirectory extensionFor: fullName. + aName := FileDirectory localNameFor: fullName. - aName := (FileDirectory on: fullName) pathParts last. ext size > 0 ifTrue: [aName := aName copyFrom: 1 to: (aName size - (ext size + 1))]. [reply := FillInTheBlank request: 'Please give a name for this sound' translated initialAnswer: aName. reply isEmptyOrNil ifTrue: [^ self]. (SampledSound soundLibrary includesKey: reply) ifTrue: [self inform: 'sorry, that name is already taken' translated. false] ifFalse: [true]] whileFalse. SampledSound addLibrarySoundNamed: reply samples: aSound samples samplingRate: aSound originalSamplingRate. self update!

1 0

The Trunk: ST80-tpr.233.mcz
by commits＠source.squeak.org 08 Jan '18

08 Jan '18

tim Rowledge uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-tpr.233.mcz ==================== Summary ==================== Name: ST80-tpr.233 Author: tpr Time: 7 January 2018, 4:44:46.985177 pm UUID: c7bef0c0-1026-4f40-a074-add958b89220 Ancestors: ST80-nice.232 Update some MVC related code to use the hooks that might oneday allow them to use a nice graphical file dialog =============== Diff against ST80-nice.232 =============== Item was changed: ----- Method: BitEditor>>fileOut (in category 'menu messages') ----- fileOut | fileName | fileName := UIManager default + saveFilenameRequest: 'Save this Form to' translated - request: 'File name?' translated initialAnswer: 'Filename.form'. + fileName ifNil: [^ self]. - fileName isEmpty ifTrue: [^ self]. Cursor normal showWhile: [model writeOnFileNamed: fileName]. ! Item was changed: ----- Method: FormEditor>>fileInForm (in category 'editing tools') ----- fileInForm "Ask the user for a file name and then recalls the Form in that file as the current source Form (form). Does not change the tool." | fileName | fileName := UIManager default + chooseFileMatchingSuffixes: #('form') + label: 'File name?' translated. + fileName ifNil: [^ self]. - request: 'File name?' translated - initialAnswer: 'Filename.form'. - fileName isEmpty ifTrue: [^ self]. form := Form fromFileNamed: fileName. tool := previousTool. ! Item was changed: ----- Method: FormEditor>>fileOut (in category 'menu messages') ----- fileOut | fileName | fileName := UIManager default + saveFilenameRequest: 'File name?' translated - request: 'File name?' translated initialAnswer: 'Filename.form'. + fileName ifNil: [^ self]. - fileName isEmpty ifTrue: [^ self]. Cursor normal showWhile: [model writeOnFileNamed: fileName]. ! Item was changed: ----- Method: FormEditor>>fileOutForm (in category 'editing tools') ----- fileOutForm "Ask the user for a file name and save the current source form under that name. Does not change the tool." | fileName | fileName := UIManager default + saveFilenameRequest: 'File name?' translated - request: 'File name?' translated initialAnswer: 'Filename.form'. + fileName ifNil: [^ self]. - fileName isEmpty ifTrue: [^ self]. Cursor normal showWhile: [form writeOnFileNamed: fileName]. tool := previousTool. ! Item was changed: ----- Method: ParagraphEditor>>saveContentsInFile (in category 'menu messages') ----- saveContentsInFile "Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name." | fileName stringToSave parentWindow labelToUse suggestedName | stringToSave := paragraph text string. stringToSave size = 0 ifTrue: [^ self inform: 'nothing to save.']. parentWindow := self model dependents detect: [:dep | dep isKindOf: SystemWindow orOf: StandardSystemView] ifNone: [nil]. labelToUse := parentWindow ifNil: ['Untitled'] ifNotNil: [parentWindow label]. suggestedName := nil. #(('Decompressed contents of: ' '.gz')) do: "can add more here..." [:leaderTrailer | | lastIndex | (labelToUse beginsWith: leaderTrailer first) ifTrue: [suggestedName := labelToUse copyFrom: leaderTrailer first size + 1 to: labelToUse size. (labelToUse endsWith: leaderTrailer last) ifTrue: [suggestedName := suggestedName copyFrom: 1 to: suggestedName size - leaderTrailer last size] ifFalse: [lastIndex := suggestedName lastIndexOf: $.. (lastIndex > 1) ifTrue: [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. suggestedName ifNil: [suggestedName := labelToUse, '.text']. + fileName := UIManager default saveFilenameRequest: 'File name?' translated - fileName := UIManager default request: 'File name?' translated initialAnswer: suggestedName. fileName isEmptyOrNil ifFalse: [(FileStream newFileNamed: fileName) nextPutAll: stringToSave; close]!

1 0

The Trunk: ST80-tpr.233.mcz
by commits＠source.squeak.org 08 Jan '18

08 Jan '18

1 0

The Trunk: Tools-eem.788.mcz
by commits＠source.squeak.org 07 Jan '18

07 Jan '18

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.788.mcz ==================== Summary ==================== Name: Tools-eem.788 Author: eem Time: 6 January 2018, 3:37:50.088654 pm UUID: bb90e476-4cf4-47bd-a8be-bc2785cc8504 Ancestors: Tools-eem.787 Add some more canonicalArgumentName implementations for well-known Collection subclasses. =============== Diff against Tools-eem.787 =============== Item was added: + ----- Method: ArrayedCollection>>canonicalArgumentName (in category '*Tools-Debugger') ----- + canonicalArgumentName + ^ 'Array'! Item was added: + ----- Method: HashedCollection>>canonicalArgumentName (in category '*Tools-Debugger') ----- + canonicalArgumentName + ^ 'Dictionary'! Item was added: + ----- Method: SequenceableCollection>>canonicalArgumentName (in category '*Tools-Debugger') ----- + canonicalArgumentName + ^ 'Sequence'! Item was added: + ----- Method: Set>>canonicalArgumentName (in category '*Tools-Debugger') ----- + canonicalArgumentName + ^ 'Set'! Item was added: + ----- Method: Symbol>>canonicalArgumentName (in category '*Tools-Debugger') ----- + canonicalArgumentName + ^ 'Symbol'!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2018