Squeak-dev February 2022

squeak-dev@lists.squeakfoundation.org

30 participants
331 discussions

The Inbox: Compiler-ct.452.mcz
by commits＠source.squeak.org 05 May '22

05 May '22

A new version of Compiler was added to project The Inbox: http://source.squeak.org/inbox/Compiler-ct.452.mcz ==================== Summary ==================== Name: Compiler-ct.452 Author: ct Time: 13 November 2020, 7:07:30.464415 pm UUID: a40e8327-95c2-f448-8edd-0aa087a5c930 Ancestors: Compiler-eem.451 Reworks public Compiler interface and documentation: - Parser: Do not use #fail in the event of an internal error unless compilation is interactive. This was a single precedent case. - Correct description of compilation error handling: failBlock is *not* evaluated any longer if the requestor is nil since I eliminated the above precedent (I validated that twice). Mention SyntaxErrorNotification explicitly instead of referring to the ToolSet-specific SyntaxError tool. - Provide new convenience selectors #compileNoPattern: and #compileNoPattern:in: on Compiler instance side. - Unify method comment format and phrases. - Ban ST80-specific term "controller" from the argument names. =============== Diff against Compiler-eem.451 =============== Item was changed: ----- Method: Compiler class>>evaluate: (in category 'evaluating') ----- evaluate: textOrString + "See Compiler|evaluate:for:notifying:logged:. If a compilation error occurs, a SyntaxErrorNotification is signaled rather than notifying any requestor. + Compilation is carried out with respect to nil, i.e., no object, and the invocation is not logged." - "See Compiler|evaluate:for:notifying:logged:. If a compilation error occurs, - a Syntax Error view is created rather than notifying any requestor. - Compilation is carried out with respect to nil, i.e., no object, and the - invocation is not logged." ^self evaluate: textOrString for: nil! Item was changed: ----- Method: Compiler class>>evaluate:for: (in category 'evaluating') ----- evaluate: textOrString for: anObject + "See Compiler|evaluate:for:notifying:. If a compilation error occurs, a SyntaxErrorNotification is signaled rather than notifying any requestor." - "See Compiler|evaluate:for:notifying:. If a compilation error occurs, - a Syntax Error view is created rather than notifying any requestor." ^self evaluate: textOrString for: anObject notifying: nil! Item was changed: ----- Method: Compiler class>>evaluate:for:logged: (in category 'evaluating logged') ----- evaluate: textOrString for: anObject logged: logFlag + "See Compiler|evaluate:for:notifying:logged:. If a compilation error occurs, a SyntaxErrorNotification is signaled rather than notifying any requestor." - "See Compiler|evaluate:for:notifying:logged:. If a compilation error occurs, - a Syntax Error view is created rather than notifying any requestor." ^self evaluate: textOrString for: anObject notifying: nil logged: logFlag! Item was changed: ----- Method: Compiler class>>evaluate:for:notifying: (in category 'evaluating') ----- + evaluate: textOrString for: anObject notifying: requestor + "Compile and execute the argument, textOrString with respect to the class of anObject. If a compilation error occurs, use requestor for interactive error correction." - evaluate: textOrString for: anObject notifying: aController - "Compile and execute the argument, textOrString with respect to the class - of anObject. If a compilation error occurs, notify aController." ^ self new evaluate: textOrString in: nil to: anObject + notifying: requestor - notifying: aController ifFail: [^nil]! Item was changed: ----- Method: Compiler class>>evaluate:for:notifying:logged: (in category 'evaluating logged') ----- + evaluate: textOrString for: anObject notifying: requestor logged: logFlag + "Compile and execute the argument, textOrString with respect to the class of anObject. + If a compilation error occurs, use requestor for interactive error correction. + If both compilation and execution are successful then, if logFlag is true, log (write) the text onto a system changes file so that it can be replayed if necessary." - evaluate: textOrString for: anObject notifying: aController logged: logFlag - "Compile and execute the argument, textOrString with respect to the class - of anObject. If a compilation error occurs, notify aController. If both - compilation and execution are successful then, if logFlag is true, log - (write) the text onto a system changes file so that it can be replayed if - necessary." ^ self new evaluate: textOrString in: nil to: anObject + notifying: requestor - notifying: aController ifFail: [^nil] logged: logFlag.! Item was changed: ----- Method: Compiler class>>evaluate:in:notifying:logged: (in category 'evaluating logged') ----- + evaluate: textOrString in: anEnvironment notifying: requestor logged: logFlag - evaluate: textOrString in: anEnvironment notifying: aController logged: logFlag "Compile and execute the argument, textOrString in anEnvironment. + If a compilation error occurs, use requestor for interactive error correction. + If both compilation and execution are successful then, if logFlag is true, log (write) the text onto a system changes file so that it can be replayed if necessary." - If a compilation error occurs, notify aController. If both - compilation and execution are successful then, if logFlag is true, log - (write) the text onto a system changes file so that it can be replayed if - necessary." ^ self new evaluate: textOrString in: anEnvironment + notifying: requestor - notifying: aController logged: logFlag.! Item was changed: ----- Method: Compiler class>>evaluate:logged: (in category 'evaluating logged') ----- evaluate: textOrString logged: logFlag + "See Compiler|evaluate:for:notifying:logged:. If a compilation error occurs, a SyntaxErrorNotification is raised rather than notifying any requestor. - "See Compiler|evaluate:for:notifying:logged:. If a compilation error occurs, - a Syntax Error view is created rather than notifying any requestor. Compilation is carried out with respect to nil, i.e., no object." ^self evaluate: textOrString for: nil logged: logFlag! Item was changed: ----- Method: Compiler class>>evaluate:notifying: (in category 'evaluating') ----- + evaluate: textOrString notifying: requestor + "See Compiler|evaluate:for:notifying:logged:. Compilation is carried out with respect to nil, i.e., no object." - evaluate: textOrString notifying: aController - "See Compiler|evaluate:for:notifying:logged:. Compilation is carried out - with respect to nil, i.e., no object." + ^self evaluate: textOrString for: nil notifying: requestor! - ^self evaluate: textOrString for: nil notifying: aController! Item was changed: ----- Method: Compiler class>>evaluate:notifying:logged: (in category 'evaluating logged') ----- + evaluate: textOrString notifying: requestor logged: logFlag + "See Compiler|evaluate:for:notifying:logged:. Compilation is carried out with respect to nil, i.e., no object." - evaluate: textOrString notifying: aController logged: logFlag - "See Compiler|evaluate:for:notifying:logged:. Compilation is carried out - with respect to nil, i.e., no object." + ^self evaluate: textOrString for: nil notifying: requestor logged: logFlag! - ^self evaluate: textOrString for: nil notifying: aController logged: logFlag! Item was changed: ----- Method: Compiler class>>format:in:notifying: (in category 'evaluating') ----- + format: textOrStream in: aClass notifying: requestor + ^self new format: textOrStream in: aClass notifying: requestor! - format: textOrStream in: aClass notifying: aRequestor - ^self new format: textOrStream in: aClass notifying: aRequestor! Item was changed: ----- Method: Compiler class>>format:in:notifying:decorated: (in category 'evaluating') ----- + format: textOrStream in: aClass notifying: requestor decorated: aBoolean + ^self new format: textOrStream in: aClass notifying: requestor decorated: aBoolean! - format: textOrStream in: aClass notifying: aRequestor decorated: aBoolean - ^self new format: textOrStream in: aClass notifying: aRequestor decorated: aBoolean! Item was changed: ----- Method: Compiler>>compile:ifFail: (in category 'public access') ----- compile: aCue ifFail: failBlock + "Answer a MethodNode. + If the cue requestor is not nil, use it for interactive error correction, and evaluate failBlock after the compilation has been aborted. + The MethodNode is the root of a parse tree. It can be told to generate a CompiledMethod to be installed in the method dictionary of the class specified by the context." - "Answer a MethodNode. If the MethodNode can not be created, notify - the requestor in the contxt. If the requestor is nil, evaluate failBlock - instead. The MethodNode is the root of a parse tree. It can be told - to generate a CompiledMethod to be installed in the method dictionary - of the class specified by the context." ^self compileCue: aCue noPattern: false + ifFail: failBlock! - ifFail: failBlock ! Item was changed: ----- Method: Compiler>>compile:in:environment:notifying:ifFail: (in category 'public access') ----- + compile: textOrStream in: aClass environment: anEnvironment notifying: requestor ifFail: failBlock + "Answer a MethodNode for the argument, textOrStream. + If requestor is not nil, use it for interactive error correction, and evaluate failBlock after the compilation has been aborted. + The MethodNode is the root of a parse tree. It can be told to generate a CompiledMethod to be installed in the method dictionary of the argument, aClass." - compile: textOrStream in: aClass environment: anEnvironment notifying: aRequestor ifFail: failBlock - "Answer a MethodNode for the argument, textOrStream. If the - MethodNode can not be created, notify the argument, aRequestor; if - aRequestor is nil, evaluate failBlock instead. The MethodNode is the root - of a parse tree. It can be told to generate a CompiledMethod to be - installed in the method dictionary of the argument, aClass." ^self compileCue: (CompilationCue source: textOrStream class: aClass environment: anEnvironment + requestor: requestor) - requestor: aRequestor) noPattern: false + ifFail: failBlock! - ifFail: failBlock - ! Item was changed: ----- Method: Compiler>>compile:in:notifying:ifFail: (in category 'public access') ----- + compile: textOrStream in: aClass notifying: requestor ifFail: failBlock + "Answer a MethodNode for the argument, textOrStream. + If requestor is not nil, use it for interactive error correction, and evaluate failBlock after the compilation has been aborted. + The MethodNode is the root of a parse tree. It can be told to generate a CompiledMethod to be installed in the method dictionary of the argument, aClass." - compile: textOrStream in: aClass notifying: aRequestor ifFail: failBlock - "Answer a MethodNode for the argument, textOrStream. If the - MethodNode can not be created, notify the argument, aRequestor; if - aRequestor is nil, evaluate failBlock instead. The MethodNode is the root - of a parse tree. It can be told to generate a CompiledMethod to be - installed in the method dictionary of the argument, aClass." ^self compileCue: (CompilationCue source: textOrStream class: aClass + requestor: requestor) - requestor: aRequestor) noPattern: false + ifFail: failBlock! - ifFail: failBlock - ! Item was changed: ----- Method: Compiler>>compileCue:noPattern:ifFail: (in category 'private') ----- compileCue: aCue noPattern: aBoolean ifFail: failBlock "Answer a MethodNode corresponding to cue source. + If the cue requestor is not nil, use it for interactive error correction, and evaluate failBlock after the compilation has been aborted. + The MethodNode is the root of a parse tree. It can be told to generate a CompiledMethod: - If the MethodNode can not be created, notify the cue requestor. - If the cue requestor is nil, evaluate failBlock instead. - The MethodNode is the root of a parse tree. - It can be told to generate a CompiledMethod - either to be evaluated in cue context if aBoolean is true, with cue receiver as method receiver, - or to be installed in the method dictionary of the target class specified by the cue if aBoolean is false." + - self setCue: aCue. ^self translateNoPattern: aBoolean ifFail: failBlock! Item was added: + ----- Method: Compiler>>compileNoPattern: (in category 'public access') ----- + compileNoPattern: textOrStream + + ^ self + compileNoPattern: textOrStream + in: nil class! Item was added: + ----- Method: Compiler>>compileNoPattern:in: (in category 'public access') ----- + compileNoPattern: textOrStream in: aClass + + ^ self + compileNoPattern: textOrStream + in: aClass + notifying: nil + ifFail: [^ nil]! Item was changed: ----- Method: Compiler>>compileNoPattern:in:context:environment:notifying:ifFail: (in category 'public access') ----- + compileNoPattern: textOrStream in: aClass context: aContext environment: anEnvironment notifying: requestor ifFail: failBlock - compileNoPattern: textOrStream in: aClass context: aContext environment: anEnvironment notifying: aRequestor ifFail: failBlock "Similar to #compile:in:notifying:ifFail:, but the compiled code is expected to be a do-it expression, with no message pattern, and it will be in an explicit environment." ^self compileCue: (CompilationCue source: textOrStream context: aContext class: aClass environment: anEnvironment + requestor: requestor) - requestor: aRequestor) noPattern: true + ifFail: failBlock! - ifFail: failBlock - ! Item was changed: ----- Method: Compiler>>compileNoPattern:in:context:notifying:ifFail: (in category 'public access') ----- + compileNoPattern: textOrStream in: aClass context: aContext notifying: requestor ifFail: failBlock - compileNoPattern: textOrStream in: aClass context: aContext notifying: aRequestor ifFail: failBlock "Similar to #compile:in:notifying:ifFail:, but the compiled code is expected to be a do-it expression, with no message pattern." ^self compileCue: (CompilationCue source: textOrStream context: aContext class: aClass + requestor: requestor) - requestor: aRequestor) noPattern: true + ifFail: failBlock! - ifFail: failBlock - ! Item was changed: ----- Method: Compiler>>compileNoPattern:in:notifying:ifFail: (in category 'public access') ----- + compileNoPattern: textOrStream in: aClass notifying: requestor ifFail: failBlock - compileNoPattern: textOrStream in: aClass notifying: aRequestor ifFail: failBlock "Similar to #compile:in:notifying:ifFail:, but the compiled code is expected to be a do-it expression, with no message pattern." ^self compileCue: (CompilationCue source: textOrStream class: aClass + requestor: requestor) - requestor: aRequestor) noPattern: true + ifFail: failBlock! - ifFail: failBlock - ! Item was changed: ----- Method: Compiler>>compiledMethodFor:in:to:notifying:ifFail: (in category 'public access') ----- + compiledMethodFor: textOrStream in: aContext to: receiver notifying: requestor ifFail: failBlock + "Compiles the sourceStream into a parse tree, then generates code into a method, and answers it. + If receiver is not nil, then the text can refer to instance variables of that receiver (the Inspector uses this). + If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). + If requestor is not nil, use it for interactive error correction, and evaluate failBlock after the compilation has been aborted." - compiledMethodFor: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock - "Compiles the sourceStream into a parse tree, then generates code - into a method, and answers it. If receiver is not nil, then the text can - refer to instance variables of that receiver (the Inspector uses this). - If aContext is not nil, the text can refer to temporaries in that context - (the Debugger uses this). If aRequestor is not nil, then it will receive a - notify:at: message before the attempt to evaluate is aborted." | methodNode method | methodNode := self compileNoPattern: textOrStream in: (self classForReceiver: receiver context: aContext) context: aContext + notifying: requestor - notifying: aRequestor ifFail: [^failBlock value]. method := self interactive ifTrue: [ methodNode generateWithTempNames ] ifFalse: [ methodNode generate ]. ^method! Item was changed: ----- Method: Compiler>>compiledMethodFor:in:to:notifying:ifFail:logged: (in category 'public access logging') ----- + compiledMethodFor: textOrStream in: aContext to: receiver notifying: requestor ifFail: failBlock logged: logFlag + "Compiles the sourceStream into a parse tree, then generates code into a method, and answers it. + If receiver is not nil, then the text can refer to instance variables of that receiver (the Inspector uses this). + If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). + If requestor is not nil, use it for interactive compilation, and evaluate failBlock after the compilation has been aborted." - compiledMethodFor: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock logged: logFlag - "Compiles the sourceStream into a parse tree, then generates code - into a method, and answers it. If receiver is not nil, then the text can - refer to instance variables of that receiver (the Inspector uses this). - If aContext is not nil, the text can refer to temporaries in that context - (the Debugger uses this). If aRequestor is not nil, then it will receive a - notify:at: message before the attempt to evaluate is aborted." | method | method := self compiledMethodFor: textOrStream in: aContext to: receiver + notifying: requestor - notifying: aRequestor ifFail: [^failBlock value]. logFlag ifTrue: [SystemChangeNotifier uniqueInstance evaluated: cue stringToLog context: aContext]. ^method! Item was changed: ----- Method: Compiler>>evaluate: (in category 'public access') ----- evaluate: textOrString + "See evaluate:for:notifying:logged:. If a compilation error occurs, a SyntaxErrorNotification is signaled rather than notifying any requestor. + Compilation is carried out with respect to nil, i.e., no object, and the invocation is not logged." - "See evaluate:for:notifying:logged:. If a compilation error occurs, - a Syntax Error view is created rather than notifying any requestor. - Compilation is carried out with respect to nil, i.e., no object, and the - invocation is not logged." ^self evaluate: textOrString for: nil! Item was changed: ----- Method: Compiler>>evaluate:for: (in category 'public access') ----- evaluate: textOrString for: anObject + "See evaluate:for:notifying:logged:. If a compilation error occurs, a SyntaxErrorNotification is signaled rather than notifying any requestor." - "See evaluate:for:notifying:logged:. If a compilation error occurs, - a Syntax Error view is created rather than notifying any requestor." ^self evaluate: textOrString for: anObject notifying: nil! Item was changed: ----- Method: Compiler>>evaluate:for:logged: (in category 'public access logging') ----- evaluate: textOrString for: anObject logged: logFlag + "See evaluate:for:notifying:logged:. If a compilation error occurs, a SyntaxError is signaled rather than notifying any requestor." - "See evaluate:for:notifying:logged:. If a compilation error occurs, - a Syntax Error view is created rather than notifying any requestor." ^self evaluate: textOrString for: anObject notifying: nil logged: logFlag! Item was changed: ----- Method: Compiler>>evaluate:for:notifying: (in category 'public access') ----- + evaluate: textOrString for: anObject notifying: requestor + "Compile and execute the argument, textOrString with respect to the class of anObject. If a compilation error occurs, use requestor for interactive compilation." - evaluate: textOrString for: anObject notifying: aController - "Compile and execute the argument, textOrString with respect to the class - of anObject. If a compilation error occurs, notify aController." ^ self evaluate: textOrString in: nil to: anObject + notifying: requestor - notifying: aController ifFail: [^nil]! Item was changed: ----- Method: Compiler>>evaluate:for:notifying:logged: (in category 'public access logging') ----- + evaluate: textOrString for: anObject notifying: requestor logged: logFlag + "Compile and execute the argument, textOrString with respect to the class of anObject. + If a compilation error occurs, use requestor for interactive compilation. + If both compilation and execution are successful then, if logFlag is true, log (write) the text onto a system changes file so that it can be replayed if necessary." - evaluate: textOrString for: anObject notifying: aController logged: logFlag - "Compile and execute the argument, textOrString with respect to the class - of anObject. If a compilation error occurs, notify aController. If both - compilation and execution are successful then, if logFlag is true, log - (write) the text onto a system changes file so that it can be replayed if - necessary." ^ self evaluate: textOrString in: nil to: anObject + notifying: requestor - notifying: aController ifFail: [^nil] logged: logFlag.! Item was changed: ----- Method: Compiler>>evaluate:in:environment:notifying:ifFail:logged: (in category 'public access logging') ----- + evaluate: textOrStream in: aContext environment: anEnvironment notifying: requestor ifFail: failBlock logged: logFlag + "Compiles the sourceStream into a parse tree, then generates code into a method. + If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). + If requestor is not nil, use it for interactive compilation, and evaluate failBlock after the compilation has been aborted. + Finally, the compiled method is invoked from here via withArgs:executeMethod:, hence the system no longer creates Doit method litter on errors." - evaluate: textOrStream in: aContext environment: anEnvironment notifying: aRequestor ifFail: failBlock logged: logFlag - "Compiles the sourceStream into a parse tree, then generates code into - a method. If aContext is not nil, the text can refer to temporaries in that - context (the Debugger uses this). If aRequestor is not nil, then it will receive - a notify:at: message before the attempt to evaluate is aborted. Finally, the - compiled method is invoked from here via withArgs:executeMethod:, hence - the system no longer creates Doit method litter on errors." ^self evaluateCue: (CompilationCue source: textOrStream context: aContext receiver: nil class: UndefinedObject environment: anEnvironment + requestor: requestor) - requestor: aRequestor) ifFail: failBlock logged: logFlag! Item was changed: ----- Method: Compiler>>evaluate:in:notifying:logged: (in category 'public access logging') ----- + evaluate: textOrString in: anEnvironment notifying: requestor logged: logFlag - evaluate: textOrString in: anEnvironment notifying: aController logged: logFlag "Compile and execute the argument, textOrString in anEnvironment. + If a compilation error occurs, use requestor for interactive compilation. + If both compilation and execution are successful then, if logFlag is true, log (write) the text onto a system changes file so that it can be replayed if necessary." - If a compilation error occurs, notify aController. If both - compilation and execution are successful then, if logFlag is true, log - (write) the text onto a system changes file so that it can be replayed if - necessary." ^self evaluate: textOrString in: nil environment: anEnvironment + notifying: requestor - notifying: aController ifFail: [^nil] logged: logFlag! Item was changed: ----- Method: Compiler>>evaluate:in:to:environment:notifying:ifFail:logged: (in category 'public access logging') ----- + evaluate: textOrStream in: aContext to: receiver environment: anEnvironment notifying: requestor ifFail: failBlock logged: logFlag - evaluate: textOrStream in: aContext to: receiver environment: anEnvironment notifying: aRequestor ifFail: failBlock logged: logFlag "Same as #evaluate:in:to:notifying:ifFail:logged: but with an explicit environment" ^self evaluateCue: (CompilationCue source: textOrStream context: aContext receiver: receiver class: (self classForReceiver: receiver context: aContext) environment: anEnvironment + requestor: requestor) - requestor: aRequestor) ifFail: failBlock logged: logFlag! Item was changed: ----- Method: Compiler>>evaluate:in:to:notifying:ifFail: (in category 'public access') ----- + evaluate: textOrStream in: aContext to: receiver notifying: requestor ifFail: failBlock + "Compiles the sourceStream into a parse tree, then generates code into a method. + If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). + If requestor is not nil, use it for interactive error correction, and evaluate failBlock if the compilation fails. + Finally, the compiled method is invoked from here via withArgs:executeMethod:, hence the system no longer creates Doit method litter on errors." + - evaluate: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock - "Compiles the sourceStream into a parse tree, then generates code into - a method. If aContext is not nil, the text can refer to temporaries in that - context (the Debugger uses this). If aRequestor is not nil, then it will receive - a notify:at: message before the attempt to evaluate is aborted. Finally, the - compiled method is invoked from here via withArgs:executeMethod:, hence - the system no longer creates Doit method litter on errors." - | theClass | theClass := self classForReceiver: receiver context: aContext. ^self evaluateCue: (CompilationCue source: textOrStream context: aContext receiver: receiver class: theClass environment: theClass environment + requestor: requestor) - requestor: aRequestor) ifFail: failBlock! Item was changed: ----- Method: Compiler>>evaluate:in:to:notifying:ifFail:logged: (in category 'public access logging') ----- + evaluate: textOrStream in: aContext to: receiver notifying: requestor ifFail: failBlock logged: logFlag + "Compiles the sourceStream into a parse tree, then generates code into a method. + If aContext is not nil, the text can refer to temporaries in that context (the Debugger uses this). + If requestor is not nil, use it for interactive compilation, and evaluate failBlock if the compilation fails. + Finally, the compiled method is invoked from here via withArgs:executeMethod:, hence the system no longer creates Doit method litter on errors." + - evaluate: textOrStream in: aContext to: receiver notifying: aRequestor ifFail: failBlock logged: logFlag - "Compiles the sourceStream into a parse tree, then generates code into - a method. If aContext is not nil, the text can refer to temporaries in that - context (the Debugger uses this). If aRequestor is not nil, then it will receive - a notify:at: message before the attempt to evaluate is aborted. Finally, the - compiled method is invoked from here via withArgs:executeMethod:, hence - the system no longer creates Doit method litter on errors." | theClass | theClass := self classForReceiver: receiver context: aContext. ^self evaluateCue: (CompilationCue source: textOrStream context: aContext receiver: receiver class: theClass environment: theClass environment + requestor: requestor) - requestor: aRequestor) ifFail: failBlock logged: logFlag! Item was changed: ----- Method: Compiler>>evaluate:logged: (in category 'public access logging') ----- evaluate: textOrString logged: logFlag + "See evaluate:for:notifying:logged:. If a compilation error occurs, a SyntaxErrorNotification is signaled rather than notifying any requestor. - "See evaluate:for:notifying:logged:. If a compilation error occurs, - a Syntax Error view is created rather than notifying any requestor. Compilation is carried out with respect to nil, i.e., no object." ^self evaluate: textOrString for: nil logged: logFlag! Item was changed: ----- Method: Compiler>>evaluate:notifying: (in category 'public access') ----- + evaluate: textOrString notifying: requestor + "See evaluate:for:notifying:. Compilation is carried out with respect to nil, i.e., no object." - evaluate: textOrString notifying: aController - "See evaluate:for:notifying:. Compilation is carried out - with respect to nil, i.e., no object." + ^self evaluate: textOrString for: nil notifying: requestor! - ^self evaluate: textOrString for: nil notifying: aController! Item was changed: ----- Method: Compiler>>evaluate:notifying:logged: (in category 'public access logging') ----- + evaluate: textOrString notifying: requestor logged: logFlag + "See evaluate:for:notifying:logged:. Compilation is carried out with respect to nil, i.e., no object." - evaluate: textOrString notifying: aController logged: logFlag - "See evaluate:for:notifying:logged:. Compilation is carried out - with respect to nil, i.e., no object." + ^self evaluate: textOrString for: nil notifying: requestor logged: logFlag! - ^self evaluate: textOrString for: nil notifying: aController logged: logFlag! Item was changed: ----- Method: Compiler>>format:in:notifying: (in category 'public access') ----- + format: textOrStream in: aClass notifying: requestor + "Compile a parse tree from the argument, textOrStream. Answer a string containing the original code, formatted nicely. If aBoolean is true, then decorate the resulting text with color and hypertext actions." - format: textOrStream in: aClass notifying: aRequestor - "Compile a parse tree from the argument, textOrStream. Answer a string containing the original code, formatted nicely. If aBoolean is true, then decorate the resulting text with color and hypertext actions" | aNode | self from: textOrStream class: aClass + notifying: requestor. - notifying: aRequestor. aNode := self formatNoPattern: false ifFail: [^ nil]. - - "aSymbol == #colorPrint ifTrue: - [^aNode asColorizedSmalltalk80Text]." "deprecating #colorPrint in favor of Shout --Ron Spengler" - ^aNode decompileString! Item was changed: ----- Method: Compiler>>format:in:notifying:decorated: (in category 'public access') ----- + format: textOrStream in: aClass notifying: requestor decorated: aBoolean + "Compile a parse tree from the argument, textOrStream. Answer a string containing the original code, formatted nicely. If aBoolean is true, then decorate the resulting text with color and hypertext actions." + - format: textOrStream in: aClass notifying: aRequestor decorated: aBoolean - "Compile a parse tree from the argument, textOrStream. Answer a string containing the original code, formatted nicely. If aBoolean is true, then decorate the resulting text with color and hypertext actions" | aNode | self from: textOrStream class: aClass + notifying: requestor. - notifying: aRequestor. aNode := self formatNoPattern: false ifFail: [^ nil]. ^ aBoolean ifTrue: [aNode decompileText] ifFalse: [aNode decompileString]! Item was changed: ----- Method: Compiler>>parse:in:notifying: (in category 'public access') ----- parse: textOrStream in: aClass notifying: req + "Compile the argument, textOrStream, with respect to the class, aClass, and answer the MethodNode that is the root of the resulting parse tree. If an error occurs, use requestor for interactive error handling." - "Compile the argument, textOrStream, with respect to the class, aClass, and - answer the MethodNode that is the root of the resulting parse tree. Notify the - argument, req, if an error occurs. The failBlock is defaulted to an empty block." self from: textOrStream class: aClass notifying: req. ^self parser parseCue: cue noPattern: false ifFail: []! Item was changed: ----- Method: Parser>>notify:at: (in category 'error handling') ----- notify: string at: location | messageText | messageText := '"' , string , ' ->"'. cue requestor isNil ifTrue: [ | notification | (encoder == self or: [encoder isNil]) + ifTrue: [^ self interactive + ifTrue: [self fail] + ifFalse: [self error: 'failure setting up syntax error']]. - ifTrue: [^ self fail "failure setting up syntax error"]. (notification := SyntaxErrorNotification cue: (cue copy source: (source contents asText copyReplaceFrom: location to: location - 1 with: messageText); yourself) doitFlag: doitFlag errorMessage: string location: location) signal. notification tryNewSourceIfAvailable] ifFalse: [cue requestor notify: messageText at: location in: source]. ^ self fail!

