Packages May 2017

packages@lists.squeakfoundation.org

1 participants
36 discussions

The Trunk: KernelTests-eem.329.mcz
by commits＠source.squeak.org 31 May '17

31 May '17

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.329.mcz ==================== Summary ==================== Name: KernelTests-eem.329 Author: eem Time: 31 May 2017, 10:43:19.068997 am UUID: 62f89132-ccc4-4461-8c04-596678fe9686 Ancestors: KernelTests-ul.328 Kernel tests harvested from Terf. =============== Diff against KernelTests-ul.328 =============== Item was added: + ----- Method: NumberParsingTest>>testFloatReadWithImplicitLeadingZero (in category 'tests - Float') ----- + testFloatReadWithImplicitLeadingZero + "Test support for implicit leading zeroes when reading numbers from Strings." + self should: [-0.22 = '-.22' asNumber]. + self should: [0.22 = '.22' asNumber]. + ! Item was added: + ----- Method: SemaphoreTest>>testSemaAfterCriticalWait (in category 'testing') ----- + testSemaAfterCriticalWait "self run: #testSemaAfterCriticalWait" + "This tests whether a semaphore that has just left the wait in Semaphore>>critical: + leaves it with signaling the associated semaphore." + | s p | + s := Semaphore new. + p := [s critical:[]] forkAt: Processor activePriority-1. + "wait until p entered the critical section" + [p suspendingList == s] whileFalse:[(Delay forMilliseconds: 10) wait]. + "Now that p entered it, signal the semaphore. p now 'owns' the semaphore + but since we are running at higher priority than p it will not get to do + anything." + s signal. + p terminate. + self assert: ((s instVarNamed: #excessSignals) = 1)! Item was added: + ----- Method: SemaphoreTest>>testSemaInCriticalWait (in category 'testing') ----- + testSemaInCriticalWait "self run: #testSemaInCriticalWait" + "This tests whether a semaphore that has entered the wait in Semaphore>>critical: + leaves it without signaling the associated semaphore." + | s p | + s := Semaphore new. + p := [s critical:[]] fork. + Processor yield. + self assert:(p suspendingList == s). + p terminate. + self assert:((s instVarNamed: #excessSignals) = 0)!

1 0

The Trunk: Kernel-eem.1106.mcz
by commits＠source.squeak.org 27 May '17

27 May '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1106.mcz ==================== Summary ==================== Name: Kernel-eem.1106 Author: eem Time: 26 May 2017, 10:46:24.565361 pm UUID: 50900779-04ef-43b2-8b95-6db258fbc8fe Ancestors: Kernel-pre.1105 Several small fixes harvested from Terf. Comment behavior>>startUp:. Make sure that missing method chunks are still output as chunks. Fix EventSensor>>flushNonKbdEvents to do just that and not flush key changes. Provide an accessor for Float's Sqrt2 class var. Guard against setting the comment of a metaclass. Fix the comments of the 64-bit mixed integer primitives. Nuke an unused variable in highestPriority: and guard against a possible bounds violation. Fix the comment in SmallInteger>>bitAnd:. =============== Diff against Kernel-pre.1105 =============== Item was changed: ----- Method: Behavior>>startUp: (in category 'system startup') ----- startUp: resuming + "This message is sent to registered classes when the system is coming up. + resuming will be true if a snapshot is being resumed. resuming will be false + if the system is merely reinitializing after writing a snapshot." - "This message is sent to registered classes when the system is coming up." ^self startUp! Item was changed: ----- Method: Categorizer>>printString (in category 'printing') ----- printString + ^self fullPrintString! - ^ String streamContents: [ :stream | self printOn: stream ].! Item was changed: ----- Method: ClassDescription>>copy:from:classified: (in category 'copying') ----- copy: sel from: class classified: cat "Install the method associated with the first arugment, sel, a message selector, found in the method dictionary of the second argument, class, as one of the receiver's methods. Classify the message under the third argument, cat." - | code category | "Useful when modifying an existing class" + (class sourceCodeAt: sel ifAbsent: []) ifNotNil: + [:code| | method category | + method := class compiledMethodAt: sel. + category := cat == nil + ifTrue: [class organization categoryOfElement: sel] + ifFalse: [cat]. + ((self methodDict includesKey: sel) + and: [code asString ~= (self sourceCodeAt: sel) asString]) ifTrue: + [self error: self name , ' ' , sel , ' will be redefined if you proceed.']. + self compile: code classified: category withStamp: method timeStamp notifying: nil]! - code := class sourceMethodAt: sel. - code == nil - ifFalse: - [cat == nil - ifTrue: [category := class organization categoryOfElement: sel] - ifFalse: [category := cat]. - (self methodDict includesKey: sel) - ifTrue: [code asString = (self sourceMethodAt: sel) asString - ifFalse: [self error: self name - , ' ' - , sel - , ' will be redefined if you proceed.']]. - self compile: code classified: category]! Item was changed: ----- Method: ClassDescription>>printMethodChunk:withPreamble:on:moveSource:toFile: (in category 'fileIn/Out') ----- printMethodChunk: selector withPreamble: doPreamble on: outStream moveSource: moveSource toFile: fileIndex "Copy the source code for the method associated with selector onto the fileStream. If moveSource true, then also set the source code pointer of the method." | preamble method oldPos newPos sourceFile endPos | doPreamble ifTrue: [preamble := self name , ' methodsFor: ' , (self organization categoryOfElement: selector) asString printString] ifFalse: [preamble := '']. method := self methodDict at: selector ifAbsent: [outStream nextPutAll: selector; cr. + outStream tab; nextChunkPut: '** ERROR!! THIS SCRIPT IS MISSING ** ' translated; cr; cr. - outStream tab; nextPutAll: '** ERROR!! THIS SCRIPT IS MISSING ** ' translated; cr; cr. outStream nextPutAll: ' '. ^ outStream]. ((method fileIndex = 0 or: [(SourceFiles at: method fileIndex) == nil]) or: [(oldPos := method filePosition) = 0]) ifTrue: ["The source code is not accessible. We must decompile..." preamble size > 0 ifTrue: [outStream cr; nextPut: $!!; nextChunkPut: preamble; cr]. outStream nextChunkPut: method decompileString] ifFalse: [sourceFile := SourceFiles at: method fileIndex. preamble size > 0 ifTrue: "Copy the preamble" [outStream copyPreamble: preamble from: sourceFile at: oldPos] ifFalse: [sourceFile position: oldPos]. "Copy the method chunk" newPos := outStream position. outStream copyMethodChunkFrom: sourceFile. sourceFile skipSeparators. "The following chunk may have ]style[" sourceFile peek == $] ifTrue: [ outStream cr; copyMethodChunkFrom: sourceFile]. moveSource ifTrue: "Set the new method source pointer" [endPos := outStream position. method checkOKToAdd: endPos - newPos at: newPos. method setSourcePosition: newPos inFile: fileIndex]]. preamble size > 0 ifTrue: [outStream nextChunkPut: ' ']. ^ outStream cr! Item was added: + ----- Method: ClassOrganizer>>classComment: (in category 'accessing') ----- + classComment: aString + "Guards against setting the comment in a metaclass which is invalid" + subject isMeta ifTrue:[^self error: 'Cannot set metaclass comments']. + ^super classComment: aString! Item was added: + ----- Method: ClassOrganizer>>classComment:stamp: (in category 'accessing') ----- + classComment: aString stamp: aStamp + "Guards against setting the comment in a metaclass which is invalid" + subject isMeta ifTrue:[^self error: 'Cannot set metaclass comments']. + ^super classComment: aString stamp: aStamp! Item was changed: ----- Method: EventSensor>>flushNonKbdEvents (in category 'private') ----- flushNonKbdEvents + "We do NOT use 'isKeybdEvent: ' here, + as that would have us flush key press-release events, + which is not appropriate when flushing non-keyboard events." + self eventQueue ifNotNil: + [:queue | + queue flushAllSuchThat: [:buf | (self isAnyKbdEvent: buf) not]]! - - self eventQueue ifNotNil: [:queue | - queue flushAllSuchThat: [:buf | (self isKbdEvent: buf) not]].! Item was added: + ----- Method: EventSensor>>isAnyKbdEvent: (in category 'private') ----- + isAnyKbdEvent: buf + ^(buf at: 1) = EventTypeKeyboard! Item was added: + ----- Method: Float class>>sqrt2 (in category 'constants') ----- + sqrt2 + + ^ Sqrt2! Item was changed: ----- Method: LargePositiveInteger>>* (in category 'arithmetic') ----- * anInteger "Primitive. Multiply the receiver by the argument and answer with an + Integer result. Fail if either the argument or the result is not in 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - Integer result. Fail if either the argument or the result is not a - SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See - Object documentation whatIsAPrimitive. " <primitive: 29> ^super * anInteger! Item was changed: ----- Method: LargePositiveInteger>>+ (in category 'arithmetic') ----- + anInteger "Primitive. Add the receiver to the argument and answer with an + Integer result. Fail if either the argument or the result is not in 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - Integer result. Fail if either the argument or the result is not a - SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See - Object documentation whatIsAPrimitive." <primitive: 21> ^super + anInteger! Item was changed: ----- Method: LargePositiveInteger>>- (in category 'arithmetic') ----- - anInteger "Primitive. Subtract the argument from the receiver and answer with an + Integer result. Fail if either the argument or the result is not in 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - Integer result. Fail if either the argument or the result is not a - SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See - Object documentation whatIsAPrimitive." <primitive: 22> ^super - anInteger! Item was changed: ----- Method: LargePositiveInteger>>/ (in category 'arithmetic') ----- / anInteger "Primitive. Divide the receiver by the argument and answer with the + result if the division is exact. Fail if the result is not a whole integer. + Fail if the argument is 0. Fail if either the argument or the result is not in 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - result if the division is exact. Fail if the result is not a whole integer. - Fail if the argument is 0. Fail if either the argument or the result is not - a SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See - Object documentation whatIsAPrimitive. " <primitive: 30> ^super / anInteger! Item was changed: ----- Method: LargePositiveInteger>>// (in category 'arithmetic') ----- // anInteger "Primitive. Divide the receiver by the argument and return the result. + Round the result down towards negative infinity to make it a whole + integer. Fail if the argument is 0. Fail if either the argument or the + result is not in 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - Round the result down towards negative infinity to make it a whole - integer. Fail if the argument is 0. Fail if either the argument or the - result is not a SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). - Optional. See Object documentation whatIsAPrimitive. " <primitive: 32> ^super // anInteger! Item was changed: ----- Method: LargePositiveInteger>>< (in category 'comparing') ----- < anInteger + "Primitive. Compare the receiver with the argument and answer if the + receiver is less than the argument. Fail if either the argument or the + result is not in 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - "Primitive. Compare the receiver with the argument and answer true if - the receiver is less than the argument. Otherwise answer false. Fail if the - argument is not a SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). - Optional. See Object documentation whatIsAPrimitive." <primitive: 23> ^super < anInteger! Item was changed: ----- Method: LargePositiveInteger>><= (in category 'comparing') ----- <= anInteger + "Primitive. Compare the receiver with the argument and answer if the + receiver is less than or equal to the argument. Fail if the argument is + not a SmallInteger or a LargePositiveInteger in the 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - "Primitive. Compare the receiver with the argument and answer true if - the receiver is less than or equal to the argument. Otherwise answer false. - Fail if the argument is not a SmallInteger or a LargePositiveInteger less - than 2-to-the-30th (1073741824). Optional. See Object documentation whatIsAPrimitive." <primitive: 25> ^super <= anInteger! Item was changed: ----- Method: LargePositiveInteger>>> (in category 'comparing') ----- > anInteger + "Primitive. Compare the receiver with the argument and answer if the + receiver is greater than the argument. Fail if the argument is + not a SmallInteger or a LargePositiveInteger in the 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - "Primitive. Compare the receiver with the argument and answer true if - the receiver is greater than the argument. Otherwise answer false. Fail if - the argument is not a SmallInteger or a LargePositiveInteger less than - 2-to-the-30th (1073741824). Optional. See Object documentation whatIsAPrimitive." <primitive: 24> ^super > anInteger! Item was changed: ----- Method: LargePositiveInteger>>>= (in category 'comparing') ----- >= anInteger + "Primitive. Compare the receiver with the argument and answer if the + receiver is greater than or equal to the argument. Fail if the argument + is not a SmallInteger or a LargePositiveInteger in the 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - "Primitive. Compare the receiver with the argument and answer true if - the receiver is greater than or equal to the argument. Otherwise answer - false. Fail if the argument is not a SmallInteger or a LargePositiveInteger - less than 2-to-the-30th (1073741824). Optional. See Object documentation whatIsAPrimitive." <primitive: 26> ^super >= anInteger! Item was changed: ----- Method: LargePositiveInteger>>\\ (in category 'arithmetic') ----- \\ aNumber "Primitive. Take the receiver modulo the argument. The result is the + remainder rounded towards negative infinity, of the receiver divided + by the argument. Fail if the argument is 0. Fail if either the argument + or the result is not a SmallInteger or a LargePositiveInteger in the 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - remainder rounded towards negative infinity, of the receiver divided - by the argument. Fail if the argument is 0. Fail if either the argument - or the result is not a SmallInteger or a LargePositiveInteger less than - 2-to-the-30th (1073741824). Optional. See Object documentation whatIsAPrimitive." <primitive: 31> aNumber isInteger ifTrue: [| neg qr q r | neg := self negative == aNumber negative == false. qr := self digitDiv: aNumber neg: neg. q := qr first normalize. r := qr last normalize. ^(q negative ifTrue: [r isZero not] ifFalse: [q isZero and: [neg]]) ifTrue: [r + aNumber] ifFalse: [r]]. ^super \\ aNumber ! Item was changed: ----- Method: LargePositiveInteger>>quo: (in category 'arithmetic') ----- quo: anInteger + "Primitive. Divide the receiver by the argument and answer the result. + Round the result down towards zero to make it a whole integer. Fail if + the argument is 0. Fail if either the argument or the result is not a + SmallInteger or a LargePositiveInteger in the 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - "Primitive. Divide the receiver by the argument and return the result. - Round the result down towards zero to make it a whole integer. Fail if - the argument is 0. Fail if either the argument or the result is not a - SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See - Object documentation whatIsAPrimitive." <primitive: 33> ^super quo: anInteger! Item was changed: ----- Method: LargePositiveInteger>>rem: (in category 'arithmetic') ----- rem: aNumber + "Remainder defined in terms of quo:. See super rem:. Fail if + the argument is 0. Fail if either the argument or the result is not a + SmallInteger or a LargePositiveInteger in the 64 bit range. + Optional. See Object documentation whatIsAPrimitive." - "Remainder defined in terms of quo:. See super rem:. - This is defined only to speed up case of large integers." <primitive: 20> aNumber isInteger ifTrue: [| ng rem | ng := self negative == aNumber negative == false. rem := (self digitDiv: aNumber neg: ng) at: 2. ^ rem normalize]. ^super rem: aNumber! Item was added: + ----- Method: LargePositiveInteger>>~= (in category 'comparing') ----- + ~= anInteger + "Primitive. Compare the receiver with the argument and answer if the + receiver is equal to the argument. Fail if the receiver or argument is not + an integer in the 64 bit range. + Optional. See Object documentation whatIsAPrimitive." + + <primitive: 28> + ^super ~= anInteger! Item was changed: ----- Method: ProcessorScheduler>>highestPriority: (in category 'accessing') ----- highestPriority: newHighestPriority "Change the number of priority levels currently available for use." + | newProcessLists | - | continue newProcessLists | (quiescentProcessLists size > newHighestPriority and: [self anyProcessesAbove: newHighestPriority]) ifTrue: [self error: 'There are processes with priority higher than ' ,newHighestPriority printString]. newProcessLists := Array new: newHighestPriority. 1 to: ((quiescentProcessLists size) min: (newProcessLists size)) do: [:priority | newProcessLists at: priority put: (quiescentProcessLists at: priority)]. + (quiescentProcessLists size max: 1) to: newProcessLists size do: - quiescentProcessLists size to: newProcessLists size do: [:priority | newProcessLists at: priority put: LinkedList new]. quiescentProcessLists := newProcessLists! Item was changed: ----- Method: SmallInteger>>bitAnd: (in category 'bit manipulation') ----- bitAnd: arg + "Primitive. Answer an Integer whose bits are the logical AND of the + receiver's bits and those of the argument, arg. + Numbers are interpreted as having 2's-complement representation. + Essential. See Object documentation whatIsAPrimitive." - "Primitive. Answer an Integer whose bits are the logical OR of the - receiver's bits and those of the argument, arg. - Numbers are interpreted as having 2's-complement representation. - Essential. See Object documentation whatIsAPrimitive." <primitive: 14> + self >= 0 ifTrue: [^arg bitAnd: self]. + ^arg < 0 - self >= 0 ifTrue: [^ arg bitAnd: self]. - ^ arg < 0 ifTrue: [(arg bitInvert bitOr: self bitInvert) bitInvert] ifFalse: [arg bitClear: self bitInvert]!

1 0

The Trunk: Graphics-eem.375.mcz
by commits＠source.squeak.org 25 May '17

25 May '17

Eliot Miranda uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-eem.375.mcz ==================== Summary ==================== Name: Graphics-eem.375 Author: eem Time: 25 May 2017, 3:36:53.966637 pm UUID: 065e211a-d9da-4f21-9122-3467568da9e6 Ancestors: Graphics-nice.374 Fix a slip in warpBitsSmoothing:sourceMap: and implement a trick in clipRange. Harvested from Terf. =============== Diff against Graphics-nice.374 =============== Item was changed: ----- Method: BitBlt>>clipRange (in category 'private') ----- clipRange "clip and adjust source origin and extent appropriately" "first in x" | sx sy dx dy bbW bbH | "fill in the lazy state if needed" destX ifNil:[destX := 0]. destY ifNil:[destY := 0]. width ifNil:[width := destForm width]. height ifNil:[height := destForm height]. sourceX ifNil:[sourceX := 0]. sourceY ifNil:[sourceY := 0]. clipX ifNil:[clipX := 0]. clipY ifNil:[clipY := 0]. clipWidth ifNil:[clipWidth := destForm width]. clipHeight ifNil:[clipHeight := destForm height]. destX >= clipX ifTrue: [sx := sourceX. dx := destX. bbW := width] ifFalse: [sx := sourceX + (clipX - destX). bbW := width - (clipX - destX). dx := clipX]. (dx + bbW) > (clipX + clipWidth) ifTrue: [bbW := bbW - ((dx + bbW) - (clipX + clipWidth))]. "then in y" destY >= clipY ifTrue: [sy := sourceY. dy := destY. bbH := height] ifFalse: [sy := sourceY + clipY - destY. bbH := height - (clipY - destY). dy := clipY]. (dy + bbH) > (clipY + clipHeight) ifTrue: [bbH := bbH - ((dy + bbH) - (clipY + clipHeight))]. sourceForm ifNotNil:[ sx < 0 ifTrue: [dx := dx - sx. bbW := bbW + sx. sx := 0]. sx + bbW > sourceForm width ifTrue: [bbW := bbW - (sx + bbW - sourceForm width)]. sy < 0 ifTrue: [dy := dy - sy. bbH := bbH + sy. sy := 0]. sy + bbH > sourceForm height ifTrue: [bbH := bbH - (sy + bbH - sourceForm height)]. ]. (bbW <= 0 or:[bbH <= 0]) ifTrue:[ + sourceX := sourceY := destX := destY := clipX := clipY := width := height := clipWidth := clipHeight := 0. - sourceX := sourceY := destX := destY := clipX := clipY := width := height := 0. ^true]. (sx = sourceX and:[sy = sourceY and:[dx = destX and:[dy = destY and:[bbW = width and:[bbH = height]]]]]) ifTrue:[^false]. sourceX := sx. sourceY := sy. destX := dx. destY := dy. width := bbW. height := bbH. ^true! Item was changed: ----- Method: WarpBlt>>warpBitsSmoothing:sourceMap: (in category 'primitives') ----- warpBitsSmoothing: n sourceMap: sourceMap | deltaP12 deltaP43 pA pB deltaPAB sp fixedPtOne poker pix nSteps | <primitive: 'primitiveWarpBits' module: 'BitBltPlugin' error: ec> "Check for compressed source, destination or halftone forms" "Check for object movement during a surface callback, compressed source, destination or halftone forms. Simply retry." (ec == #'object moved' or: [(sourceForm isForm and: [sourceForm unhibernate]) or: [(destForm isForm and: [destForm unhibernate]) or: [halftoneForm isForm and: [halftoneForm unhibernate]]]]) ifTrue: [^self warpBitsSmoothing: n sourceMap: sourceMap]. (width < 1) | (height < 1) ifTrue: [^ self]. fixedPtOne := 16384. "1.0 in fixed-pt representation" n > 1 ifTrue: [(destForm depth < 16 and: [colorMap == nil]) ifTrue: ["color map is required to smooth non-RGB dest" + ^ self primitiveFailed]. - ^ self primitiveFail]. pix := Array new: n*n]. nSteps := height-1 max: 1. deltaP12 := (self deltaFrom: p1x to: p2x nSteps: nSteps) @ (self deltaFrom: p1y to: p2y nSteps: nSteps). pA := (self startFrom: p1x to: p2x offset: nSteps*deltaP12 x) @ (self startFrom: p1y to: p2y offset: nSteps*deltaP12 y). deltaP43 := (self deltaFrom: p4x to: p3x nSteps: nSteps) @ (self deltaFrom: p4y to: p3y nSteps: nSteps). pB := (self startFrom: p4x to: p3x offset: nSteps*deltaP43 x) @ (self startFrom: p4y to: p3y offset: nSteps*deltaP43 y). poker := BitBlt bitPokerToForm: destForm. poker clipRect: self clipRect. nSteps := width-1 max: 1. destY to: destY+height-1 do: [:y | deltaPAB := (self deltaFrom: pA x to: pB x nSteps: nSteps) @ (self deltaFrom: pA y to: pB y nSteps: nSteps). sp := (self startFrom: pA x to: pB x offset: nSteps*deltaPAB x) @ (self startFrom: pA y to: pB y offset: nSteps*deltaPAB x). destX to: destX+width-1 do: [:x | n = 1 ifTrue: [poker pixelAt: x@y put: (sourceForm pixelValueAt: sp // fixedPtOne asPoint)] ifFalse: [0 to: n-1 do: [:dx | 0 to: n-1 do: [:dy | pix at: dx*n+dy+1 put: (sourceForm pixelValueAt: sp + (deltaPAB*dx//n) + (deltaP12*dy//n) // fixedPtOne asPoint)]]. poker pixelAt: x@y put: (self mixPix: pix sourceMap: sourceMap destMap: colorMap)]. sp := sp + deltaPAB]. pA := pA + deltaP12. pB := pB + deltaP43]!

1 0

The Trunk: Files-eem.171.mcz
by commits＠source.squeak.org 25 May '17

25 May '17

Eliot Miranda uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-eem.171.mcz ==================== Summary ==================== Name: Files-eem.171 Author: eem Time: 25 May 2017, 3:35:29.716969 pm UUID: dbf98ee2-b593-4ede-b2de-0a188c125144 Ancestors: Files-nice.170 Fix case sensitivity in nextNameFor:extension:. Harvested from Terf. =============== Diff against Files-nice.170 =============== Item was changed: ----- Method: FileDirectory>>nextNameFor:extension: (in category 'file name utilities') ----- nextNameFor: baseFileName extension: extension "Assumes a file name includes a version number encoded as '.' followed by digits preceding the file extension. Increment the version number and answer the new file name. If a version number is not found, set the version to 1 and answer a new file name" | files splits version | files := self fileNamesMatching: (baseFileName,'*', self class dot, extension). splits := files collect: [:file | self splitNameVersionExtensionFor: file] + thenSelect: + [:split | + self isCaseSensitive + ifTrue:[(split at: 1) = baseFileName] + ifFalse:[(split at: 1) match: baseFileName]]. + version := splits isEmpty + ifTrue: [1] + ifFalse: [((splits detectMax: [ :each | each at: 2 ]) at: 2) + 1]. - thenSelect: [:split | (split at: 1) = baseFileName]. - splits isEmpty - ifTrue: [version := 1] - ifFalse: [version := ((splits detectMax: [ :each | each at: 2 ]) at: 2) + 1]. ^ (baseFileName, '.', version asString, self class dot, extension) asFileName!

1 0

The Trunk: EToys-eem.299.mcz
by commits＠source.squeak.org 25 May '17

25 May '17

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.299.mcz ==================== Summary ==================== Name: EToys-eem.299 Author: eem Time: 25 May 2017, 3:33:43.83519 pm UUID: df231eba-abab-41c8-b8ad-3234acf71771 Ancestors: EToys-ul.298 forgetDoIts is no longer necessary. =============== Diff against EToys-ul.298 =============== Item was changed: ----- Method: DialectParser class>>test (in category 'as yet unclassified') ----- test "DialectParser test" "PrettyPrints the source for every method in the system in the alternative syntax, and then compiles that source and verifies that it generates identical code. No changes are actually made to the system. At the time of this writing, only two methods caused complaints (reported in Transcript and displayed in browse window after running): BalloonEngineSimulation circleCosTable and BalloonEngineSimulation circleSinTable. These are not errors, but merely a case of Floats embedded in literal arrays, and thus not specially checked for roundoff errors. Note that if an error or interruption occurs during execution of this method, the alternativeSyntax preference will be left on. NOTE: Some methods may not compare properly until the system has been recompiled once. Do this by executing... Smalltalk recompileAllFrom: 'AARDVAARK'. " | newCodeString methodNode oldMethod newMethod badOnes n heading | Preferences enable: #printAlternateSyntax. badOnes := OrderedCollection new. Transcript clear. - Smalltalk forgetDoIts. 'Formatting and recompiling all classes...' displayProgressAt: Sensor cursorPoint from: 0 to: CompiledMethod instanceCount during: [:bar | n := 0. Smalltalk allClassesDo: "{MethodNode} do:" "<- to check one class" [:nonMeta | "Transcript cr; show: nonMeta name." {nonMeta. nonMeta class} do: [:cls | cls selectors do: [:selector | (n := n+1) \\ 100 = 0 ifTrue: [bar value: n]. newCodeString := (cls compilerClass new) format: (cls sourceCodeAt: selector) in: cls notifying: nil decorated: Preferences colorWhenPrettyPrinting. heading := cls organization categoryOfElement: selector. methodNode := cls compilerClass new compile: newCodeString in: cls notifying: (SyntaxError new category: heading) ifFail: []. newMethod := methodNode generate: CompiledMethodTrailer empty. oldMethod := cls compiledMethodAt: selector. "Transcript cr; show: cls name , ' ' , selector." oldMethod = newMethod ifFalse: [Transcript cr; show: '***' , cls name , ' ' , selector. oldMethod size = newMethod size ifFalse: [Transcript show: ' difft size']. oldMethod header = newMethod header ifFalse: [Transcript show: ' difft header']. oldMethod literals = newMethod literals ifFalse: [Transcript show: ' difft literals']. Transcript endEntry. badOnes add: cls name , ' ' , selector]]]]. ]. self systemNavigation browseMessageList: badOnes sort name: 'Formatter Discrepancies'. Preferences disable: #printAlternateSyntax. ! Item was changed: ----- Method: SystemDictionary>>abandonTempNames (in category '*Etoys-Squeakland-shrinking') ----- abandonTempNames "Replaces every method by a copy with no source pointer or encoded temp names." "Smalltalk abandonTempNames" | oldMethods newMethods n m | + self garbageCollect. - self forgetDoIts; garbageCollect. oldMethods := OrderedCollection new. newMethods := OrderedCollection new. n := 0. 'Removing temp names to save space...' displayProgressAt: Sensor cursorPoint from: 0 to: CompiledMethod instanceCount during: [:bar | self systemNavigation allBehaviorsDo: [:cl | cl selectors do: [:sel | bar value: (n := n + 1). m := cl compiledMethodAt: sel. oldMethods addLast: m. newMethods addLast: (m copyWithTrailerBytes: #(0 ))]]]. oldMethods asArray elementsExchangeIdentityWith: newMethods asArray. SmalltalkImage current closeSourceFiles. self flag: #shouldUseAEnsureBlockToBeSureThatTheFileIsClosed. "sd: 17 April 2003" Preferences disable: #warnIfNoChangesFile. Preferences disable: #warnIfNoSourcesFile!

1 0

The Trunk: Compiler-eem.356.mcz
by commits＠source.squeak.org 25 May '17

25 May '17

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.356.mcz ==================== Summary ==================== Name: Compiler-eem.356 Author: eem Time: 25 May 2017, 3:32:16.048882 pm UUID: fa9619c3-9b45-4657-a9ff-4ad7fa610149 Ancestors: Compiler-nice.355 Fix a comment speeling rorre. Harvested from Terf. =============== Diff against Compiler-nice.355 =============== Item was changed: VariableNode subclass: #FieldNode instanceVariableNames: 'fieldDef rcvrNode readNode writeNode' classVariableNames: '' poolDictionaries: '' category: 'Compiler-ParseNodes'! + !FieldNode commentStamp: 'eem 5/24/2017 10:26' prior: 0! + FieldNode handles field access in Tweak, e.g. self fieldName := foo => self fieldName: foo.! - !FieldNode commentStamp: '<historical>' prior: 0! - FileNode handles field access in Tweak, e.g. self fieldName := foo => self fieldName: foo.!

1 0

The Trunk: Collections-eem.755.mcz
by commits＠source.squeak.org 25 May '17

25 May '17

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.755.mcz ==================== Summary ==================== Name: Collections-eem.755 Author: eem Time: 25 May 2017, 3:30:29.925042 pm UUID: b20639f6-1b01-45b5-8311-6abe8fad12c7 Ancestors: Collections-nice.754 Fix withoutTrailingDigits for e.g. 'Lucida Grande 15' withoutTrailingDigits. Harvested from Terf. =============== Diff against Collections-nice.754 =============== Item was changed: ----- Method: String>>withoutTrailingDigits (in category 'converting') ----- withoutTrailingDigits "Answer the portion of the receiver that precedes any trailing series of digits and blanks. If the receiver consists entirely of digits and blanks, return an empty string" + | i | + i := self size. + [i > 0] whileTrue: [ + ((self at: i) isDigit or: [ (self at: i) = $ ]) ifFalse: [ + ^ self copyFrom: 1 to: i + ]. + i := i - 1. + ]. + ^ '' + - | firstDigit | - firstDigit := (self findFirst: [:m | m isDigit or: [m = $ ]]). - ^ firstDigit > 0 - ifTrue: - [self copyFrom: 1 to: firstDigit-1] - ifFalse: - [self] " 'Whoopie234' withoutTrailingDigits + 'Lucida Grande 15' withoutTrailingDigits ' 4321 BlastOff!!' withoutLeadingDigits 'wimpy' withoutLeadingDigits ' 89Ten ' withoutLeadingDigits '78 92' withoutLeadingDigits " !

1 0

The Trunk: Monticello-topa.669.mcz
by commits＠source.squeak.org 23 May '17

23 May '17

Tobias Pape uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-topa.669.mcz ==================== Summary ==================== Name: Monticello-topa.669 Author: topa Time: 23 May 2017, 6:46:20.52825 pm UUID: 507516b6-b661-413d-84d2-4dce5c1a3bf0 Ancestors: Monticello-bf.668, Monticello-jr.662 Merge =============== Diff against Monticello-bf.668 =============== Item was changed: ----- Method: FilePackage>>classDefinition:with: (in category '*monticello') ----- classDefinition: string with: chgRec | tokens theClass | - - self flag: #traits. tokens := Scanner new scanTokens: string. "tokens size = 11 ifFalse:[^doIts add: chgRec]." theClass := self getClass: (tokens at: 3). theClass definition: string. classOrder add: theClass.! Item was added: + ----- Method: FilePackage>>traitDefinition:with: (in category '*monticello') ----- + traitDefinition: string with: chgRec + | tokens theTrait | + tokens := Scanner new scanTokens: string. + theTrait := self getTrait: (tokens at: 3). + theTrait definition: string. + classOrder add: theTrait.! Item was changed: ----- Method: MCStReader>>loadDefinitions (in category 'evaluating') ----- loadDefinitions | filePackage | filePackage := FilePackage new fullName: 'ReadStream'; fileInFrom: self readStream. definitions := OrderedCollection new. filePackage classes do: [:pseudoClass | pseudoClass hasDefinition ifTrue: [definitions add: + (pseudoClass asMCDefinitionBy: self)]. - (self classDefinitionFrom: pseudoClass)]. definitions addAll: (self methodDefinitionsFor: pseudoClass). definitions addAll: (self methodDefinitionsFor: pseudoClass metaClass)]. filePackage doIts do: [:ea | self addDefinitionsFromDoit: ea string]. ! Item was added: + ----- Method: MCStReader>>traitDefinitionFrom: (in category 'as yet unclassified') ----- + traitDefinitionFrom: aPseudoTrait + | tokens traitCompositionString lastIndex | + tokens := Scanner new scanTokens: aPseudoTrait definition. + traitCompositionString := ((ReadStream on: aPseudoTrait definition) + match: 'uses:'; + upToAll: 'category:') withBlanksTrimmed. + traitCompositionString isEmpty ifTrue: [traitCompositionString := '{}']. + lastIndex := tokens size. + ^ MCTraitDefinition + name: (tokens at: 3) + traitComposition: traitCompositionString + category: (tokens at: lastIndex) + comment: (self commentFor: aPseudoTrait) + commentStamp: (self commentStampFor: aPseudoTrait)! Item was added: + ----- Method: PseudoClass>>asMCDefinitionBy: (in category '*monticello') ----- + asMCDefinitionBy: aMCReader + ^ aMCReader classDefinitionFrom: self! Item was added: + ----- Method: PseudoTrait>>asMCDefinitionBy: (in category '*monticello') ----- + asMCDefinitionBy: aMCReader + ^ aMCReader traitDefinitionFrom: self!

1 0

The Trunk: System-topa.950.mcz
by commits＠source.squeak.org 20 May '17

20 May '17

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-topa.950.mcz ==================== Summary ==================== Name: System-topa.950 Author: topa Time: 20 May 2017, 10:50:05.027234 pm UUID: 6bdeb556-5250-402b-af40-c917ed15f810 Ancestors: System-tpr.949, System-jr.919 Merge =============== Diff against System-tpr.949 =============== Item was changed: ----- Method: FilePackage>>doIt: (in category 'change record types') ----- doIt: chgRec | string | string := chgRec string. ('*ubclass:*instanceVariableNames:*classVariableNames:*poolDictionaries:*category:*' match: string) ifTrue:[^self classDefinition: string with: chgRec]. + ('*named:*uses:*category:*' + match: string) ifTrue:["Trait" ^ self traitDefinition: string with: chgRec]. ('* class*instanceVariableNames:*' match: string) ifTrue:[^self metaClassDefinition: string with: chgRec]. ('* removeSelector: *' match: string) ifTrue:[^self removedMethod: string with: chgRec]. ('* comment:*' match: string) ifTrue:[^self msgClassComment: string with: chgRec]. ('* initialize' match: string) ifTrue:[^self]. "Initialization is done based on class>>initialize" ('''From *' match: string) ifTrue:[^self possibleSystemSource: chgRec]. doIts add: chgRec.! Item was added: + ----- Method: FilePackage>>getBehavior:factory: (in category 'private') ----- + getBehavior: name factory: pseudoBehaviorFactory + | pseudoBehavior | + (classes includesKey: name) ifTrue:[ + ^classes at: name. + ]. + pseudoBehavior := pseudoBehaviorFactory new. + pseudoBehavior name: name. + classes at: name put: pseudoBehavior. + ^pseudoBehavior.! Item was changed: ----- Method: FilePackage>>getClass: (in category 'private') ----- getClass: className + ^ self getBehavior: className factory: PseudoClass! - | pseudoClass | - (classes includesKey: className) ifTrue:[ - ^classes at: className. - ]. - pseudoClass := PseudoClass new. - pseudoClass name: className. - classes at: className put: pseudoClass. - ^pseudoClass.! Item was added: + ----- Method: FilePackage>>getTrait: (in category 'private') ----- + getTrait: traitName + ^ self getBehavior: traitName factory: PseudoTrait! Item was added: + PseudoClass subclass: #PseudoTrait + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-FilePackage'! + + !PseudoTrait commentStamp: 'jr 2/12/2017 15:50' prior: 0! + Like a PseudoClass, but standing in for a Trait. Works identically to PseudoClass otherwise.! Item was added: + ----- Method: PseudoTrait>>isTrait (in category 'testing') ----- + isTrait + ^ true!

1 0

The Trunk: System-jr.919.mcz
by commits＠source.squeak.org 20 May '17

20 May '17

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-jr.919.mcz ==================== Summary ==================== Name: System-jr.919 Author: jr Time: 12 February 2017, 4:10:59.703498 pm UUID: 95683f1a-e60c-fe4e-a86a-62cc5b00a151 Ancestors: System-cmm.918 add PseudoTrait and support for it in FilePackage main objective is to let Monticello read Trait comments from the st snapshot, which does not work when the trait definition is only treated as a doIt =============== Diff against System-cmm.918 =============== Item was changed: ----- Method: FilePackage>>doIt: (in category 'change record types') ----- doIt: chgRec | string | string := chgRec string. ('*ubclass:*instanceVariableNames:*classVariableNames:*poolDictionaries:*category:*' match: string) ifTrue:[^self classDefinition: string with: chgRec]. + ('*named:*uses:*category:*' + match: string) ifTrue:["Trait" ^ self traitDefinition: string with: chgRec]. ('* class*instanceVariableNames:*' match: string) ifTrue:[^self metaClassDefinition: string with: chgRec]. ('* removeSelector: *' match: string) ifTrue:[^self removedMethod: string with: chgRec]. ('* comment:*' match: string) ifTrue:[^self msgClassComment: string with: chgRec]. ('* initialize' match: string) ifTrue:[^self]. "Initialization is done based on class>>initialize" ('''From *' match: string) ifTrue:[^self possibleSystemSource: chgRec]. doIts add: chgRec.! Item was added: + ----- Method: FilePackage>>getBehavior:factory: (in category 'private') ----- + getBehavior: name factory: pseudoBehaviorFactory + | pseudoBehavior | + (classes includesKey: name) ifTrue:[ + ^classes at: name. + ]. + pseudoBehavior := pseudoBehaviorFactory new. + pseudoBehavior name: name. + classes at: name put: pseudoBehavior. + ^pseudoBehavior.! Item was changed: ----- Method: FilePackage>>getClass: (in category 'private') ----- getClass: className + ^ self getBehavior: className factory: PseudoClass! - | pseudoClass | - (classes includesKey: className) ifTrue:[ - ^classes at: className. - ]. - pseudoClass := PseudoClass new. - pseudoClass name: className. - classes at: className put: pseudoClass. - ^pseudoClass.! Item was added: + ----- Method: FilePackage>>getTrait: (in category 'private') ----- + getTrait: traitName + ^ self getBehavior: traitName factory: PseudoTrait! Item was added: + PseudoClass subclass: #PseudoTrait + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'System-FilePackage'! + + !PseudoTrait commentStamp: 'jr 2/12/2017 15:50' prior: 0! + Like a PseudoClass, but standing in for a Trait. Works identically to PseudoClass otherwise.! Item was added: + ----- Method: PseudoTrait>>isTrait (in category 'testing') ----- + isTrait + ^ true!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2017