Packages April 2021

packages@lists.squeakfoundation.org

1 participants
226 discussions

The Trunk: Regex-Tests-Core-ct.11.mcz
by commits＠source.squeak.org 10 Apr '21

10 Apr '21

Nicolas Cellier uploaded a new version of Regex-Tests-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Tests-Core-ct.11.mcz ==================== Summary ==================== Name: Regex-Tests-Core-ct.11 Author: ct Time: 8 September 2020, 5:06:20.887336 pm UUID: 6d0bb586-18f2-1045-ba9c-6b288515c123 Ancestors: Regex-Tests-Core-nice.10 Adds regression test for capturing-like behavior of lookaround expressions See also: http://forum.world.st/The-Inbox-Regex-Core-ct-56-mcz-tp5113011p5114971.html =============== Diff against Regex-Tests-Core-nice.10 =============== Item was added: + ----- Method: RxParserTest>>testLookaroundNullable (in category 'tests') ----- + testLookaroundNullable + + self should: ['(?<=a)?b' asRegex] raise: RegexSyntaxError.!

1 0

The Trunk: Regex-Core-ct.58.mcz
by commits＠source.squeak.org 10 Apr '21

10 Apr '21

Nicolas Cellier uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-ct.58.mcz ==================== Summary ==================== Name: Regex-Core-ct.58 Author: ct Time: 8 September 2020, 5:07:32.229336 pm UUID: 66a3d373-fd7a-fc41-ba4f-7233d60a5ec4 Ancestors: Regex-Core-ul.57 Fixes capturing-like behavior of lookaround expressions. Complements Regex-Tests-Core-ct.11. Thanks to Levente (ul) for the bug report! [1] [1] http://forum.world.st/The-Inbox-Regex-Core-ct-56-mcz-tp5113011p5114971.html =============== Diff against Regex-Core-ul.57 =============== Item was added: + ----- Method: RxsLookaround>>isNullable (in category 'testing') ----- + isNullable + + ^ true!

1 0

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

10 Apr '21

Nicolas Cellier uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ct.61.mcz ==================== Summary ==================== Name: NetworkTests-ct.61 Author: ct Time: 14 November 2020, 7:44:22.440394 pm UUID: d2c5f22e-ee31-3a4b-aaf9-eec14d08a7b8 Ancestors: NetworkTests-eem.60 Document bug in FileUrl >> #retrieveContents. A fix is arriving soon at the inbox! =============== Diff against NetworkTests-eem.60 =============== Item was added: + ----- Method: FileUrlTest>>testRetrieveContents (in category 'tests') ----- + testRetrieveContents + + | content name | + name := '{1}-{2}.txt' format: {self className. self selector}. + content := self identityHash asString. + + FileStream newFileNamed: name do: [:stream | + stream nextPutAll: content]. + [self assert: content equals: + (FileUrl absoluteFromFileNameOrUrlString: name) retrieveContents content] + ensure: [FileDirectory default deleteFileNamed: name].!

1 0

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 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

The Trunk: KernelTests-codefrau.395.mcz
by commits＠source.squeak.org 03 Apr '21

03 Apr '21

Vanessa Freudenberg uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-codefrau.395.mcz ==================== Summary ==================== Name: KernelTests-codefrau.395 Author: codefrau Time: 3 April 2021, 12:06:03.17026 pm UUID: 062e8b73-a62e-46ce-af80-0dbb34c2f8dc Ancestors: KernelTests-mt.394 Fix typo in CompiledMethodComparisonTest. =============== Diff against KernelTests-mt.394 =============== Item was changed: ----- Method: CompiledMethodComparisonTest>>testHash (in category 'tests') ----- testHash <timeout: 120> | ai | ai := CompiledMethod allInstances. "We assume here that if two CompiledMethods are equal then they have the same size and header." (ai groupBy: [ :method | { method size. method header } ]) values replace: [ :each | each asArray ]; do: [ :methods | 1 to: methods size do: [ :i | i to: methods size do: [ :j | (methods at: i) = (methods at: j) ifTrue: [ + self assert: (methods at: i) hash equals: (methods at: j) hash ] ] ] ] - self assert: (methods at: i) hash equals: (methods at: i) hash ] ] ] ] displayingProgress: 'Testing hashes'. self assert: (ai collect: [ :cm | cm hash ] as: Set) size * 2 >= ai asSet size!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2021