4 3

bad MessageTrace regression (was: The Trunk: Morphic-mt.1652.mcz)
by Chris Muller 05 May '22

05 May '22

Hi Marcel, I'm doing some testing in trunk and just noticed this. When selecting a message in the code pane and browsing senders, **it must always spawn a new MessageTrace** instead of mangling the to the list at the top. The trace at the top is supposed to represent execution flow between the messages in the list, and NOT different random messages that derail the trace and make it a complete mess. I also noticed this has been backported to 5.3. - Chris On Mon, Apr 27, 2020 at 2:32 AM <commits(a)source.squeak.org> wrote: > Marcel Taeumel uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-mt.1652.mcz > > ==================== Summary ==================== > > Name: Morphic-mt.1652 > Author: mt > Time: 27 April 2020, 9:31:57.493264 am > UUID: d23bbde5-4e42-3547-960d-39994fc21f56 > Ancestors: Morphic-ct.1651 > > Fixes regression #browseIt in TraceMessages, too. Now all recent hick-ups > with TraceMessages are gone. There are still some hooks missing such as > #browseAllAccessTo:from:. > > However, I think we should push down those backstops from Object to Model. > > Note that I already backported this fix to Squeak 5.3. > > =============== Diff against Morphic-ct.1651 =============== > > Item was changed: > ----- Method: TextEditor>>browseIt (in category 'menu messages') ----- > browseIt > "Launch a browser for the current selection, if appropriate." > > Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt]. > > self lineSelectAndEmptyCheck: [^ morph flash]. > > "First, try to show all accesses to instance or class variables." > self selectedInstanceVariable ifNotNil: > [:nameToClass | self systemNavigation > browseAllAccessesTo: nameToClass key > from: nameToClass value]. > self selectedClassVariable ifNotNil: > + [:binding | self model browseAllCallsOn: binding]. > - [:binding | self systemNavigation browseAllCallsOn: > binding]. > > "Then, either browse the class (from a binding) or all > implementors of a selector." > self selectedBinding ifNotNil: > [:binding | ^ self systemNavigation browseClass: binding]. > self selectedSelector ifNotNil: > + [:selector | ^ self model browseAllImplementorsOf: > selector]. > - [:selector | ^ self systemNavigation > browseAllImplementorsOf: selector]. > > morph flash! > > >

8 45

The Inbox: ToolBuilder-Morphic-ct.286.mcz
by commits＠source.squeak.org 05 May '22

05 May '22

A new version of ToolBuilder-Morphic was added to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Morphic-ct.286.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ct.286 Author: ct Time: 15 January 2022, 10:19:51.009373 pm UUID: 3c0068e7-ce8e-5f45-8782-34c92bc6ab5f Ancestors: ToolBuilder-Morphic-ct.285 Fixes a nil MNU when interrupting a pluggable dialog. Steps to reproduce (before): 1. Do it: Project uiManager chooseFrom: ((1 to: 10) collect: #asWords). 2. Interrupt/Debug invocation 3. Close/cancel the dialog 4. Abandon the debugger During the unwinding logic, the dialog window would attempt to close itself a second time, neglecting the fact that the model had already been released. Inbox because only 90% sure that this is the right fix. :-) =============== Diff against ToolBuilder-Morphic-ct.285 =============== Item was changed: ----- Method: PluggableDialogWindow>>delete (in category 'submorphs - add/remove') ----- delete + self model ifNil: [^ super delete]. self model okToClose ifFalse: [^ self]. self closeDialogSelector ifNotNil: [:sel | self model perform: sel]. self model windowIsClosing; release. self model: nil. super delete.!

3 7

Merge Request: defaultFocusMorph.cs
by christoph.thiede＠student.hpi.uni-potsdam.de 05 May '22

05 May '22

Hi all, if a new window is invoked via a keyboard gesture, with the proposed changeset, the keyboard focus is automatically passed to the new window. See SystemWindow >> #defaultFocusMorph. By default, the first keyboard-interested (sub)+morph is selected, but you can specify a different focus holder by setting the #defaultFocusMorph property of the window or the #defaultFocus parameter of the pluggable window spec. I think this improves the keyboard workflow in Squeak a bit. For instance, it enables the following workflows: - Ctrl + 0 (search bar), type '6 * 7', Alt + o (spawn), Alt + p (print it) - Ctrl + 3 (Tools menu), type 'browser', Enter, Alt + f (find), type 'Object', Enter Please review and merge if you don't have any objections. Happy squeaking! :-) Best, Christoph --- Sent from Squeak Inbox Talk

3 6

The Inbox: Collections-ct.877.mcz
by commits＠source.squeak.org 04 May '22

04 May '22

Christoph Thiede uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-ct.877.mcz ==================== Summary ==================== Name: Collections-ct.877 Author: ct Time: 17 February 2020, 8:57:49.278239 pm UUID: bf652ba0-43cc-734d-ac03-7a226cc80463 Ancestors: Collections-ul.875 Extends and realigns version of #findFirst: and #findLast:. Second, optimized version after many helpful comments by Levente (ul). Thank you! Replaces Collections-ct.875. --- Performance analysis: #findFirst: - '238 per second. 4.2 milliseconds per run. 0.73956 % GC time.' #findFirst:startingAt: - '1,510 per second. 660 microseconds per run. 1.56 % GC time.' #findFirst:startingAt:ifNone: - '1,210 per second. 828 microseconds per run. 2.06 % GC time.' #findFirst:ifNone: - '214 per second. 4.68 milliseconds per run. 0.65987 % GC time.' #findLast: - '210 per second. 4.76 milliseconds per run. 0.66 % GC time.' #findLast:startingAt: - '1,380 per second. 724 microseconds per run. 1.72 % GC time.' #findLast:startingAt:ifNone: - '1,130 per second. 887 microseconds per run. 2 % GC time.' #findLast:ifNone: - '206 per second. 4.86 milliseconds per run. 0.81967 % GC time.' Comparing to previous version: #findFirst: - '193 per second. 5.19 milliseconds per run. 0.5994 % GC time.' (NOW 23.3% faster) #findLast: - '213 per second. 4.69 milliseconds per run. 0.71986 % GC time.' (NOW 1.4% slower) #findLast:startingAt: - '1,360 per second. 736 microseconds per run. 1.72 % GC time.' (NOW 1.4% faster) Measurements code: random := Random new. range := 1 to: 256. array := (1 to: 128) collect: [:i | range atRandom: random]. values := (1 to: 4096) collect: [:i | range atRandom: random]. ({ #findFirst: -> [ values do: [:x | array findFirst: [:y | x = y]]]. #findFirst:startingAt: -> [ values pairsDo: [:x :s | array findFirst: [:y | x = y] startingAt: s]]. #findFirst:ifNone: -> [ values do: [:x | array findFirst: [:y | x = y] ifNone: [123456789 sqrt]]]. #findFirst:startingAt:ifNone: -> [ values pairsDo: [:x :s | array findFirst: [:y | x = y] startingAt: s ifNone: [123456789 sqrt]]]. #findLast: -> [ values do: [:x | array findLast: [:y | x = y]]]. #findLast:startingAt: -> [ values pairsDo: [:x :s | array findLast: [:y | x = y] startingAt: s]]. #findLast:ifNone: -> [ values do: [:x | array findLast: [:y | x = y] ifNone: [123456789 sqrt]]]. #findLast:startingAt:ifNone: -> [ values pairsDo: [:x :s | array findLast: [:y | x = y] startingAt: s ifNone: [123456789 sqrt]]]. } select: [:assoc | array respondsTo: assoc key]) collect: [:assoc | assoc key -> assoc value bench] as: Dictionary =============== Diff against Collections-ul.875 =============== Item was changed: ----- Method: SequenceableCollection>>findFirst: (in category 'enumerating') ----- findFirst: aBlock "Return the index of my first element for which aBlock evaluates as true." + ^ self findFirst: aBlock startingAt: 1! - | index | - index := 0. - [(index := index + 1) <= self size] whileTrue: - [(aBlock value: (self at: index)) ifTrue: [^index]]. - ^ 0! Item was added: + ----- Method: SequenceableCollection>>findFirst:ifNone: (in category 'enumerating') ----- + findFirst: aBlock ifNone: anotherBlock + "Return the index of my first element for which aBlock evaluates as true. If no element is found, return the value of anotherBlock." + + | index | + (index := self findFirst: aBlock) = 0 + ifTrue: [^ anotherBlock value]. + ^ index! Item was added: + ----- Method: SequenceableCollection>>findFirst:startingAt: (in category 'enumerating') ----- + findFirst: aBlock startingAt: minIndex + "Return the index of my first element with index >= minIndex for which aBlock evaluates as true." + + minIndex to: self size do: [:index | + (aBlock value: (self at: index)) ifTrue: [^index]]. + ^ 0! Item was added: + ----- Method: SequenceableCollection>>findFirst:startingAt:ifNone: (in category 'enumerating') ----- + findFirst: aBlock startingAt: minIndex ifNone: anotherBlock + "Return the index of my first element with index >= minIndex for which aBlock evaluates as true. If no element is found, return the value of anotherBlock." + + | index | + (index := self findFirst: aBlock startingAt: minIndex) = 0 + ifTrue: [^ anotherBlock value]. + ^ index! Item was changed: ----- Method: SequenceableCollection>>findLast: (in category 'enumerating') ----- findLast: aBlock "Return the index of my last element for which aBlock evaluates as true." + ^ self findLast: aBlock startingAt: 1! - | index | - index := self size + 1. - [(index := index - 1) >= 1] whileTrue: - [(aBlock value: (self at: index)) ifTrue: [^index]]. - ^ 0! Item was added: + ----- Method: SequenceableCollection>>findLast:ifNone: (in category 'enumerating') ----- + findLast: aBlock ifNone: anotherBlock + "Return the index of my last element for which aBlock evaluates as true. If no element is found, return the value of anotherBlock." + + | index | + (index := self findLast: aBlock) = 0 + ifTrue: [^ anotherBlock value]. + ^ index! Item was changed: ----- Method: SequenceableCollection>>findLast:startingAt: (in category 'enumerating') ----- + findLast: aBlock startingAt: minIndex + "Return the index of my last element with index >= minIndex for which aBlock evaluates as true." - findLast: aBlock startingAt: i - "Return the index of my last element with index >= i for which aBlock evaluates as true." + self size to: minIndex by: -1 do: [:index | + (aBlock value: (self at: index)) ifTrue: [^index]]. - | index | - index := self size + 1. - [(index := index - 1) >= i] whileTrue: - [(aBlock value: (self at: index)) ifTrue: [^index]]. ^ 0! Item was added: + ----- Method: SequenceableCollection>>findLast:startingAt:ifNone: (in category 'enumerating') ----- + findLast: aBlock startingAt: minIndex ifNone: anotherBlock + "Return the index of my last element with index >= minIndex for which aBlock evaluates as true. If no element is found, return the value of anotherBlock." + + | index | + (index := self findLast: aBlock startingAt: minIndex) = 0 + ifTrue: [^ anotherBlock value]. + ^ index!

3 2

PositionableStream >> #peekBack behavior
by Eric Gade 04 May '22

04 May '22

Hello, What is the expected behavior for a stream that is at position 1 when you send #peekBack? Intuitively I'd expect to get the first element of the underlying collection as a response. But instead I am getting nil. Here is an example that is failing: ``` elem := #(1 2 3 4). stream := ReadStream on: elem. first := stream next. first = 1. back := stream peekBack. back = first. ``` The last message is currently responding false. In Pharo this returns true, so there are differences. The currently implementation of PositionableStream >> #peekBack is: ``` peekBack "Return the element at the previous position, without changing position. Use indirect messages in case self is a StandardFileStream." | element | self position = 0 ifTrue: [self errorCantGoBack]. self position = 1 ifTrue: [self position: 0. ^ nil]. self skip: -2. element := self next. self skip: 1. ^ element ``` I can see the nil being returned there explicitly, so that's "where it's happening." Should this be the case though? Thanks -- Eric

5 7

Date today versus DateAndTime today
by Bernhard Pieber 25 Apr '22

25 Apr '22

Hi everyone, I am quite puzzled that the following answers false: DateAndTime today asDate = Date today. The reason seems to be the localOffsetSeconds. While DateAndTime today asDate has a local timezone, Date today has not. Shouldn’t this be consistent? The following answers false as well: Date today start = DateAndTime today I assume it is for the same reason. I suppose this is a feature, not a bug, but what is the reason for this behaviour? Cheers, Bernhard

6 6

Squeak 6.0 | Release Planning
by Marcel Taeumel 25 Apr '22

25 Apr '22

Hi all -- I suppose that many readers have noticed by now that we are currently preparing the next Squeak release. A few weeks ago, I volunteered for being the next release manager. Until now, I have been rather reluctant to make any concrete remarks on when the release will happen. Let me use the following lines to give you a brief update. The OpenSmalltalk VM looks good. We have our second release candidate and will hopefully make a third one soon. Our daily Trunk bundles include that OSVM RC2 already: - http://files.squeak.org/trunk/ - https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/tag/202112201228 - http://lists.squeakfoundation.org/pipermail/vm-dev/2022-January/037533.html The Trunk image is doing well. Maybe we can do our traditional "Feature Freeze" in the beginning of February. Before proposing a concrete schedule, I want to finish assessing a few higher-effort things including: - Objectland (http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-October/204437.…) - Localization (English, German, French, ...) - Jaromir's latest efforts around process scheduling - Eric's latest efforts around GIFReadWriter - Current state of ClipboardExtendedPlugin - Current state of IPv6 Other than that, I plan for announcing the upcoming "Feature Freeze" about 2 weeks in advance. Then we enter our beta-testing phase, in which I will make our latest "60Deprecated" package opt-in instead of opt-out (using the preference wizard). Then, about 1-2 weeks later if all goes well, I will update the .sources file of our final release candidate to SqueakV60.sources, package the release and open the Trunk for features again. :-) Next Trunk version will be 6.1alpha (using 61Deprecated for new deprecations). Let us all work together to make Squeak 6.0 being worth its increased major version number: - Report issues - Fix failing tests - Make you favorite projects compatible Thanks! :-) Happy squeaking! Best, Marcel

6 11

Re: [squeak-dev] Next Release Candidate?
by Marcel Taeumel 19 Apr '22

19 Apr '22

Hi all -- Please test this VM version: https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/tag/202112022203 [https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/tag/202112022203] Choose your preferred platform. Focus on cog.spur flavors for 64-bit machines. Best, Marcel Am 01.12.2021 10:38:47 schrieb Marcel Taeumel <marcel.taeumel(a)hpi.de>: Hi all -- What's you overall feeling of having a new release candidate of the OSVM? Overall pace has been decreasing during the last weeks. Maybe this is a good time then? Latest commit was about 10 hours ago. So, wait for 2-3 days and then tag that version, produce binaries and test those? Best, Marcel

9 27

Default preferences
by christoph.thiede＠student.hpi.uni-potsdam.de 08 Apr '22

08 Apr '22

Hi all! Yeah, this topic again, but before we release the next version of Squeak, I thought we maybe could slightly round off our list of preferences in order to improve the initial experience for new Squeakers even more! I have went through the entire list of preferences and identified several regressions and dead preferences (you may have noticed a number of other recent contributions by me regarding this topic), but I also made a list of default preference values with which I personally do not really agree, so I thought we could discuss them here. I'm trying to be brief: 1. Windowing Personally, the first thing I do in every new image is to enable these prefs: "mouse over for keyboard focus", "open tools attached to mouse cursor", "windows' contents are always active". Do I belong to a minority of Squeakers or could we satisfy a majority of Squeakers by turning on these prefs by default? 2. Tools Very brief suggestions: - TextDiffBuilder ignoreLineEndings -> true - Show annotation pane in the debugger -> true - Extra debugger buttons -> true - Show stack variables in debugger -> maybe? I like it, does it harm? - Stack Size in Notifier/Full Debugger -> increase by factor 2 or more, should not be a performance issue nowadays, but increases convenience 3. Morphs - Wrapped tree navigation -> true (just consistent to lists) - Use the new color-picker -> true (c'mon, this tool is already >11 years old! :p) 4. Editing - Auto enclose brackets -> #beforeSpaces (see [1], pending. Inserting a bracket pair () right before a character just feels pretty useless to me.) - Enclose selection with brackets -> true Please give feedback or discuss! You could opt en block or leave more detailed feedback to the single proposals. Looking forward to a productive debate! :-) Best, Christoph [1] autoEncloseBeforeSpace.cs: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-November/216871… --- Sent from Squeak Inbox Talk

11 67

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

Jump to page: