Squeak-dev February 2023

squeak-dev@lists.squeakfoundation.org

28 participants
108 discussions

The Trunk: Tools-mt.1189.mcz
by commits＠source.squeak.org 15 Feb '23

15 Feb '23

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1189.mcz ==================== Summary ==================== Name: Tools-mt.1189 Author: mt Time: 15 February 2023, 4:29:53.702748 pm UUID: 9f8065c3-3843-aa49-b942-6e2dd5520b60 Ancestors: Tools-mt.1188 Avoid hiding errors in MessageTally code. Our current debugger is able to handle this case correctly. =============== Diff against Tools-mt.1188 =============== Item was changed: ----- Method: Debugger>>initialize (in category 'initialize-release') ----- initialize super initialize. - Smalltalk at: #MessageTally ifPresentAndInMemory: [ :tally | - tally terminateTimerProcess]. - selectingPC := true. contextStackIndex := 0. "The default termination procedure is aggressive to ignore currently running, and thus erroneous, ensure-blocks in the debugged process. The preference can change that." terminateProcessSelector := self class closeMeansAbandon ifTrue: [#terminateAggressively] ifFalse:[#terminate].!

1 0

UK Smalltalk User Group Meeting - 22 February 2023
by Giovanni Corriga 15 Feb '23

15 Feb '23

WebAssembly (WASM - https://wikiwand.com/en/Webassembly ) is an instruction format for portable high-performance code, run by a stack-based virtual machine. To Smalltalkers, this sounds very familiar. WASM is supported by the three most popular web browsers, and by other host platforms as well. Perhaps we can translate certain Smalltalk compiled methods to WASM, augmenting our support for physical processors and for livecoding the Web. For our February meeting, Craig Latta will describe his initial experiments, using the Epigram compilation framework ( https://thiscontext.com/epigram ). Craig Latta ( https://thiscontext.com/ ) is a research computer scientist in Berkeley and Amsterdam, with interests including livecoding, music performance, and interactive visualization. The discovery of a mysteriously-placed copy of the Blue Book at university led to stints at several exploratory labs, and a pursuit of improvisation wherever code is found. This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/291365015/ ) to receive the meeting details.

1 0

Clean Block Closures question
by Jaromir Matas 14 Feb '23

14 Feb '23

Hi Eliot, all, What happens if we send an unclean block to a clean block as an argument? I guess the answer is: nothing, it doesn't affect the definition of being a clean block; the blocks have independent static chains (outer/home) (I just want to be sure). Example: [:aBlock | aBlock value] isClean " --> true " [:aBlock | aBlock value] value: [^2] " --> this will return from inside a clean block " A more complicated example; define: cleanExample: aBlock [:block | block value] value: aBlock. And then run: self cleanExample: [^2] " --> this will return from inside a clean block inside a method " Thanks, Jaromir -- Jaromír Matas mail(a)jaromir.net

1 0

The Trunk: Kernel-eem.1498.mcz
by commits＠source.squeak.org 14 Feb '23

14 Feb '23

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1498.mcz ==================== Summary ==================== Name: Kernel-eem.1498 Author: eem Time: 12 February 2023, 1:30:55.883243 pm UUID: e8b69d4d-8a07-4cf8-8ee7-d764b47f1981 Ancestors: Kernel-tpr.1497 In implementing BlockClosure>>hasMethodReturn, don't assume the byutecode set. Implement Context>>#home so that it will code with clean blocks. =============== Diff against Kernel-tpr.1497 =============== Item was changed: ----- Method: BlockClosure>>hasMethodReturn (in category 'testing') ----- hasMethodReturn "Answer whether the receiver has a method-return ('^') in its code." | scanner endpc | + scanner := InstructionStream new method: self method pc: startpcOrMethod. - scanner := InstructionStream new method: outerContext method pc: startpcOrMethod. endpc := self endPC. + scanner scanFor: + [:byte | + scanner willReturn ifTrue: + [scanner willBlockReturn ifFalse: + [^true]]. + scanner pc >= endpc]. + ^false! - scanner scanFor: [:byte | (byte between: 120 and: 124) or: [scanner pc > endpc]]. - ^scanner pc <= endpc! Item was changed: ----- Method: Context>>home (in category 'accessing') ----- home + "Answer the outermost context (along the static chain) for the receiver. + This is the outermost lexical scope in which the receiver's method is defined." - "Answer the context in which the receiver was defined." + ^closureOrNil + ifNil: [self] "normal method activation" + ifNotNil: "block activation" + [:closure| + closure outerContext + ifNil: [self] "clean block" + ifNotNil: [:outerContext| outerContext home]] "normal block"! - closureOrNil == nil ifTrue: - [^self]. - ^closureOrNil outerContext home!

3 4

The Trunk: MorphicExtras-eem.343.mcz
by commits＠source.squeak.org 13 Feb '23

13 Feb '23

Eliot Miranda uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-eem.343.mcz ==================== Summary ==================== Name: MorphicExtras-eem.343 Author: eem Time: 13 February 2023, 12:30:26.859976 pm UUID: 572c9471-4900-43d9-8ad4-b4f97aca5c4e Ancestors: MorphicExtras-mt.342 Add a couple of primitives to the CameraInterface. One answers which of the two frame buffers that can be set via camera:setFrameBufferA:B: contains the freshest image. The other allows putting a camera in mirror mode; much more efficient than doing it in Smalltalk because the frame grabber inside the plugin typically runs in its own thread. =============== Diff against MorphicExtras-mt.342 =============== Item was changed: ----- Method: CameraInterface class>>camera:getParam: (in category 'camera ops') ----- camera: cameraNum getParam: paramNum + "Answer the requested parameter value of the given camera. - "Answer the given parameter for the given camera. param 1 is the frame count, the number of frames grabbed since the last send of getFrameForCamera:into: + param 2 is the size of the bitmap in bytes required for an image + param 3 is whether the image is being mirrored or not" - param 2 is the size of the bitmap in bytes required for an image" <primitive: 'primGetParam' module: 'CameraPlugin' error: ec> + self primitiveFailed! - ^nil - ! Item was added: + ----- Method: CameraInterface class>>camera:setParam:to: (in category 'camera ops') ----- + camera: cameraNum setParam: paramNum to: anIntegerOrBoolean + "Set the requested parameter value of the given camera, and answer its previous value. + param 1 cannot be set; it is the frame count, the number of frames grabbed since the last send of getFrameForCamera:into: + param 2 cannot be set; it is the size of the bitmap in bytes required for an image + param 3 is whether the image is being mirrored or not" + + <primitive: 'primSetParam' module: 'CameraPlugin' error: ec> + self primitiveFailed! Item was added: + ----- Method: CameraInterface class>>cameraGetLatestBufferIndex: (in category 'camera ops') ----- + cameraGetLatestBufferIndex: cameraIndex + "If double-buffering is in effect (set via primSetCameraBuffers) answer + which buffer contains the freshest data, either A (1) or B (2). If no buffer + has been filled yet, answer nil. Otherwise fail with an appropriate error code." + <primitive: 'primGetLatestBufferIndex' module: 'CameraPlugin' error: ec> + ^self primitiveFailed + + "CameraInterface cameraGetLatestBufferIndex: 1"!

1 0

The Inbox: Regex-Core-tobe.86.mcz
by commits＠source.squeak.org 13 Feb '23

13 Feb '23

A new version of Regex-Core was added to project The Inbox: http://source.squeak.org/inbox/Regex-Core-tobe.86.mcz ==================== Summary ==================== Name: Regex-Core-tobe.86 Author: tobe Time: 13 February 2023, 10:30:32.667487 am UUID: 5db039b9-778b-436b-b765-f71c29903d69 Ancestors: Regex-Core-tpr.85 For quantifiers, peek that we will get a valid expression (at least one number). Note that the method is optimized for speed (e.g., ommiting ensure:) =============== Diff against Regex-Core-tpr.85 =============== Item was changed: ----- Method: RxParser>>atom (in category 'recursive descent') ----- atom "An atom is one of a lot of possibilities, see below." | atom | (lookahead == nil or: [ lookahead == $| ] or: [ lookahead == $) ]) ifTrue: [ ^RxsEpsilon new ]. (lookahead == $* or: [ lookahead == $+ ] or: [ lookahead == $? ] + or: [ self peekCanBeQuantifiedAtom ]) - or: [ lookahead == ${ ]) ifTrue: [ ^self signalParseError: 'nothing to repeat' ]. lookahead == $( ifTrue: [ ^ self group ]. lookahead == $[ ifTrue: [ "<atom> ::= '[' <characterSet> ']' " self match: $[. atom := self characterSet. self match: $]. ^atom ]. lookahead == $: ifTrue: [ "<atom> ::= ':' <messagePredicate> ':' " self match: $:. atom := self messagePredicate. self match: $:. ^atom ]. lookahead == $. ifTrue: [ "any non-whitespace character" self next. ^RxsContextCondition new beAny]. lookahead == $^ ifTrue: [ "beginning of line condition" self next. ^RxsContextCondition new beBeginningOfLine]. lookahead == $$ ifTrue: [ "end of line condition" self next. ^RxsContextCondition new beEndOfLine]. lookahead == $\ ifTrue: [ "<atom> ::= '\' <node>" self match: $\. ^self backslashNode]. "If passed through the above, the following is a regular character." atom := RxsCharacter with: lookahead. self next. ^atom! Item was added: + ----- Method: RxParser>>peekCanBeQuantifiedAtom (in category 'private') ----- + peekCanBeQuantifiedAtom + "grammar is {<number>,<number>} | {,<number>} | {<number>,} | {number}" + + | old hasNumber | + lookahead == ${ ifFalse: [^ false]. + hasNumber := false. + + old := source position. + "skip the first number if present" + [source atEnd not and: [source peek isDigit]] whileTrue: [hasNumber := true. source next]. + + "assert that we either get the closing parenthesis or a comma" + source peek = $, ifFalse: [ + source peek = $} ifTrue: [ + source position: old. + ^ true]. + source position: old. + ^ false]. + source next. + + "skip the second number if present" + [source atEnd not and: [source peek isDigit]] whileTrue: [hasNumber := true. source next]. + + "now we need to have reached the end and must have seen at least one number" + (source next ~= $} or: [hasNumber not]) ifTrue: [ + source position: old. + ^ false]. + + source position: old. + ^ true! Item was changed: ----- Method: RxParser>>piece (in category 'recursive descent') ----- piece "<piece> ::= <atom> | <atom> '*' | <atom> '+' | <atom> '?' | <atom> '{' <number> ',' <number> '}' " | atom | atom := self atom. lookahead == $* ifTrue: [ self next. ^ RxsPiece new initializeStarAtom: atom ]. lookahead == $+ ifTrue: [ self next. ^ RxsPiece new initializePlusAtom: atom ]. lookahead == $? ifTrue: [ self next. ^ RxsPiece new initializeOptionalAtom: atom ]. + self peekCanBeQuantifiedAtom - lookahead == ${ ifTrue: [ ^ self quantifiedAtom: atom ]. ^ RxsPiece new initializeAtom: atom!

1 0

The Trunk: System-eem.1390.mcz
by commits＠source.squeak.org 12 Feb '23

12 Feb '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1390.mcz ==================== Summary ==================== Name: System-eem.1390 Author: eem Time: 12 February 2023, 2:01:18.44292 pm UUID: c87dbc8d-0b1c-4462-9fb4-539efc4d328b Ancestors: System-eem.1389 Update SystemNavigation>>allUnboundMethods to cope with the full block/sistav1 regime. =============== Diff against System-eem.1389 =============== Item was changed: ----- Method: SystemNavigation>>allUnboundMethods (in category 'query') ----- allUnboundMethods + "Answer all CompiledMethods that are not in the class hierarchy" - "Answer all CompiledMehtods that are not in the class hierarchy" "self systemNavigation allUnboundMethods" + ^CompiledCode allSubInstances select: + [:m| | homeMethod | + homeMethod := m homeMethod. + homeMethod methodClass - ^CompiledMethod allSubInstances select: - [:m| - m methodClass ifNil: [true] ifNotNil: [:mc| + (mc compiledMethodAt: homeMethod selector ifAbsent: []) ~~ homeMethod]]! - (mc compiledMethodAt: m selector ifAbsent: []) ~~ m]]!

1 0

The Trunk: System-eem.1389.mcz
by commits＠source.squeak.org 12 Feb '23

12 Feb '23

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1389.mcz ==================== Summary ==================== Name: System-eem.1389 Author: eem Time: 12 February 2023, 1:32:45.417157 pm UUID: ccf5e3ec-c446-404a-88f4-ac3f8bb3ed29 Ancestors: System-mt.1388 Fix SystemNavigation>>#unusedBlocks to be bytecode set agnoistic. =============== Diff against System-mt.1388 =============== Item was changed: ----- Method: SystemNavigation>>unusedBlocks (in category 'query') ----- unusedBlocks "Answer all methods that contain a block that is not used (not sent a message, returned, passed as an argument, or assigned)." "SystemNavigation new unusedBlocks" "SystemNavigation new browseMessageList: SystemNavigation new unusedBlocks name: 'unused blocks'" ^self allMethodsSelect: + [:m| + (InstructionStream on: m) + scanForInstructionSequence: + [:a :b| + (#(pushClosureCopyNumCopiedValues:numArgs:blockSize: pushFullClosure:numCopied:) includes: a selector) + and: [b selector == #doPop]]]! - [:m| | is | - is := InstructionStream on: m. - is scanFor: [:b| b = 143 and: [(m at: is thirdByte * 256 + is fourthByte + is pc + 4) = 135]]]!

1 0

HelpBrowser as note taker
by tim Rowledge 11 Feb '23

11 Feb '23

Has anyone yet done any work on expanding the HelpBrowser to allow adding books/pages from the tool? It's very helpful how you can edit the page content easily, but I don't see any way at the moment to add a new page. Aside from making it way more convenient to write help (which is sometihng we should do more of) it could make a quite useful notebook of "what I'm working on in this image". tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Oxymorons: Tight slacks

4 9

[ANN] New development snapshot of Roguerrants
by Stéphane Rollandin 10 Feb '23

10 Feb '23

Hello all, I just uploaded a new version of my (still in development) game engine: http://www.zogotounga.net/comp/squeak/rogue.htm Many changes, new demos, all described in the in-image documentation. Stef

3 2