Squeak-dev April 2021

squeak-dev@lists.squeakfoundation.org

33 participants
392 discussions

The Trunk: Network-ct.244.mcz
by commits＠source.squeak.org 10 Apr '21

10 Apr '21

Nicolas Cellier uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ct.244.mcz ==================== Summary ==================== Name: Network-ct.244 Author: ct Time: 14 November 2020, 7:46:21.777394 pm UUID: a88f27af-c0a0-c340-9d0d-60c432537f47 Ancestors: Network-mt.243 Fixes FileUrl >> #retrieveContents which did not work for certain contentTypes because of an intermediary invalid content specification. See NetworkTests-ct.61 (inbox). =============== Diff against Network-mt.243 =============== Item was added: + ----- Method: MIMEDocument class>>contentType: (in category 'private') ----- + contentType: aString + + ^ self new + contentTypeHeaderValue: (MIMEHeaderValue fromMIMEHeader: aString); + yourself! Item was changed: ----- Method: MIMEDocument class>>contentType:content: (in category 'instance creation') ----- contentType: aString content: content "create a MIMEObject with the given content-type and content" "MIMEDocument contentType: 'text/plain' content: 'This is a test'" | ans | + ans := self contentType: aString. - ans := self new. - - ans contentTypeHeaderValue: (MIMEHeaderValue fromMIMEHeader: aString). - (ans isPlaintext or: [ans isHTML]) ifTrue: [ans content: (self tryToDecodeBody: content as: ans charset)] ifFalse: [ans isMultipart ifTrue: [| separator | separator := ans attachmentSeparator asLowercase. separator ifNil: [self error: 'Bad attachment separater']. separator := '--', separator withoutTrailingBlanks. ans addAllParts: (self parseParts: content withSeparator:separator).] ifFalse: [ans content: content]]. + + ^ ans! - - ^ ans - ! Item was changed: ----- Method: MIMELocalFileDocument class>>contentType:contentStream: (in category 'instance creation') ----- contentType: aString contentStream: aStream + + ^ (self contentType: aString) + contentStream: aStream; + yourself! - ^(self contentType: aString content: nil) contentStream: aStream!

1 0

The Inbox: Environments-jr.82.mcz
by commits＠source.squeak.org 10 Apr '21

10 Apr '21

A new version of Environments was added to project The Inbox: http://source.squeak.org/inbox/Environments-jr.82.mcz ==================== Summary ==================== Name: Environments-jr.82 Author: jr Time: 10 April 2021, 12:34:34.717998 am UUID: 2935eb63-046e-c344-8fba-771fb62fb5c2 Ancestors: Environments-tonyg.81 Sending resume: from defaultAction is erroneous in the ANSI standard. In Squeak, unhandled exceptions are resumed with the answer to the defaultAction message. =============== Diff against Environments-tonyg.81 =============== Item was changed: ----- Method: EnvironmentRequest>>defaultAction (in category 'exceptionDescription') ----- defaultAction | all environment | all := Environment allInstances. environment := UIManager default chooseFrom: (all collect: [:ea | ea printString]) values: all. + ^ environment! - self resume: environment.!

1 0

The Inbox: MonticelloConfigurations-ct.167.mcz
by commits＠source.squeak.org 08 Apr '21

08 Apr '21

A new version of MonticelloConfigurations was added to project The Inbox: http://source.squeak.org/inbox/MonticelloConfigurations-ct.167.mcz ==================== Summary ==================== Name: MonticelloConfigurations-ct.167 Author: ct Time: 8 April 2021, 10:59:45.930314 pm UUID: 99193dce-93ca-0f46-82ab-ca64f2641b16 Ancestors: MonticelloConfigurations-ct.166 Improves backward compatibility of MonticelloConfigurations-ct.166 for Squeak 5.2. =============== Diff against MonticelloConfigurations-ct.166 =============== Item was changed: ----- Method: MCConfiguration>>systemVersionForDeps: (in category 'updating') ----- systemVersionForDeps: dependencies "Answer the system version that will be reached by loading the passed dependencies." | versionNumbers versionDates | versionNumbers := dependencies collect: [:dep | dep isCollection ifFalse: [dep name versionNumber] ifTrue: [(dep collect: [:version | version name versionNumber]) ifEmpty: [0] + ifNotEmpty: [:numbers | numbers max]]]. - ifNotEmpty: #max]]. versionDates := dependencies with: self dependencies collect: [:dep :originalDep | (dep isCollection ifFalse: [dep date]) ifNil: [originalDep package workingCopy ancestors ifEmpty: [nil] ifNotEmpty: [:ancestors | ancestors first date]]]. ^ SystemVersion new date: ((versionDates copyWithout: nil) ifEmpty: [nil] + ifNotEmpty: [:dates | dates max]); - ifNotEmpty: #max); highestUpdate: versionNumbers sum!

1 0

Regular Expressions are not limited to Strings
by Thiede, Christoph 07 Apr '21

07 Apr '21

Hi all, just a small goody for all those interested: It turns out that, thanks to the great polymorphy in Squeak, regular expressions (as implemented in the Regex package of Trunk originally developed by Vassili Bykov) are not limited to collections that are actually strings. Here is a short counter-example: regex := RxParser new parse: #(1 2 $+ 1). matcher := RxParser preferredMatcherClass for: regex. matcher matches: #(1 2 2 2 1). "true!" To make the example work, only a small number of hard-coded class names have to be adjusted, see the attached changeset, it's really tiny. Here's another example: matcher copy: #(1 2 2 1 0 1 2 1) translatingMatchesUsing: [:match | match negated]. "#(-1 -2 -2 -1 0 -1 -2 -1)" This also allows us to style texts using regexes: matcher := 'ab+a' asRegex. matcher copy: ' aa-aba-abba ' asText translatingMatchesUsing: [:match | match allBold]. " aa-aba-abba " However, if the original text attributes should be preserved, we would need to hack TextStream >> #withAttributes:do: into the copy methods, analogously to Text >> #format:. I guess this limitation could only be resolved by redesigning Text as a collection of TextCharacters, which might be very slow. Nevertheless, I think this insight opens great possibilities for other forms of parsing. Maybe one could also process binary streams using polymorphic regex patterns, or even process sequences of domain-specific objects. Because RxsPredicate is so generic, you could also simply define custom predicates for these objects. Later, the next step could be adding support for nested collections (RxsNested?) so that you could parse entire trees of objects ... Ah, so beautiful dreams :-) Best, Christoph

1 1

The Trunk: EToys-nice.438.mcz
by commits＠source.squeak.org 07 Apr '21

07 Apr '21

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.438.mcz ==================== Summary ==================== Name: EToys-nice.438 Author: nice Time: 7 April 2021, 8:40:21.068323 pm UUID: d28ff6d4-e638-483f-b11b-7c3a9f5c7283 Ancestors: EToys-mt.437 Nuke usage of #parserClass: because redundant with definition of ScriptCompiler class>>parserClass. Fix evaluate:in:to:notifying:ifFail:logged: (self parser) already answers an instance, (self parser new) fails. Simplify: ScriptCompiler new parserClass new -> ScriptCompiler newParser =============== Diff against EToys-mt.437 =============== Item was removed: - ----- Method: ScriptCompiler>>compile:in:notifying:ifFail: (in category 'as yet unclassified') ----- - compile: textOrStream in: aClass notifying: aRequestor ifFail: failBlock - - self parserClass: ScriptParser. - ^ super compile: textOrStream in: aClass notifying: aRequestor ifFail: failBlock! Item was changed: ----- Method: ScriptCompiler>>compile:in:notifying:ifFail:for: (in category 'as yet unclassified') ----- compile: textOrStream in: aClass notifying: aRequestor ifFail: failBlock for: anInstance "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 parserClass: ScriptParser. ^ self parser parse: textOrStream readStream class: aClass noPattern: false context: nil notifying: aRequestor ifFail: [^ failBlock value] for: anInstance. ! Item was changed: ----- Method: ScriptCompiler>>evaluate:in:to:notifying:ifFail:logged: (in category 'as yet unclassified') ----- 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. This method is then installed in the receiver's class so that it can be invoked. In other words, 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 value toLog itsSelectionString itsSelection | + methodNode := self parser - methodNode := self parser new parse: textOrStream readStream class: (self classForReceiver: receiver context: aContext) noPattern: true context: aContext notifying: aRequestor ifFail: [^ failBlock value] for: receiver. method := methodNode generate: (CompiledMethodTrailer empty sourceCode: methodNode sourceText; yourself). self interactive ifTrue: [method := method copyWithTempNames: methodNode tempNames]. value := receiver withArgs: (aContext ifNil: [#()] ifNotNil: [{aContext}]) executeMethod: method. logFlag ifTrue: [toLog := ((aRequestor respondsTo: #selection) and: [(itsSelection := aRequestor selection) notNil] and: [(itsSelectionString := itsSelection asString) isEmptyOrNil not] ) ifTrue: [itsSelectionString] ifFalse: [textOrStream readStream contents]. SystemChangeNotifier uniqueInstance evaluated: toLog context: aContext]. ^value! Item was changed: ----- Method: TileMorph>>parseNodeWith: (in category '*Etoys-Squeakland-code generation') ----- parseNodeWith: encoder | op playerBearingCode | playerBearingCode := self playerBearingCode. "Must determine whom is scripted for what follows to work; if it's ever nil, we've got trouble" type = #expression ifTrue: + [^ (ScriptCompiler newParser parse: 'xxx ', operatorOrExpression class: UndefinedObject) block statements first]. - [^ (ScriptCompiler new parserClass new parse: 'xxx ', operatorOrExpression class: UndefinedObject) block statements first]. type = #literal ifTrue: [^ encoder encodeLiteral: literal]. type == #objRef ifTrue: [^playerBearingCode == actualObject ifTrue: ["If the object is the method's own 'self' then we MUST, rather than just MAY, put out 'self' rather than the referencer call, though the latter will temporarily work if only one instance of the uniclass exists." ^ encoder encodeVariable: 'self'] ifFalse: [(actualObject isPlayerLike and: [actualObject isSequentialStub]) ifTrue: [ ^ actualObject parseNodeWith: encoder. ] ifFalse: [ ^ encoder encodePlayer: actualObject]]]. type = #operator ifTrue: [op := ((UpdatingOperators includesKey: operatorOrExpression) and: [self precedingTileType = #slotRef]) ifTrue: [UpdatingOperators at: operatorOrExpression] ifFalse: [operatorOrExpression]. ^op isEmpty ifTrue: [self halt.] ifFalse: [^ encoder encodeSelector: (EqualityOperators at: op ifAbsent: [op])]]. !

1 0

X Server implementation for Squeak
by Thiede, Christoph 07 Apr '21

07 Apr '21

Hi all, just an interested question: Is there any X Server implementation for Squeak? I'm asking indeed not for an X Client implementation (I guess that is what sqUnixX11.c and the HostWindowPlugin implementation for Unix do) but for an X Server implementation, which could allow us to manage arbitrary Unix windows in our Squeak Morphic world. Is there already some solution like this? If not, anyone here who could make an estimation about the effort for this? :-) Best, Christoph

9 13

The Inbox: Environments-tonyg.78.mcz
by commits＠source.squeak.org 07 Apr '21

07 Apr '21

Tony Garnock-Jones uploaded a new version of Environments to project The Inbox: http://source.squeak.org/inbox/Environments-tonyg.78.mcz ==================== Summary ==================== Name: Environments-tonyg.78 Author: tonyg Time: 25 March 2021, 1:41:26.338334 pm UUID: 1f57f26d-c9da-4c95-adb3-3fd76774a64d Ancestors: Environments-dtl.77 EXPERIMENTAL. Nested `Namespace`s, by introducing subclass Namespace of Environment, and placing Namespace instances as "globals" in their parent environment. See also Tools-tonyg.1033, which includes an experimental EnvironmentBrowser class. =============== Diff against Environments-dtl.77 =============== Item was changed: + SystemOrganization addCategory: #'Environments-Help'! SystemOrganization addCategory: #'Environments-Core'! SystemOrganization addCategory: #'Environments-Loading'! - SystemOrganization addCategory: #'Environments-Policies'! - SystemOrganization addCategory: #'Environments-Help'! SystemOrganization addCategory: #'Environments-Notifications'! + SystemOrganization addCategory: #'Environments-Policies'! + SystemOrganization addCategory: #'Environments-Namespaces'! Item was added: + ----- Method: Environment class>>wellKnownInstances (in category 'as yet unclassified') ----- + wellKnownInstances + ^ Instances values sorted: [:a :b | + (a info name = #Smalltalk) + ifTrue: [true] ifFalse: [ + (b info name = #Smalltalk) + ifTrue: [false] ifFalse: [ + a info name <= b info name]]]! Item was added: + ----- Method: Environment>>isNamespace (in category 'testing') ----- + isNamespace + ^ false! Item was added: + ----- Method: Environment>>namespacePath (in category 'accessing') ----- + namespacePath + ^ Array with: self! Item was added: + ----- Method: Environment>>namespaceTreeDo: (in category 'accessing') ----- + namespaceTreeDo: aBlock + aBlock value: self. + self namespaces do: [:ns | ns namespaceTreeDo: aBlock].! Item was added: + ----- Method: Environment>>namespaces (in category 'accessing') ----- + namespaces + "Answer all Environments declared here whose parent is this Environment" + | nss | + nss := self select: [:item | + (item value isKindOf: Environment) and: [item value parent == self]]. + nss := nss asArray collect: [:item | item value]. + nss sort: [:a :b | (a name compare: b name) <= 2]. + ^ nss! Item was added: + ----- Method: Environment>>parent (in category 'accessing') ----- + parent + ^ nil! Item was added: + ----- Method: Environment>>rename: (in category 'accessing') ----- + rename: newName + | wellKnown | + newName = info name ifTrue: [^ self]. + (wellKnown := Instances includes: self) ifTrue: [ + (Instances anySatisfy: [:e | newName = e info name]) + ifTrue: [self error: 'Name collision: well-known Environment with name ', newName, ' already exists']]. + wellKnown ifTrue: [Instances removeKey: info name]. + info rename: newName. + wellKnown ifTrue: [Instances at: newName put: self].! Item was added: + ----- Method: EnvironmentInfo>>rename: (in category 'private') ----- + rename: newName + name := newName! Item was added: + Environment subclass: #Namespace + instanceVariableNames: 'parent' + classVariableNames: '' + poolDictionaries: '' + category: 'Environments-Namespaces'! Item was added: + ----- Method: Namespace>>checkName:in: (in category 'namespace hierarchy') ----- + checkName: name in: parent + (parent notNil and: [(parent at: name ifAbsent: [self]) ~~ self]) + ifTrue: [self error: 'Name collision: proposed name ', name, ' in ', parent name, ' for namespace ', self name, ' is already taken'].! Item was added: + ----- Method: Namespace>>doesNotUnderstand: (in category 'dynamic lookup') ----- + doesNotUnderstand: aMessage + aMessage numArgs = 0 ifFalse: [^ super doesNotUnderstand: aMessage]. + ^ self valueOf: aMessage selector ifAbsent: [^ super doesNotUnderstand: aMessage]! Item was added: + ----- Method: Namespace>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + self importSelf. + self import: Environment default.! Item was added: + ----- Method: Namespace>>isNamespace (in category 'as yet unclassified') ----- + isNamespace + ^ true! Item was added: + ----- Method: Namespace>>namespacePath (in category 'namespace hierarchy') ----- + namespacePath + | e | + e := self. + ^ (Array streamContents: [:w | + [e notNil and: [e isNamespace]] whileTrue: [ + w nextPut: e. + e := e parent]]) reverseInPlace! Item was added: + ----- Method: Namespace>>parent (in category 'accessing') ----- + parent + ^ parent! Item was added: + ----- Method: Namespace>>parent: (in category 'accessing') ----- + parent: anEnvironment + | n | + parent == anEnvironment ifTrue: [^self]. + n := info name asSymbol. + self checkName: n in: anEnvironment. + parent ifNotNil: [parent removeKey: n]. + parent := anEnvironment. + parent ifNotNil: [parent at: n put: self].! Item was added: + ----- Method: Namespace>>printOn: (in category 'printing') ----- + printOn: aStream + self namespacePath do: [:n | aStream nextPutAll: n info name] separatedBy: [aStream space]! Item was added: + ----- Method: Namespace>>rename: (in category 'accessing') ----- + rename: newName + | p | + p := parent. + self checkName: newName in: p. + self parent: nil. + super rename: newName. + self parent: p.! Item was added: + ----- Method: Namespace>>respondsTo: (in category 'dynamic lookup') ----- + respondsTo: aSymbol + ^ (super respondsTo: aSymbol) or: [self includesKey: aSymbol]!

4 3

The Inbox: Chronology-Core-dtl.66.mcz
by commits＠source.squeak.org 07 Apr '21

07 Apr '21

A new version of Chronology-Core was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-dtl.66.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.66 Author: dtl Time: 28 March 2021, 10:52:56.0001 am UUID: 9695afba-0eaf-49ab-8d2e-177f089f1d04 Ancestors: Chronology-Core-dtl.65 Let "1 second" be a synonym for "1 seconds" so that "5 second" does not answer one second. Likewise for minute, hour, etc. =============== Diff against Chronology-Core-dtl.65 =============== Item was changed: ----- Method: Number>>day (in category '*chronology-core') ----- day + ^ self days! - ^ self sign days! Item was changed: ----- Method: Number>>hour (in category '*chronology-core') ----- hour + ^ self hours - ^ self sign hours ! Item was changed: ----- Method: Number>>microSecond (in category '*chronology-core') ----- microSecond + ^ self microSeconds! - ^ self sign microSeconds! Item was changed: ----- Method: Number>>milliSecond (in category '*chronology-core') ----- milliSecond + ^ self milliSeconds - ^ self sign milliSeconds ! Item was changed: ----- Method: Number>>minute (in category '*chronology-core') ----- minute + ^ self minutes - ^ self sign minutes ! Item was changed: ----- Method: Number>>nanoSecond (in category '*chronology-core') ----- nanoSecond + ^ self nanoSeconds - ^ self sign nanoSeconds ! Item was changed: ----- Method: Number>>second (in category '*chronology-core') ----- second + ^ self seconds - ^ self sign seconds ! Item was changed: ----- Method: Number>>week (in category '*chronology-core') ----- week + ^ self weeks - ^ self sign weeks !

5 5

The Inbox: ShoutCore-ct.85.mcz
by commits＠source.squeak.org 07 Apr '21

07 Apr '21

A new version of ShoutCore was added to project The Inbox: http://source.squeak.org/inbox/ShoutCore-ct.85.mcz ==================== Summary ==================== Name: ShoutCore-ct.85 Author: ct Time: 7 April 2021, 5:21:00.504598 pm UUID: 555b2e6b-ef80-e842-85ee-aa1276ccddbf Ancestors: ShoutCore-eem.84 Fixes a present bug that occured when styling a method that contains multiple unary selectors after a cascade. See ShoutTests-ct.34. =============== Diff against ShoutCore-eem.84 =============== Item was changed: ----- Method: SHParserST80>>parseCascade (in category 'parse') ----- parseCascade self parseKeyword. [currentTokenFirst == $;] whileTrue: [ + | oldRangesLength | self scanPast: #cascadeSeparator. + oldRangesLength := ranges size. + self parseKeyword. + (ranges size > (oldRangesLength + 1) + and: [(ranges at: oldRangesLength + 1) type = #unary]) + ifTrue: [ + ranges removeLast: ranges size - (oldRangesLength + 1). + self fail ": 'Nothing more expected'"]]! - self parseKeyword]!

1 0

SqueakMap packages
by Benoit St-Jean 07 Apr '21

07 Apr '21

How can I show all available packages in the SqueakMap Package Loader (Menu Apps->>SqueakMap Catalog)? Right now, even after the update, it only shows 15 packages out of 817 available. P.S. Squeak 5.3 64-bit, Windows 10.

5 5

Jump to page: