Squeak-dev July 2019

squeak-dev@lists.squeakfoundation.org

44 participants
160 discussions

Efficient Implementation of the Smalltalk-80 System: what was the hardware?
by Yoshiki Ohshima 26 Jul '19

26 Jul '19

If I'm not mistaken, I cannot find the actual hardware description of the hardware they used in: https://dl.acm.org/citation.cfm?id=800542 except that it mentions a microprocessor a few times. Does anybody know what was the microprocessor they experimented with? -- -- Yoshiki

9 21

Successfully invoking Lua from Squeak using OSProcess Command shell. Also PetitParser? or other?
by gettimothy 26 Jul '19

26 Jul '19

Thought I would share this,as its pretty cool: CommandShell command: 'lua -l BananasArgs -e ''p = require("BananasArgs") frame = {} frame["args"] = {"Fred", bananas=5, cherries=2} print(p.has_fruit(frame))'' | inspect; exit' Where BananasArgs is from Wikimedia https://en.wikipedia.org/wiki/Module:BananasArgs I am considering writing a Wikitext parser using Squeak. A prerequisite is that I be able to invoke Lua code "Modules" in wikimedia parlance. After some poking around, that requirement appears feasable...also, its pretty cool to be able to do that from Squeak. Big smiles (: So with that proved, I need a Parser to parse Wikitext. Any recommendations? PetitParser looks pretty cool but I haven't tried to load it into Squeak yet. Does Squeak Scanner or something else seem viable to you? Thanks in advance.

3 2

The Trunk: Compiler-mt.406.mcz
by commits＠source.squeak.org 25 Jul '19

25 Jul '19

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.406.mcz ==================== Summary ==================== Name: Compiler-mt.406 Author: mt Time: 24 July 2019, 5:10:22.611145 pm UUID: 6d65ea45-4488-471b-a9cf-b4a16cac35f3 Ancestors: Compiler-mt.405 Minor performance improvement for has-literal checks. Thanks to Levente for the ideas! Still not sure about putting true/false/nil-checks to the top. Also not sure the complex return blocks for symbol/character/integer. =============== Diff against Compiler-mt.405 =============== Item was changed: ----- Method: BytecodeEncoder class>>canBeSpecialLiteral: (in category 'testing') ----- canBeSpecialLiteral: aLiteral + "This check can be used to prevent unnecessary use of #scanBlockOrNilForLiteral:. For performance, this method summarizes specializations from all known bytecode encoders. It is not meant to be refined per bytecode encoder." - "This check can be used to prevent unnecessary use of #scanBlockOrNilForLiteral:. For performance, this method summarizes specializations from all known bytecode encoders. It is not meant to be refined per encoder." + aLiteral isSymbol ifTrue: [^ Smalltalk specialSelectors identityIncludes: aLiteral]. + aLiteral isCharacter ifTrue: [^ aLiteral asInteger <= 65535]. + aLiteral isInteger ifTrue: [^ aLiteral between: -32768 and: 32767]. + + aLiteral == true ifTrue: [^ true]. + aLiteral == false ifTrue: [^ true]. + aLiteral == nil ifTrue: [^ true]. + + ^ false! - ^ ((((((aLiteral isSymbol and: [Smalltalk specialSelectors includes: aLiteral]) - or: [aLiteral isInteger and: [aLiteral between: -32768 and: 32767]]) - or: [aLiteral isCharacter and: [aLiteral asInteger <= 65535]]) - or: [aLiteral == true]) - or: [aLiteral == false]) - or: [aLiteral == nil])!

2 1

The Trunk: System-mt.1073.mcz
by commits＠source.squeak.org 25 Jul '19

25 Jul '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1073.mcz ==================== Summary ==================== Name: System-mt.1073 Author: mt Time: 22 July 2019, 11:44:51.098271 am UUID: 03eef6f8-69b5-4a5b-8b2b-9e47fccae8f2 Ancestors: System-mt.1072 Adds support for class bindings to system navigation. Not sure about "self environment" vs. "aClass environment" because tools will usually create a system navigation with the correct environment set. =============== Diff against System-mt.1072 =============== Item was changed: ----- Method: SystemNavigation>>allCallsOnClass: (in category 'query') ----- + allCallsOnClass: aBehaviorOrBinding - allCallsOnClass: aBehavior "Answer a sorted collection of all the methods that refer to aBehavior." + | binding thisClass result | + binding := aBehaviorOrBinding isBehavior + ifTrue: [self environment bindingOf: aBehaviorOrBinding theNonMetaClass name] + ifFalse: [aBehaviorOrBinding]. + thisClass := binding value. + - | theClass result | - theClass := aBehavior theNonMetaClass. result := self + allCallsOn: binding - allCallsOn: (theClass environment bindingOf: theClass name) fromBehaviors: self allBehaviors sorted: false. + + self environment allClassesDo: [:otherClass | + (otherClass sharedPools includes: thisClass) ifTrue: [ + result add: (ClassReference class: otherClass) ] ]. + + ^ result sort! - theClass environment allClassesDo: [ :class | - (class sharedPools includes: theClass) ifTrue: [ - result add: (ClassReference class: class) ] ]. - ^result sort! Item was changed: ----- Method: SystemNavigation>>browseAllCallsOnClass: (in category 'browse') ----- + browseAllCallsOnClass: aBehaviorOrBinding - browseAllCallsOnClass: aBehavior "Create and schedule a message browser on each method that refers to aBehavior." "self default browseAllCallsOnClass: Array" | behaviorName | + behaviorName := aBehaviorOrBinding isBehavior + ifTrue: [aBehaviorOrBinding theNonMetaClass name] + ifFalse: [aBehaviorOrBinding key]. - behaviorName := aBehavior theNonMetaClass name. self + browseMessageList: [ self allCallsOnClass: aBehaviorOrBinding ] - browseMessageList: [ self allCallsOnClass: aBehavior ] name: 'Users of ', behaviorName autoSelect: behaviorName!

2 1

The Trunk: Compiler-mt.405.mcz
by commits＠source.squeak.org 24 Jul '19

24 Jul '19

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.405.mcz ==================== Summary ==================== Name: Compiler-mt.405 Author: mt Time: 24 July 2019, 11:17:04.167109 am UUID: 7354b36e-2509-4f23-b110-1b9cfe0310d2 Ancestors: Compiler-mt.404 Adds message to avoid costly byte-code scanning for has-literal checks. Note that ((... or: [...]) or: [...] ...) is a little bit faster to evaluate to false than (... or: [ ... or: [ ... ] ] ). I would suspect not but deeply nested blocks seem to have an interesting effect here. =============== Diff against Compiler-mt.404 =============== Item was added: + ----- Method: BytecodeEncoder class>>canBeSpecialLiteral: (in category 'testing') ----- + canBeSpecialLiteral: aLiteral + "This check can be used to prevent unnecessary use of #scanBlockOrNilForLiteral:. For performance, this method summarizes specializations from all known bytecode encoders. It is not meant to be refined per encoder." + + ^ ((((((aLiteral isSymbol and: [Smalltalk specialSelectors includes: aLiteral]) + or: [aLiteral isInteger and: [aLiteral between: -32768 and: 32767]]) + or: [aLiteral isCharacter and: [aLiteral asInteger <= 65535]]) + or: [aLiteral == true]) + or: [aLiteral == false]) + or: [aLiteral == nil])!

3 2

The Trunk: Kernel-mt.1250.mcz
by commits＠source.squeak.org 24 Jul '19

24 Jul '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1250.mcz ==================== Summary ==================== Name: Kernel-mt.1250 Author: mt Time: 24 July 2019, 11:44:15.067109 am UUID: 00753086-db4b-4706-bde7-c6d5ea190c04 Ancestors: Kernel-mt.1249 Speeds up deletion of class variables or shared pools. =============== Diff against Kernel-mt.1249 =============== Item was changed: ----- Method: Behavior>>whichSelectorsReferTo: (in category 'testing method dictionary') ----- whichSelectorsReferTo: literal + "Answer a Set of selectors whose methods access the argument as a literal. Note that we cannot use #systemNavigation because this method should not depend on the 'System' package." - "Answer a Set of selectors whose methods access the argument as a literal." + | who canBeSpecial | + canBeSpecial := BytecodeEncoder canBeSpecialLiteral: literal. - | who | who := IdentitySet new. self selectorsAndMethodsDo: [:selector :method | + (method hasLiteral: literal scanForSpecial: canBeSpecial) - (method hasLiteral: literal) ifTrue: [who add: selector]]. ^ who "Rectangle whichSelectorsReferTo: #+."!

1 0

The Trunk: System-mt.1075.mcz
by commits＠source.squeak.org 24 Jul '19

24 Jul '19

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1075.mcz ==================== Summary ==================== Name: System-mt.1075 Author: mt Time: 24 July 2019, 11:18:57.127109 am UUID: 6b2a8705-b2bc-46c3-8dea-34873ae97d6e Ancestors: System-mt.1074 Speed up search for senders based on Compiler-mt.405 and Kernel-mt.1249. =============== Diff against System-mt.1074 =============== Item was changed: ----- Method: SystemNavigation>>allCallsOn:fromBehaviors:sorted: (in category 'query') ----- allCallsOn: aLiteral fromBehaviors: behaviors sorted: sorted "Answer a collection of all the methods implemented by behaviors that call on aLiteral even deeply embedded in literal arrays." + | result canBeSpecial | - | result | result := OrderedCollection new. + canBeSpecial := BytecodeEncoder canBeSpecialLiteral: aLiteral. behaviors do: [:behavior | behavior selectorsAndMethodsDo: [:selector :method | + (method hasLiteral: aLiteral scanForSpecial: canBeSpecial) - (method hasLiteral: aLiteral) ifTrue: [result addLast: method methodReference]]]. sorted ifTrue: [result sort]. ^result! Item was changed: ----- Method: SystemNavigation>>allCallsOn:fromMethodReferences:sorted: (in category 'query') ----- allCallsOn: aLiteral fromMethodReferences: methodReferences sorted: sorted "Answer a collection of all the methods implemented by behaviors that call on aLiteral even deeply embedded in literal arrays." + | result canBeSpecial | + canBeSpecial := BytecodeEncoder canBeSpecialLiteral: aLiteral. - | result | result := methodReferences select: [:reference | reference compiledMethod ifNil: [false] + ifNotNil: [:method | method hasLiteral: aLiteral scanForSpecial: canBeSpecial]]. - ifNotNil: [:method | method hasLiteral: aLiteral]]. sorted ifTrue: [result sort]. ^result!

1 0

The Trunk: Kernel-mt.1249.mcz
by commits＠source.squeak.org 24 Jul '19

24 Jul '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1249.mcz ==================== Summary ==================== Name: Kernel-mt.1249 Author: mt Time: 24 July 2019, 11:17:56.945109 am UUID: 5eb63b7e-5e78-45cf-a338-98326b5f26a4 Ancestors: Kernel-fn.1248 Uses special-literal check from Compiler-mt.405 to speed up #hasLiteral:. =============== Diff against Kernel-fn.1248 =============== Item was changed: ----- Method: CompiledCode>>hasLiteral: (in category 'literals') ----- hasLiteral: aLiteral + "Overwrite this method to invoke the bytecode encoder scanner explicitely. This might be removed if there would be a way to enumerate special literals in a compiled-code object. See #allLiteralsDo:." - "Since we cannot enumerate this code's special literals, we have to overwrite this method to invoke the encoder scanner explicitely." + ^ self + hasLiteral: aLiteral + scanForSpecial: (BytecodeEncoder canBeSpecialLiteral: aLiteral)! - | scanBlock | - (super hasLiteral: aLiteral) ifTrue: [^ true]. - - scanBlock := self class - scanBlocksForLiteral: aLiteral - do: [:primaryScanner :secondaryScanner | - "E.g., scanner for SistaV1 or scanner for V3PlusClosures" - self signFlag ifTrue: [secondaryScanner] ifFalse: [primaryScanner]]. - - self codeLiteralsDo: [:compiledCode | - (compiledCode scanFor: scanBlock) ifTrue: [^ true]]. - - ^ false! Item was added: + ----- Method: CompiledCode>>hasLiteral:scanForSpecial: (in category 'literals') ----- + hasLiteral: aLiteral scanForSpecial: aBoolean + "Like #hasLiteral: but can scan for encoder-specific special literals. Not that scanning has a noticeable performance impact." + + | scanBlock | + (super hasLiteral: aLiteral) ifTrue: [^ true]. + + aBoolean ifFalse: [^ false]. + + scanBlock := self class + scanBlocksForLiteral: aLiteral + do: [:primaryScanner :secondaryScanner | + "E.g., scanner for SistaV1 or scanner for V3PlusClosures" + self signFlag ifTrue: [secondaryScanner] ifFalse: [primaryScanner]]. + + self codeLiteralsDo: [:compiledCode | + (compiledCode scanFor: scanBlock) ifTrue: [^ true]]. + + ^ false!

1 0

The Trunk: Morphic-mt.1495.mcz
by commits＠source.squeak.org 24 Jul '19

24 Jul '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1495.mcz ==================== Summary ==================== Name: Morphic-mt.1495 Author: mt Time: 22 July 2019, 12:07:10.880271 pm UUID: 24e42526-45ab-4631-9cd6-521e7f95ea2c Ancestors: Morphic-mt.1494 Makes auto-select in pluggable text morphs more robust. =============== Diff against Morphic-mt.1494 =============== Item was changed: ----- Method: PluggableTextMorph>>update: (in category 'updating') ----- update: aSymbol aSymbol ifNil: [^self]. aSymbol == #flash ifTrue: [^self flash]. aSymbol == getTextSelector ifTrue: [ self setText: self getText. getSelectionSelector ifNotNil: [self setSelection: self getSelection]. ^ self]. aSymbol == getSelectionSelector ifTrue: [^self setSelection: self getSelection]. aSymbol == #acceptChanges ifTrue: [^ self accept]. aSymbol == #revertChanges ifTrue: [^ self cancel]. (aSymbol == #autoSelect and: [getSelectionSelector notNil]) ifTrue: [self handleEdit: [(textMorph editor) abandonChangeText; "no replacement!!" setSearch: model autoSelectString; + findAgainNow "do not reset search string"]]. - findAgain]]. aSymbol == #clearUserEdits ifTrue: [^self hasUnacceptedEdits: false]. aSymbol == #wantToChange ifTrue: [self canDiscardEdits ifFalse: [^self promptForCancel]. ^self]. aSymbol == #appendEntry ifTrue: [self handleEdit: [self appendEntry]. ^self refreshWorld]. aSymbol == #appendEntryLater ifTrue: [self handleEdit: [self appendEntry]]. aSymbol == #clearText ifTrue: [self handleEdit: [self changeText: Text new]. ^self refreshWorld]. aSymbol == #bs ifTrue: [self handleEdit: [self bsText]. ^self refreshWorld]. aSymbol == #codeChangedElsewhere ifTrue: [self hasEditingConflicts: true. ^self changed]. aSymbol == #saveContents ifTrue: [^self saveContentsInFile]. aSymbol == #showContents ifTrue: [^ self scrollToTop]. !

3 2

The Trunk: Collections-fn.847.mcz
by commits＠source.squeak.org 24 Jul '19

24 Jul '19

Fabio Niephaus uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fn.847.mcz ==================== Summary ==================== Name: Collections-fn.847 Author: fn Time: 24 July 2019, 9:23:16.683899 am UUID: 22fbf3f6-8234-41df-9de5-a38187e659c6 Ancestors: Collections-mt.846 Remove redundant methods for copying from Character (following Chris' suggestion at http://forum.world.st/The-Trunk-Kernel-fn-1223-mcz-tp5098738p5098777.html). =============== Diff against Collections-mt.846 =============== Item was removed: - ----- Method: Character>>copy (in category 'copying') ----- - copy - "Answer the receiver, because Characters are unique." - ^self! Item was removed: - ----- Method: Character>>postCopy (in category 'copying') ----- - postCopy - "I will never be copied" - ^self shouldNotImplement!

1 0

← Newer
1
2
3
4
5
6
7
8
...
16
Older →

Jump to page: