Packages May 2020

packages@lists.squeakfoundation.org

1 participants
97 discussions

The Trunk: Tools-mt.970.mcz
by commits＠source.squeak.org 27 May '20

27 May '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.970.mcz ==================== Summary ==================== Name: Tools-mt.970 Author: mt Time: 27 May 2020, 4:27:13.819043 pm UUID: dabe9e09-88fd-904b-9137-f3a206e7da6e Ancestors: Tools-mt.969 Adds a simple way to scan the .changes file for verions of methods that are not currently installed. So, you can recover such deletions even if you forgot about or deleted the corresponding change set. (Note that the code base in ChangeList is scary. I think I added this new feature in a way that matches the existing ones. But we should really clean up here.) =============== Diff against Tools-mt.969 =============== Item was added: + ----- Method: ChangeList class>>browseMethodVersions (in category 'public access') ----- + browseMethodVersions + + | changeList end changesFile filteredRecords | + changesFile := (SourceFiles at: 2) readOnlyCopy. + changesFile setConverterForCode. + end := changesFile size. + changeList := self new. + Cursor read showWhile: [ + [changeList scanFile: changesFile from: 0 to: end] + on: InvalidUTF8 do: [:err | err resume: '']]. + changesFile close. + + filteredRecords := Dictionary new. + changeList changeList + do: [:changeRecord | + changeRecord methodSelector ifNotNil: [:selector | + | class | + class := changeRecord methodClass. + "Only collect records that point to not-installed methods." + (class isNil or: [(class includesSelector: selector) not]) ifTrue: [ + (filteredRecords at: selector ifAbsentPut: [OrderedCollection new]) + add: changeRecord]]] + displayingProgress: [:changeRecord | 'Parsing source code at {1}...' format: {changeRecord position}]. + filteredRecords explore. "Open explorer to allow user to repeat the following step manually." + self browseMethodVersions: filteredRecords.! Item was added: + ----- Method: ChangeList class>>browseMethodVersions: (in category 'public access') ----- + browseMethodVersions: filteredRecords + + | changeList sortedKeys choice | + sortedKeys := filteredRecords keys sorted. + choice := Project uiManager chooseFrom: sortedKeys values: sortedKeys title: 'Recover method versions'. + choice ifNil: [^ self]. + + "Only ChangeList can handle the mix of (maybe non-existing) class references in records. For example, VersionsBrowser is not supported." + changeList := ChangeList new. + + (filteredRecords at: choice) do: [:changeRecord | + changeList + addItem: changeRecord + text: ('{1} {2}{3}{4} \{{5}\}' format: { + changeRecord stamp. + changeRecord methodClassName. + changeRecord isMetaClassChange + ifTrue: [' class '] ifFalse: [' ']. + choice. + changeRecord category})]. + changeList resetListSelections. + + self + open: changeList + name: 'All local versions for ', choice storeString + multiSelect: false! Item was added: + ----- Method: ChangeList>>resetListSelections (in category 'initialization-release') ----- + resetListSelections + + listSelections := Array new: list size withAll: false.! Item was changed: ----- Method: ChangeList>>scanFile:from:to: (in category 'scanning') ----- scanFile: aFile from: startPosition to: stopPosition file := aFile. changeList := OrderedCollection new. list := OrderedCollection new. listIndex := 0. file position: startPosition. 'Scanning ', aFile localName, '...' displayProgressFrom: startPosition to: stopPosition during: [:bar | | prevChar itemPosition item | [file position < stopPosition] whileTrue: [bar value: file position. [file atEnd not and: [file peek isSeparator]] whileTrue: [prevChar := file next]. (file peekFor: $!!) ifTrue: [(prevChar = Character cr or: [prevChar = Character lf]) ifTrue: [self scanCategory]] ifFalse: [itemPosition := file position. item := file nextChunk. file skipStyleChunk. item size > 0 ifTrue: [(item beginsWith: '----') ifTrue: [self addItem: (ChangeRecord new file: file position: itemPosition type: #misc) text: 'misc: ' , (item contractTo: 50)] ifFalse: [self addItem: (ChangeRecord new file: file position: itemPosition type: #doIt) text: 'do it: ' , (item contractTo: 50)]]]]]. + self resetListSelections.! - listSelections := Array new: list size withAll: false!

1 0

FFI: FFI-Kernel-mt.77.mcz
by commits＠source.squeak.org 27 May '20

27 May '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.77.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.77 Author: mt Time: 27 May 2020, 3:01:22.394043 pm UUID: e182b78a-b899-7c4c-afd8-ad1642c7c800 Ancestors: FFI-Kernel-mt.76 Since ExternalAddress makes extensive use of #wordSize, avoid spreading FFIPlatformDescription but re-introduce the message #wordSize instead. ...I hope this has no implications on performance in general, because wordSize was a class-side instVar in ExternalAddress before. =============== Diff against FFI-Kernel-mt.76 =============== Item was changed: ----- Method: ExternalAddress class>>allBeNullAndResize (in category 'system startup') ----- allBeNullAndResize "Null all instances by becomming to new (and hence null) pointers of the platform's current word size." | instances wordSize | instances := self allInstances. + wordSize := self wordSize. - wordSize := FFIPlatformDescription current wordSize. instances elementsForwardIdentityTo: (instances collect: [:address | self basicNew: wordSize]).! Item was changed: ----- Method: ExternalAddress class>>new (in category 'instance creation') ----- new "External addresses are either four or eight bytes long." + ^super new: self wordSize! - ^super new: FFIPlatformDescription current wordSize! Item was changed: ----- Method: ExternalAddress class>>new: (in category 'instance creation') ----- new: n "Only create ExternalAddresses of the right size." + ^n = self wordSize - ^n = FFIPlatformDescription current wordSize ifTrue: [super new: n] ifFalse: [self shouldNotImplement]! Item was added: + ----- Method: ExternalAddress class>>wordSize (in category 'constants') ----- + wordSize + + ^ FFIPlatformDescription current wordSize!

1 0

FFI: FFI-Pools-mt.15.mcz
by commits＠source.squeak.org 27 May '20

27 May '20

Marcel Taeumel uploaded a new version of FFI-Pools to project FFI: http://source.squeak.org/FFI/FFI-Pools-mt.15.mcz ==================== Summary ==================== Name: FFI-Pools-mt.15 Author: mt Time: 27 May 2020, 11:43:20.093317 am UUID: 19258efb-c2da-894a-9a85-68f0150fa991 Ancestors: FFI-Pools-mt.14 Complements FFI-Kernel-mt.76. =============== Diff against FFI-Pools-mt.14 =============== Item was changed: ----- Method: FFIExternalSharedPool class>>generatedProgramExtension (in category 'defaults') ----- generatedProgramExtension + ^ self platformClass current isWindows - ^ self platformClass isCurrentPlatformWindows ifTrue: ['.exe'] ifFalse: ['']! Item was changed: ----- Method: FFIExternalSharedPoolDefinition class>>defaultCCompiler (in category 'defaults') ----- defaultCCompiler + ^ self platformClass current isWindows - ^ self platformClass isCurrentPlatformWindows ifTrue: ['cl'] ifFalse: ['cc']! Item was changed: ----- Method: FFIExternalSharedPoolDefinition class>>defaultCFlags (in category 'defaults') ----- defaultCFlags + ^ self platformClass current isWindows - ^ self platformClass isCurrentPlatformWindows ifTrue: ['/out:'] ifFalse: ['-o']!

1 0

FFI: FFI-Kernel-mt.76.mcz
by commits＠source.squeak.org 27 May '20

27 May '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.76.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.76 Author: mt Time: 27 May 2020, 11:42:40.599317 am UUID: 7cfea7d7-c95e-a24a-aaf3-0d96c409e13d Ancestors: FFI-Kernel-mt.75 At least from within FFI package, use FFIPlatformDescription, not the Smalltalk global. =============== Diff against FFI-Kernel-mt.75 =============== Item was changed: ----- Method: ExternalStructure class>>maxFieldAlignment (in category 'alignment') ----- maxFieldAlignment "Answer the maximum alignment of structure fields. This is platform dependent. On x86, struct{float f; double d} will have different alignment: - on windows, d will be 8-byte aligned - on SysV linux/OSX, d will be 4 byte aligned There are some special types that may have higher alignment requirements - SSE vectors - jump_buf ... But we do not handle these types yet" + FFIPlatformDescription current isWindows ifTrue: [^8]. + FFIPlatformDescription current isARM ifTrue: [^8]. + ^ FFIPlatformDescription current wordSize! - Smalltalk platformName = 'Win32' ifTrue: [^8]. - (Smalltalk platformSubtype beginsWith: 'arm') ifTrue: [^8]. - ^Smalltalk wordSize! Item was changed: ----- Method: ExternalType class>>initializeAtomicTypes (in category 'class initialization') ----- initializeAtomicTypes "ExternalType initialize" | atomicType byteSize type typeName byteAlignment | #( "name atomic id byte size byte alignment" ('void' 0 0 0) ('bool' 1 1 1) ('byte' 2 1 1) ('sbyte' 3 1 1) ('ushort' 4 2 2) ('short' 5 2 2) ('ulong' 6 4 4) ('long' 7 4 4) ('ulonglong' 8 8 8) ('longlong' 9 8 8) ('char' 10 1 1) ('schar' 11 1 1) ('float' 12 4 4) ('double' 13 8 8) ) do:[:typeSpec| | compiled | typeName := typeSpec first. atomicType := typeSpec second. byteSize := typeSpec third. byteAlignment := typeSpec fourth. "On 32 bits Windows and MacOS, double and long have an alignment of 8. But on Linux, their alignment is 4" + (FFIPlatformDescription current wordSize = 4 and: [FFIPlatformDescription current isUnix]) ifTrue: [ - (Smalltalk wordSize = 4 and: [Smalltalk platformName = 'unix']) ifTrue: [ (#('double longlong ulonglong') includes: typeName) ifTrue: [ byteAlignment := 4 ] ]. compiled := WordArray with: ((byteSize bitOr: FFIFlagAtomic) bitOr: (atomicType bitShift: FFIAtomicTypeShift)). type := (AtomicTypes at: typeName). type compiledSpec: compiled; byteAlignment: byteAlignment. compiled := WordArray with: ((self pointerSpec bitOr: FFIFlagAtomic) bitOr: (atomicType bitShift: FFIAtomicTypeShift)). type asPointerType byteAlignment: self pointerAlignment; compiledSpec: compiled. ].! Item was changed: ----- Method: ExternalType class>>pointerAlignment (in category 'private') ----- pointerAlignment + ^ FFIPlatformDescription current wordSize! - ^ Smalltalk wordSize! Item was changed: ----- Method: ExternalType class>>pointerSpec (in category 'private') ----- pointerSpec + ^(FFIPlatformDescription current wordSize bitOr: FFIFlagPointer)! - ^(Smalltalk wordSize bitOr: FFIFlagPointer)! Item was removed: - ----- Method: FFIPlatformDescription class>>isCurrentPlatformWindows (in category 'testing') ----- - isCurrentPlatformWindows - ^ self isWindowsPlatformName: self currentName! Item was removed: - ----- Method: FFIPlatformDescription class>>isWindowsPlatformName: (in category 'private') ----- - isWindowsPlatformName: aPlatformName - ^ aPlatformName asLowercase beginsWith: 'win'! Item was added: + ----- Method: FFIPlatformDescription>>isARM (in category 'testing') ----- + isARM + + ^ self subtype beginsWith: 'arm'! Item was added: + ----- Method: FFIPlatformDescription>>isUnix (in category 'testing') ----- + isUnix + + ^ self name = 'unix'! Item was changed: ----- Method: FFIPlatformDescription>>isWindows (in category 'testing') ----- isWindows + + ^ self name = 'Win32'! - ^ self class isWindowsPlatformName: self name!

1 0

FFI: FFI-PoolsTests-mt.7.mcz
by commits＠source.squeak.org 27 May '20

27 May '20

Marcel Taeumel uploaded a new version of FFI-PoolsTests to project FFI: http://source.squeak.org/FFI/FFI-PoolsTests-mt.7.mcz ==================== Summary ==================== Name: FFI-PoolsTests-mt.7 Author: mt Time: 27 May 2020, 11:12:23.024317 am UUID: d45a1c07-7c94-5240-9827-f66e61c613df Ancestors: FFI-PoolsTests-eem.6 Complements FFI-Kernel-mt.75. Fixes typo "Genreator" -> "Generator". =============== Diff against FFI-PoolsTests-eem.6 =============== Item was changed: ----- Method: FFIExternalSharedPoolTest>>platformClass (in category 'defaults') ----- platformClass + ^ FFIPlatformDescription! - ^ FFIExternalSharedPoolPlatform! Item was changed: ----- Method: FFIExternalSharedPoolTest>>testInheritance (in category 'tests') ----- testInheritance | sharedPool definitions defaultDefinition emptyDefinition overrideDefinition | sharedPool := FFITestInheritanceExternalSharedPool. definitions := sharedPool resolvedDefinitions. self assert: definitions size equals: 3. defaultDefinition := definitions detect: [:each | each isDefault]. emptyDefinition := definitions detect: [:each | each name = #empty]. overrideDefinition := definitions detect: [:each | each name = #override]. self assertIsDefaultDefinition: defaultDefinition for: sharedPool. self deny: emptyDefinition isDefault; assert: emptyDefinition inheritsFrom isNil; assert: emptyDefinition cCompiler equals: defaultDefinition cCompiler; assert: emptyDefinition cFlags equals: defaultDefinition cFlags; assert: emptyDefinition cHeaders equals: defaultDefinition cHeaders; assert: emptyDefinition platform equals: defaultDefinition platform; assert: emptyDefinition programGeneratorClass equals: defaultDefinition programGeneratorClass; assert: emptyDefinition variablesAndTypes equals: defaultDefinition variablesAndTypes. self deny: overrideDefinition isDefault; assert: overrideDefinition inheritsFrom equals: #empty; assert: overrideDefinition cCompiler equals: 'testCompiler'; assert: overrideDefinition cFlags equals: 'testFlags'; assert: overrideDefinition cHeaders equals: #('<testHeader.h>' '"testLocalHeader.h"' '<testImplicitGlobalHeader.h>'); assert: overrideDefinition platform equals: self newTestPlatform; assert: overrideDefinition programGeneratorClass + equals: FFITestExternalSharedPoolProgramGenerator; - equals: FFITestExternalSharedPoolProgramGenreator; assert: overrideDefinition variablesAndTypes equals: (Dictionary withAll: {#One -> Float. #Two -> Integer}).! Item was added: + FFIExternalSharedPoolProgramGenerator subclass: #FFITestExternalSharedPoolProgramGenerator + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-PoolsTests'! + + !FFITestExternalSharedPoolProgramGenerator commentStamp: 'monty 4/1/2018 07:47' prior: 0! + A stub used during testing.! Item was removed: - FFIExternalSharedPoolProgramGenerator subclass: #FFITestExternalSharedPoolProgramGenreator - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-PoolsTests'! - - !FFITestExternalSharedPoolProgramGenreator commentStamp: 'monty 4/1/2018 07:47' prior: 0! - A stub used during testing.!

1 0

FFI: FFI-Pools-mt.14.mcz
by commits＠source.squeak.org 27 May '20

27 May '20

Marcel Taeumel uploaded a new version of FFI-Pools to project FFI: http://source.squeak.org/FFI/FFI-Pools-mt.14.mcz ==================== Summary ==================== Name: FFI-Pools-mt.14 Author: mt Time: 27 May 2020, 11:11:21.017317 am UUID: 707f3aa8-89ee-7842-b20b-e18309dcabad Ancestors: FFI-Pools-eem.13 Complements FFI-Kernel-mt.75. =============== Diff against FFI-Pools-eem.13 =============== Item was changed: ----- Method: FFIExternalSharedPool class>>defaultDefinition (in category 'accessing') ----- defaultDefinition + "all definitions inherit directly or indirectly from this one" - "all definitions inherit directly or indirectly form this one" ^ self definitionClass defaultFromClass: self! Item was added: + ----- Method: FFIExternalSharedPool class>>platformChangedFrom:to: (in category 'system startup') ----- + platformChangedFrom: lastPlatform to: currentPlatform + + self allExternalSharedPoolClassesDo: [:each | + each initializeFromGeneratedProgramOutputForPlatform: currentPlatform].! Item was changed: ----- Method: FFIExternalSharedPool class>>platformClass (in category 'defaults') ----- platformClass + ^ FFIPlatformDescription! - ^ FFIExternalSharedPoolPlatform! Item was removed: - ----- Method: FFIExternalSharedPool class>>startUp: (in category 'system startup') ----- - startUp: isResuming - isResuming - ifTrue: [| currentPlatform | - currentPlatform := self platformClass current. - self allExternalSharedPoolClassesDo: [:each | - each lastPlatform = currentPlatform - ifFalse: [ - each initializeFromGeneratedProgramOutputForPlatform: - currentPlatform]]] - ifFalse: [self initializeAllFromGeneratedProgramOutput]! Item was changed: ----- Method: FFIExternalSharedPoolDefinition class>>platformClass (in category 'defaults') ----- platformClass + ^ FFIPlatformDescription! - ^ FFIExternalSharedPoolPlatform! Item was removed: - Object subclass: #FFIExternalSharedPoolPlatform - instanceVariableNames: 'name osVersion subtype wordSize' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Pools'! - - !FFIExternalSharedPoolPlatform commentStamp: 'monty 4/1/2018 12:02' prior: 0! - This class stores the platform information for an FFIExternalSharedPool and supports testing instances for platform compatibility and specificity.! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>current (in category 'instance creation') ----- - current - ^ self - name: self currentName - osVersion: self currentOSVersion - subtype: self currentSubtype - wordSize: self currentWordSize! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>currentName (in category 'accessing') ----- - currentName - "self currentName" - - ^ Smalltalk os platformName! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>currentOSVersion (in category 'accessing') ----- - currentOSVersion - "self currentOSVersion" - - "'Smalltalk os version' and 'Smalltalk osVersion' are not portable to Pharo. - On Squeak: - Smalltalk osVersion = (Smalltalk getSystemAttribute: 1002) asString" - ^ (Smalltalk getSystemAttribute: 1002) asString! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>currentSubtype (in category 'accessing') ----- - currentSubtype - "self currentSubtype" - - "'Smalltalk platformSubtype' is not portable to Pharo. - On Squeak: - Smalltalk platformSubtype = (Smalltalk getSystemAttribute: 1003) asString" - ^ (Smalltalk getSystemAttribute: 1003) asString! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>currentWordSize (in category 'accessing') ----- - currentWordSize - "self currentWordSize" - - ^ Smalltalk wordSize! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>empty (in category 'instance creation') ----- - empty - ^ self new! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>isCurrentPlatformWindows (in category 'testing') ----- - isCurrentPlatformWindows - ^ self isWindowsPlatformName: self currentName! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>isWindowsPlatformName: (in category 'private') ----- - isWindowsPlatformName: aPlatformName - ^ aPlatformName asLowercase beginsWith: 'win'! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>name: (in category 'instance creation') ----- - name: aName - ^ self new name: aName! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>name:osVersion: (in category 'instance creation') ----- - name: aName osVersion: anOSVersionString - ^ self new - name: aName; - osVersion: anOSVersionString! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>name:osVersion:subtype: (in category 'instance creation') ----- - name: aName osVersion: anOSVersionString subtype: aSubtypeString - ^ self new - name: aName; - osVersion: anOSVersionString; - subtype: aSubtypeString! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>name:osVersion:subtype:wordSize: (in category 'instance creation') ----- - name: aName osVersion: anOSVersionString subtype: aSubtypeString wordSize: aWordSize - ^ self new - name: aName; - osVersion: anOSVersionString; - subtype: aSubtypeString; - wordSize: aWordSize! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform class>>name:wordSize: (in category 'instance creation') ----- - name: aName wordSize: aWordSize - ^ self new - name: aName; - wordSize: aWordSize! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>= (in category 'comparing') ----- - = anObject - self == anObject - ifTrue: [^ true]. - - self species == anObject species - ifFalse: [^ false]. - - ^ self name = anObject name - and: [self osVersion = anObject osVersion - and: [self subtype = anObject subtype - and: [self wordSize = anObject wordSize]]].! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>hasName (in category 'testing') ----- - hasName - ^ self name notEmpty! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>hasOSVersion (in category 'testing') ----- - hasOSVersion - ^ self osVersion notEmpty! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>hasSubtype (in category 'testing') ----- - hasSubtype - ^ self subtype notEmpty! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>hasWordSize (in category 'testing') ----- - hasWordSize - ^ self wordSize notNil! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>hash (in category 'comparing') ----- - hash - ^ (((self species hash bitXor: - self name hash) bitXor: - self osVersion hash) bitXor: - self subtype hash) bitXor: - self wordSize hash! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>isCompatibleWith: (in category 'testing') ----- - isCompatibleWith: aPlatform - self == aPlatform - ifTrue: [^ true]. - - (self name = aPlatform name - or: [self hasName not - or: [aPlatform hasName not]]) - ifFalse: [^ false]. - - (self osVersion = aPlatform osVersion - or: [self hasOSVersion not - or: [aPlatform hasOSVersion not]]) - ifFalse: [^ false]. - - (self subtype = aPlatform subtype - or: [self hasSubtype not - or: [aPlatform hasSubtype not]]) - ifFalse: [^ false]. - - (self wordSize = aPlatform wordSize - or: [self hasWordSize not - or: [aPlatform hasWordSize not]]) - ifFalse: [^ false]. - - ^ true.! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>isMoreSpecificThan: (in category 'testing') ----- - isMoreSpecificThan: aPlatform - self == aPlatform - ifTrue: [^ false]. - - (self hasName - and: [aPlatform hasName not]) - ifTrue: [^ true]. - - (self hasOSVersion - and: [aPlatform hasOSVersion not]) - ifTrue: [^ true]. - - (self hasSubtype - and: [aPlatform hasSubtype not]) - ifTrue: [^ true]. - - (self hasWordSize - and: [aPlatform hasWordSize not]) - ifTrue: [^ true]. - - ^ false.! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>isWindows (in category 'testing') ----- - isWindows - ^ self class isWindowsPlatformName: self name! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>name (in category 'accessing') ----- - name - ^ name ifNil: [name := '']! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>name: (in category 'accessing') ----- - name: aName - name := aName! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>osVersion (in category 'accessing') ----- - osVersion - ^ osVersion ifNil: [osVersion := '']! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>osVersion: (in category 'accessing') ----- - osVersion: anOSVersionString - osVersion := anOSVersionString! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>printOn: (in category 'printing') ----- - printOn: aStream - self storeOn: aStream! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>storeOn: (in category 'printing') ----- - storeOn: aStream - aStream - nextPut: $(; - nextPutAll: self class name asString; - nextPutAll: ' name: '; - print: self name; - nextPutAll: ' osVersion: '; - print: self osVersion; - nextPutAll: ' subtype: '; - print: self subtype; - nextPutAll: ' wordSize: '; - print: self wordSize; - nextPut: $).! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>subtype (in category 'accessing') ----- - subtype - ^ subtype ifNil: [subtype := '']! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>subtype: (in category 'accessing') ----- - subtype: aSubtypeString - subtype := aSubtypeString! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>wordSize (in category 'accessing') ----- - wordSize - ^ wordSize! Item was removed: - ----- Method: FFIExternalSharedPoolPlatform>>wordSize: (in category 'accessing') ----- - wordSize: aWordSize - wordSize := aWordSize! Item was added: + (PackageInfo named: 'FFI-Pools') postscript: 'Smalltalk removeFromStartUpList: FFIExternalSharedPool.'!

1 0

FFI: FFI-Kernel-mt.75.mcz
by commits＠source.squeak.org 27 May '20

27 May '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.75.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.75 Author: mt Time: 27 May 2020, 11:09:51.708317 am UUID: 53ccac06-63be-844f-b5eb-267645ea78d0 Ancestors: FFI-Kernel-mt.74 Merges start-up logic from ExternalAddress, ExternalObject, and FFIExternalSharedPool (in FFI-Pools) into a single FFIPlatformDescription (which was FFIExternalSharedPoolPlatform from FFI-Pools). The list of observers is hard-coded in FFIPlatformDescription class >> #startUp: for now. =============== Diff against FFI-Kernel-mt.74 =============== Item was changed: ByteArray variableByteSubclass: #ExternalAddress instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Kernel'! - ExternalAddress class - instanceVariableNames: 'wordSize'! !ExternalAddress commentStamp: '<historical>' prior: 0! An ExternalAddress is an opaque handle to objects outside Smalltalk memory (e.g., a pointer).! - ExternalAddress class - instanceVariableNames: 'wordSize'! Item was added: + ----- Method: ExternalAddress class>>allBeNull (in category 'system startup') ----- + allBeNull + "If starting the image afresh all external addresses should be zero." + + self allInstancesDo: [:address | address beNull].! Item was added: + ----- Method: ExternalAddress class>>allBeNullAndResize (in category 'system startup') ----- + allBeNullAndResize + "Null all instances by becomming to new (and hence null) pointers of the platform's current word size." + + | instances wordSize | + instances := self allInstances. + wordSize := FFIPlatformDescription current wordSize. + instances elementsForwardIdentityTo: + (instances collect: [:address | self basicNew: wordSize]).! Item was removed: - ----- Method: ExternalAddress class>>initialize (in category 'class initialization') ----- - initialize - wordSize := Smalltalk wordSize! Item was changed: ----- Method: ExternalAddress class>>new (in category 'instance creation') ----- new "External addresses are either four or eight bytes long." + ^super new: FFIPlatformDescription current wordSize! - ^super new: wordSize! Item was changed: ----- Method: ExternalAddress class>>new: (in category 'instance creation') ----- new: n "Only create ExternalAddresses of the right size." + ^n = FFIPlatformDescription current wordSize - ^n = wordSize ifTrue: [super new: n] ifFalse: [self shouldNotImplement]! Item was added: + ----- Method: ExternalAddress class>>platformChangedFrom:to: (in category 'system startup') ----- + platformChangedFrom: lastPlatform to: currentPlatform + + lastPlatform wordSize = currentPlatform wordSize + ifTrue: [self allBeNull] + ifFalse: [self allBeNullAndResize].! Item was removed: - ----- Method: ExternalAddress class>>startUp: (in category 'class initialization') ----- - startUp: resuming - "If starting the image afresh all external addresses should be zero. - In addition, if the word size has changed then external addresses shoiuld be resized. - The two steps are combined for efficiency." - resuming ifTrue: - [| instances | - instances := self allInstances. - wordSize ~= Smalltalk wordSize - ifTrue: "Implement nulling by becomming all existing instances to new (and hence null) pointers of the right size." - [wordSize := Smalltalk wordSize. - instances elementsForwardIdentityTo: (instances collect: [:ea| self basicNew: wordSize])] - ifFalse: - [instances do: [:addr| addr beNull]]]! Item was removed: - ----- Method: ExternalAddress class>>wordSize (in category 'accessing') ----- - wordSize - ^wordSize! Item was removed: - ----- Method: ExternalObject class>>initialize (in category 'class initialization') ----- - initialize - "ExternalObject initialize" - (Smalltalk classNamed: #SessionManager) - ifNotNil: [:sessionManagerClass| - sessionManagerClass default - registerSystemClassNamed: self name - atPriority: 60] - ifNil: [Smalltalk addToStartUpList: self after: (Smalltalk classNamed: #ShortRunArray)]. ! Item was changed: ----- Method: ExternalObject class>>install (in category 'system startup') ----- install "Notify all instances of the receiver that we're coming up on a new platform. Note: The default implementation does nothing since the general external + objects are cleaned up by ExternalAddress>>platformChangedFrom:to: but subclasses may - objects are cleaned up by ExternalAddress>>startUp: but subclasses may implement this method so that the appropriate action for existing instances can be taken."! Item was added: + ----- Method: ExternalObject class>>platformChangedFrom:to: (in category 'system startup') ----- + platformChangedFrom: lastPlatform to: currentPlatform + "The system is coming up on a new platform. Clear out the existing handles." + self installSubclasses.! Item was removed: - ----- Method: ExternalObject class>>startUp: (in category 'system startup') ----- - startUp: resuming - "The system is coming up. If it is on a new platform, clear out the existing handles." - ExternalAddress startUp: resuming. "Make sure handles are invalid" - resuming ifTrue:[self installSubclasses]. - ! Item was changed: ----- Method: ExternalStructure class>>install (in category 'system startup') ----- install + "Resume the system on a new platform. Recompile all structures to accound for different word size etc." + + self recompileStructures.! - "Resuming the image on another architecture may require a re-compilation of structure layout." - | newPlatform | - newPlatform := Smalltalk platformName. - PreviousPlatform = newPlatform - ifFalse: - [self recompileStructures. - PreviousPlatform := newPlatform]! Item was added: + Object subclass: #FFIPlatformDescription + instanceVariableNames: 'name osVersion subtype wordSize' + classVariableNames: 'LastPlatform' + poolDictionaries: '' + category: 'FFI-Kernel'! + + !FFIPlatformDescription commentStamp: 'monty 4/1/2018 12:02' prior: 0! + This class stores the platform information for an FFIExternalSharedPool and supports testing instances for platform compatibility and specificity.! Item was added: + ----- Method: FFIPlatformDescription class>>current (in category 'instance creation') ----- + current + + ^ LastPlatform ifNil: [LastPlatform := self newCurrent]! Item was added: + ----- Method: FFIPlatformDescription class>>currentName (in category 'accessing') ----- + currentName + "self currentName" + + ^ Smalltalk os platformName! Item was added: + ----- Method: FFIPlatformDescription class>>currentOSVersion (in category 'accessing') ----- + currentOSVersion + "self currentOSVersion" + + ^ Smalltalk osVersion! Item was added: + ----- Method: FFIPlatformDescription class>>currentSubtype (in category 'accessing') ----- + currentSubtype + "self currentSubtype" + + ^ Smalltalk os platformSubtype! Item was added: + ----- Method: FFIPlatformDescription class>>currentWordSize (in category 'accessing') ----- + currentWordSize + "self currentWordSize" + + ^ Smalltalk wordSize! Item was added: + ----- Method: FFIPlatformDescription class>>empty (in category 'instance creation') ----- + empty + ^ self new! Item was added: + ----- Method: FFIPlatformDescription class>>initialize (in category 'class initialization') ----- + initialize + " + FFIPlatformDescription initialize + " + Smalltalk addToStartUpList: self after: (Smalltalk classNamed: #ShortRunArray).! Item was added: + ----- Method: FFIPlatformDescription class>>isCurrentPlatformWindows (in category 'testing') ----- + isCurrentPlatformWindows + ^ self isWindowsPlatformName: self currentName! Item was added: + ----- Method: FFIPlatformDescription class>>isWindowsPlatformName: (in category 'private') ----- + isWindowsPlatformName: aPlatformName + ^ aPlatformName asLowercase beginsWith: 'win'! Item was added: + ----- Method: FFIPlatformDescription class>>name: (in category 'instance creation') ----- + name: aName + ^ self new name: aName! Item was added: + ----- Method: FFIPlatformDescription class>>name:osVersion: (in category 'instance creation') ----- + name: aName osVersion: anOSVersionString + ^ self new + name: aName; + osVersion: anOSVersionString! Item was added: + ----- Method: FFIPlatformDescription class>>name:osVersion:subtype: (in category 'instance creation') ----- + name: aName osVersion: anOSVersionString subtype: aSubtypeString + ^ self new + name: aName; + osVersion: anOSVersionString; + subtype: aSubtypeString! Item was added: + ----- Method: FFIPlatformDescription class>>name:osVersion:subtype:wordSize: (in category 'instance creation') ----- + name: aName osVersion: anOSVersionString subtype: aSubtypeString wordSize: aWordSize + ^ self new + name: aName; + osVersion: anOSVersionString; + subtype: aSubtypeString; + wordSize: aWordSize! Item was added: + ----- Method: FFIPlatformDescription class>>name:wordSize: (in category 'instance creation') ----- + name: aName wordSize: aWordSize + ^ self new + name: aName; + wordSize: aWordSize! Item was added: + ----- Method: FFIPlatformDescription class>>newCurrent (in category 'instance creation') ----- + newCurrent + + ^ self + name: self currentName + osVersion: self currentOSVersion + subtype: self currentSubtype + wordSize: self currentWordSize! Item was added: + ----- Method: FFIPlatformDescription class>>startUp: (in category 'system startup') ----- + startUp: resuming + "Notify all FFI classes about platform changes." + + resuming ifTrue: [ + LastPlatform in: [:lastPlatform | self newCurrent in: [:currentPlatform | + lastPlatform = currentPlatform + ifTrue: [ + self flag: #discuss. "mt: Maybe add #platformResuming?" + ExternalAddress allBeNull] + ifFalse: [ + LastPlatform := currentPlatform. "Update now. See #current." + self flag: #discuss. "mt: Maybe directly call ExternalStructure?" + { ExternalAddress. ExternalObject. FFIExternalSharedPool } + do: [:cls | cls + platformChangedFrom: lastPlatform + to: currentPlatform] ]]] ].! Item was added: + ----- Method: FFIPlatformDescription class>>unload (in category 'class initialization') ----- + unload + + Smalltalk removeFromStartUpList: self.! Item was added: + ----- Method: FFIPlatformDescription>>= (in category 'comparing') ----- + = anObject + self == anObject + ifTrue: [^ true]. + + self species == anObject species + ifFalse: [^ false]. + + ^ self name = anObject name + and: [self osVersion = anObject osVersion + and: [self subtype = anObject subtype + and: [self wordSize = anObject wordSize]]].! Item was added: + ----- Method: FFIPlatformDescription>>hasName (in category 'testing') ----- + hasName + ^ self name notEmpty! Item was added: + ----- Method: FFIPlatformDescription>>hasOSVersion (in category 'testing') ----- + hasOSVersion + ^ self osVersion notEmpty! Item was added: + ----- Method: FFIPlatformDescription>>hasSubtype (in category 'testing') ----- + hasSubtype + ^ self subtype notEmpty! Item was added: + ----- Method: FFIPlatformDescription>>hasWordSize (in category 'testing') ----- + hasWordSize + ^ self wordSize notNil! Item was added: + ----- Method: FFIPlatformDescription>>hash (in category 'comparing') ----- + hash + ^ (((self species hash bitXor: + self name hash) bitXor: + self osVersion hash) bitXor: + self subtype hash) bitXor: + self wordSize hash! Item was added: + ----- Method: FFIPlatformDescription>>isCompatibleWith: (in category 'testing') ----- + isCompatibleWith: aPlatform + self == aPlatform + ifTrue: [^ true]. + + (self name = aPlatform name + or: [self hasName not + or: [aPlatform hasName not]]) + ifFalse: [^ false]. + + (self osVersion = aPlatform osVersion + or: [self hasOSVersion not + or: [aPlatform hasOSVersion not]]) + ifFalse: [^ false]. + + (self subtype = aPlatform subtype + or: [self hasSubtype not + or: [aPlatform hasSubtype not]]) + ifFalse: [^ false]. + + (self wordSize = aPlatform wordSize + or: [self hasWordSize not + or: [aPlatform hasWordSize not]]) + ifFalse: [^ false]. + + ^ true.! Item was added: + ----- Method: FFIPlatformDescription>>isMoreSpecificThan: (in category 'testing') ----- + isMoreSpecificThan: aPlatform + self == aPlatform + ifTrue: [^ false]. + + (self hasName + and: [aPlatform hasName not]) + ifTrue: [^ true]. + + (self hasOSVersion + and: [aPlatform hasOSVersion not]) + ifTrue: [^ true]. + + (self hasSubtype + and: [aPlatform hasSubtype not]) + ifTrue: [^ true]. + + (self hasWordSize + and: [aPlatform hasWordSize not]) + ifTrue: [^ true]. + + ^ false.! Item was added: + ----- Method: FFIPlatformDescription>>isWindows (in category 'testing') ----- + isWindows + ^ self class isWindowsPlatformName: self name! Item was added: + ----- Method: FFIPlatformDescription>>name (in category 'accessing') ----- + name + ^ name ifNil: [name := '']! Item was added: + ----- Method: FFIPlatformDescription>>name: (in category 'accessing') ----- + name: aName + name := aName! Item was added: + ----- Method: FFIPlatformDescription>>osVersion (in category 'accessing') ----- + osVersion + ^ osVersion ifNil: [osVersion := '']! Item was added: + ----- Method: FFIPlatformDescription>>osVersion: (in category 'accessing') ----- + osVersion: anOSVersionString + osVersion := anOSVersionString! Item was added: + ----- Method: FFIPlatformDescription>>printOn: (in category 'printing') ----- + printOn: aStream + self storeOn: aStream! Item was added: + ----- Method: FFIPlatformDescription>>storeOn: (in category 'printing') ----- + storeOn: aStream + aStream + nextPut: $(; + nextPutAll: self class name asString; + nextPutAll: ' name: '; + print: self name; + nextPutAll: ' osVersion: '; + print: self osVersion; + nextPutAll: ' subtype: '; + print: self subtype; + nextPutAll: ' wordSize: '; + print: self wordSize; + nextPut: $).! Item was added: + ----- Method: FFIPlatformDescription>>subtype (in category 'accessing') ----- + subtype + ^ subtype ifNil: [subtype := '']! Item was added: + ----- Method: FFIPlatformDescription>>subtype: (in category 'accessing') ----- + subtype: aSubtypeString + subtype := aSubtypeString! Item was added: + ----- Method: FFIPlatformDescription>>wordSize (in category 'accessing') ----- + wordSize + ^ wordSize! Item was added: + ----- Method: FFIPlatformDescription>>wordSize: (in category 'accessing') ----- + wordSize: aWordSize + wordSize := aWordSize! Item was added: + (PackageInfo named: 'FFI-Kernel') postscript: 'Smalltalk removeFromStartUpList: ExternalAddress. + Smalltalk removeFromStartUpList: ExternalObject.'!

1 0

The Trunk: Tests-ul.434.mcz
by commits＠source.squeak.org 27 May '20

27 May '20

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.434.mcz ==================== Summary ==================== Name: Tests-ul.434 Author: ul Time: 27 May 2020, 3:33:20.792457 am UUID: 9d3d7a92-4f24-4d36-89ef-f928de795b1f Ancestors: Tests-nice.433 - speed up DecompilerTests >> #classNames by only computing #category once per class =============== Diff against Tests-nice.433 =============== Item was changed: ----- Method: DecompilerTests>>classNames (in category 'utilities') ----- classNames "A list of the classes in most of the base packages; excluding EToys arbitrarily for now" + + | prefixes | + prefixes := self basePackagePrefixes. ^Smalltalk globals allClassesAndTraits select: [:classOrTrait| + classOrTrait category + ifNil: [false] + ifNotNil: + [:category| + prefixes anySatisfy: [:packageRoot| category beginsWith: packageRoot]]] - self basePackagePrefixes anySatisfy: - [:packageRoot| - classOrTrait category ifNil: [false] ifNotNil: [:cat| cat beginsWith: packageRoot]]] thenCollect: [:classOrTrait| classOrTrait name]!

1 0

The Trunk: Morphic-mt.1661.mcz
by commits＠source.squeak.org 25 May '20

25 May '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1661.mcz ==================== Summary ==================== Name: Morphic-mt.1661 Author: mt Time: 25 May 2020, 10:53:39.154474 am UUID: 4adc6920-02b1-7f44-929b-a8291944dff2 Ancestors: Morphic-mt.1660 Makes StringMorph >> #font:emphasis: more robust and clear. Thanks to Martin Kuball and Subbu (kks)! =============== Diff against Morphic-mt.1660 =============== Item was changed: ----- Method: StringMorph>>font:emphasis: (in category 'accessing - convenience') ----- + font: aFontOrNil emphasis: emphasisCodeOrNil + "For convenience only. Try to use #font: and #emphasis: instead. + + Changes font and/or emphasis. If both are given, the font's current emphasis will be discarded. If only the emphasis is given, the system's default font will be used. If only the font is given, the font's emphasis will be cached so that future calls to #font: will keep the emphasis." - font: aFont emphasis: emphasisCode self + assert: aFontOrNil notNil | emphasisCodeOrNil notNil + description: 'Either font or emphasis must be non-nil.'. + + self + setFont: ((aFontOrNil isNil or: [aFontOrNil emphasis = emphasisCodeOrNil] or: [emphasisCodeOrNil isNil]) + ifTrue: [aFontOrNil] + ifFalse: [aFontOrNil emphasized: emphasisCodeOrNil]) + emphasis: (emphasisCodeOrNil ifNil: [aFontOrNil emphasis]). + + "self assert: self font emphasis = self emphasis. --- mt: Does not always work because of how StrikeFont treats emphasis 0 in #emphasized:."! - setFont: ((aFont isNil or: [aFont emphasis = emphasisCode] or: [emphasisCode isNil]) - ifTrue: [aFont] - ifFalse: [aFont emphasized: emphasisCode]) - emphasis: (emphasisCode ifNil: [aFont emphasis]).!

1 0

FFI: FFI-Kernel-mt.74.mcz
by commits＠source.squeak.org 20 May '20

20 May '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.74.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.74 Author: mt Time: 20 May 2020, 7:58:09.494513 pm UUID: 64a250fc-5c9d-9a40-9dd2-2e84b8bd8f9c Ancestors: FFI-Kernel-mt.73 Adds some support for calling #free from within the image to then also get usable print strings for the instances of ExternalStructure. Not sure whether it makes sense, but maybe we could store an additional flag in ExternalStructure. Just checking handle for nil seems weird... =============== Diff against FFI-Kernel-mt.73 =============== Item was changed: ----- Method: ExternalStructure>>printNullOn: (in category 'printing') ----- printNullOn: stream + handle ifNil: [^ stream nextPutAll: '<UNDEFINED>']. + self isNull ifTrue: [ stream nextPutAll: '<NULL>'].! Item was changed: ----- Method: ExternalStructure>>printPointerOn: (in category 'printing') ----- printPointerOn: stream + handle ifNil: [^ stream nextPutAll: '<UNDEFINED>']. + handle isExternalAddress ifTrue: [stream nextPutAll: '*'].!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2020