Packages July 2021

packages@lists.squeakfoundation.org

1 participants
45 discussions

The Trunk: MonticelloConfigurations-eem.167.mcz
by commits＠source.squeak.org 28 Jul '21

28 Jul '21

Eliot Miranda uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-eem.167.mcz ==================== Summary ==================== Name: MonticelloConfigurations-eem.167 Author: eem Time: 28 July 2021, 11:57:05.293004 am UUID: e4621e20-5599-455c-be27-a80129b16abc Ancestors: MonticelloConfigurations-mt.166 Include the repository name in the Update completed messaeg logged to the Transcript. This because we have multiple update streams (e.g. trunk, 5.x, VMMaker, etc), and knowing which was updated is useful when looking back at the transcript. =============== Diff against MonticelloConfigurations-mt.166 =============== Item was changed: ----- Method: MCMcmUpdater>>doUpdate: (in category 'updating') ----- doUpdate: interactive "Update the image by loading all pending updates from the server. If this is the default updater for the system, update the system version when complete. If interteractive use a modal notifier, otherwise only update the transcript. Flush all caches. If a previous download failed this is often helpful" + | previousUpdateLevel ensureTranscriptSetting | - | config previousUpdateLevel ensureTranscriptSetting | previousUpdateLevel := SystemVersion current highestUpdate. MCFileBasedRepository flushAllCaches. ensureTranscriptSetting := MCConfiguration ensureOpenTranscript. + [MCConfiguration ensureOpenTranscript: interactive. + self updateFromRepository + ifNil: + [interactive ifTrue: [ ^self inform: 'Unable to retrieve updates from remote repository.' translated ]. + Transcript cr; show: '========== Unable to retrieve updates from remote repository. ==========' translated; cr. + ^ self ] + ifNotNil: [:config| self logUpdateOf: config previousUpdateLevel: previousUpdateLevel interactive: interactive]] + ensure: + [MCConfiguration ensureOpenTranscript: ensureTranscriptSetting]! - [ MCConfiguration ensureOpenTranscript: interactive. - config := self updateFromRepository. - config ifNil: [ - interactive ifTrue: [ ^self inform: 'Unable to retrieve updates from remote repository.' translated ]. - Transcript cr; show: '========== Unable to retrieve updates from remote repository. ==========' translated; cr. - ^ self ]. - MCMcmUpdater default == self - ifTrue: [ - config setSystemVersion. - interactive ifTrue: [ - self inform: (self updateMessageFor: previousUpdateLevel)]. - Transcript cr; - show: '========== Update completed: ' translated; - show: previousUpdateLevel; - show: ' -> ' ; - show: SystemVersion current highestUpdate; - show: ' =========='; cr ] - ifFalse: [ - interactive - ifTrue: [ self inform: 'Update completed.' ]. - Transcript cr; show: '========== Update completed. ==========' translated; cr ] ] - ensure: [ MCConfiguration ensureOpenTranscript: ensureTranscriptSetting]. - - ! Item was changed: ----- Method: MCMcmUpdater>>doUpdate:upTo: (in category 'updating') ----- doUpdate: interactive upTo: versionNumber "Update the image by loading all pending updates from the server. If this is the default updater for the system, update the system version when complete. If interteractive use a modal notifier, otherwise only update the transcript. Flush all caches. If a previous download failed this is often helpful" | config previousUpdateLevel | previousUpdateLevel := SystemVersion current highestUpdate. MCFileBasedRepository flushAllCaches. config := self updateFromRepositories: { self repository } upTo: versionNumber. config ifNil: [ interactive ifTrue: [ ^self inform: 'Unable to retrieve updates from remote repository.' translated ]. Transcript cr; show: '========== Unable to retrieve updates from remote repository. ==========' translated; cr. ^ self ]. + self logUpdateOf: config previousUpdateLevel: previousUpdateLevel interactive: interactive - MCMcmUpdater default == self - ifTrue: [ - config setSystemVersion. - interactive ifTrue: [ - self inform: (self updateMessageFor: previousUpdateLevel)]. - Transcript cr; - show: '========== Update completed: ' translated; - show: previousUpdateLevel; - show: ' -> ' ; - show: SystemVersion current highestUpdate; - show: ' =========='; cr ] - ifFalse: [ - interactive - ifTrue: [ self inform: 'Update completed.' ]. - Transcript cr; show: '========== Update completed. ==========' translated; cr ] ! Item was added: + ----- Method: MCMcmUpdater>>logUpdateOf:previousUpdateLevel:interactive: (in category 'updating') ----- + logUpdateOf: config previousUpdateLevel: previousUpdateLevel interactive: interactive + MCMcmUpdater default == self + ifTrue: [ + config setSystemVersion. + interactive ifTrue: [ + self inform: (self updateMessageFor: previousUpdateLevel)]. + Transcript cr; + show: '========== Update of ' translated, self repositoryName, ' completed: ' translated; + show: previousUpdateLevel; + show: ' -> ' ; + show: SystemVersion current highestUpdate; + show: ' =========='; cr ] + ifFalse: [ + interactive + ifTrue: [ self inform: 'Update of ', self repositoryName, ' completed.' ]. + Transcript cr; show: '========== Update of ' translated, self repositoryName, ' completed. ==========' translated; cr ] + + ! Item was added: + ----- Method: MCMcmUpdater>>repositoryName (in category 'private') ----- + repositoryName + ^repository allButFirst: (repository lastIndexOf: $/ ifAbsent: [0])!

1 0

The Trunk: Tests-eem.464.mcz
by commits＠source.squeak.org 27 Jul '21

27 Jul '21

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.464.mcz ==================== Summary ==================== Name: Tests-eem.464 Author: eem Time: 26 July 2021, 9:14:45.156871 pm UUID: 0bae90ef-3457-4e4a-955d-42f207da8dea Ancestors: Tests-jar.463 Have BitmapStreamTests>>testOtherClasses test core Collections RawBitsArray concrete subclasses. =============== Diff against Tests-jar.463 =============== Item was changed: ----- Method: BitmapStreamTests>>testOtherClasses (in category 'tests-misc') ----- testOtherClasses + #(WordArrayForSegment Float32Array Float64Array PointArray IntegerArray SoundBuffer String ShortPointArray ShortIntegerArray WordArray Array ByteArray Bitmap ColorArray ) do: + [:className | | a | + a := (Smalltalk at: className) new: 3. + self assert: a byteSize equals: a basicSize * a bytesPerBasicElement]. + RawBitsArray allSubclassesDo: + [:class| | a | + (class isAbstract or: [class category ~~ RawBitsArray category]) ifFalse: + [a := class new: 3. + self assert: a byteSize equals: a basicSize * a bytesPerBasicElement]] + + "self new testOtherClasses"! - #(WordArrayForSegment FloatArray PointArray IntegerArray SoundBuffer String ShortPointArray ShortIntegerArray WordArray Array ByteArray Bitmap ColorArray ) do: [:s | | a | - a := (Smalltalk at: s) new: 3. - self assert: a byteSize equals: a basicSize * a bytesPerBasicElement. ] - !

1 0

The Trunk: Collections-eem.953.mcz
by commits＠source.squeak.org 27 Jul '21

27 Jul '21

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.953.mcz ==================== Summary ==================== Name: Collections-eem.953 Author: eem Time: 26 July 2021, 9:11:50.696336 pm UUID: 9ca58ea9-266d-45a5-88c5-8230bcb8960c Ancestors: Collections-mt.952 Servicable implementation of RawBitsArray class>>isAbstract =============== Diff against Collections-mt.952 =============== Item was added: + ----- Method: RawBitsArray class>>isAbstract (in category 'testing') ----- + isAbstract + "RawBitsArray and abstract subclasses such as SignedIntegerArray and UnsignedIntegerArray + are not bits classes. So use isBits to distinguish between concrete subclasses that are bits." + ^self isBits not!

1 0

FFI: FFI-Kernel-eem.186.mcz
by commits＠source.squeak.org 27 Jul '21

27 Jul '21

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.186.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.186 Author: eem Time: 26 July 2021, 8:48:08.513847 pm UUID: 2b488210-34ba-4568-8a3e-f0c9b6499b71 Ancestors: FFI-Kernel-eem.185 FFI has no business defining floatAt:[put:] in the FloatArray hierarchy. FloatArrays are indexed by element index, *not* by byteIndex. Defining floatAt:[put:] does serious harm to graphics applications that expect FloatArray>>floatAt:[put:] to take element indices. =============== Diff against FFI-Kernel-eem.185 =============== Item was removed: - ----- Method: FloatArray>>floatAt: (in category '*FFI-Kernel-accessing') ----- - floatAt: byteOffset - "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:." - - ^ self atByteOffset: byteOffset! Item was removed: - ----- Method: FloatArray>>floatAt:put: (in category '*FFI-Kernel-accessing') ----- - floatAt: byteOffset put: value - "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:put:." - - ^ self atByteOffset: byteOffset put: value!

1 0

FFI: FFI-Kernel-eem.185.mcz
by commits＠source.squeak.org 27 Jul '21

27 Jul '21

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.185.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.185 Author: eem Time: 26 July 2021, 6:44:27.357344 pm UUID: 471b6e6a-c09f-4759-ad28-b029faa9d289 Ancestors: FFI-Kernel-eem.184 Make the handle:at:[put:] mechanism work for the new accessors. =============== Diff against FFI-Kernel-eem.184 =============== Item was changed: ----- Method: IntegerReadWriteSend>>handle:at: (in category 'evaluating') ----- handle: receiver at: byteOffset "Read." + ^arguments size = 1 + ifTrue: [receiver perform: selector with: byteOffset] + ifFalse: + [receiver + perform: selector + with: byteOffset + with: (arguments at: 2) "byteSize" + with: (arguments at: 3)] "isSigned"! - ^ receiver - perform: selector - with: byteOffset - with: (arguments at: 2) "byteSize" - with: (arguments at: 3) "isSigned"! Item was changed: ----- Method: IntegerReadWriteSend>>handle:at:put: (in category 'evaluating') ----- handle: receiver at: byteOffset put: integerValue "Write." + arguments size = 2 + ifTrue: + [receiver perform: selector with: byteOffset with: integerValue] + ifFalse: + [receiver + perform: selector + with: byteOffset + with: integerValue + with: (arguments at: 3) "byteSize" + with: (arguments at: 4)]. "isSigned" + ^integerValue! - - receiver - perform: selector - with: byteOffset - with: integerValue - with: (arguments at: 3) "byteSize" - with: (arguments at: 4). "isSigned" - ^ integerValue!

1 0

FFI: FFI-Kernel-eem.184.mcz
by commits＠source.squeak.org 27 Jul '21

27 Jul '21

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.184.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.184 Author: eem Time: 26 July 2021, 6:36:07.613943 pm UUID: 4cfd2228-15ae-475b-b152-805e77401509 Ancestors: FFI-Kernel-eem.183 Make ExternalType class>>#initializeAtomicTypes cope with old images in which all the AtomicTypes are still instances of ExternalType, not ExternalAtomicType. Add robustness to cleanupUnusedTypes, and to ExternalType>isTypeAlias (to get the package to load in older images). Provide readFieldAt:/writeFieldAt: for ExternalUnknownType so that packages can load. =============== Diff against FFI-Kernel-eem.183 =============== Item was changed: ----- Method: ExternalType class>>cleanupUnusedTypes (in category 'housekeeping') ----- cleanupUnusedTypes "In the lookup table for struct types and array types, remove keys to types no longer present.. ExternalType cleanupUnusedTypes " Smalltalk garbageCollect. StructTypes keys do: [:key | (StructTypes at: key) ifNil: [ StructTypes removeKey: key]]. ArrayTypes keys do: [:contentTypeName | | sizes | sizes := ArrayTypes at: contentTypeName. + [sizes keys do: [:size | - sizes keys do: [:size | (sizes at: size) ifNil: [sizes removeKey: size]]. + sizes ifEmpty: [ + ArrayTypes removeKey: contentTypeName]] + on: Error + do: [:ex| Transcript print: ex; cr; flush]]! - sizes ifEmpty: [ - ArrayTypes removeKey: contentTypeName]].! Item was changed: ----- Method: ExternalType class>>initializeAtomicTypes (in category 'class initialization') ----- initializeAtomicTypes "ExternalType initialize" | atomicType byteSize type typeName byteAlignment | self flag: #ffiLongVsInt. "For a discussion about long vs. int see http://forum.world.st/Re-squeak-dev-64-bit-FFI-was-porting-Croquet-to-Squea…." + AtomicTypes do: + [:anAtomicType| + (anAtomicType class ~~ ExternalAtomicType + and: [anAtomicType class == ExternalType]) ifTrue: + [ExternalAtomicType adoptInstance: anAtomicType]]. - #( "name atomic id byte size byte alignment" ('void' 0 0 0) "No non-pointer support in calls. Duh. ;-)" ('bool' 1 1 1) "No pointer support in calls." ('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) "v.i." ('longlong' 9 8 8) "v.i." ('char' 10 1 1) ('schar' 11 1 1) ('float' 12 4 4) ('double' 13 8 8) "v.i." "TODO: ('longdouble' 14 10 16? 4?)" ) do:[:typeSpec| | compiled | typeName := typeSpec first. atomicType := typeSpec second. byteSize := typeSpec third. byteAlignment := typeSpec fourth. "0) On 32-bits Windows and MacOS, double and long long have an alignment of 8. But on 32-bit Linux, their alignment is 4. But not on a 32-bit Raspberry Pi OS." (FFIPlatformDescription current wordSize = 4 and: [FFIPlatformDescription current isUnix and: [FFIPlatformDescription current isARM not]]) ifTrue: [ (#('double' 'longlong' 'ulonglong') includes: typeName) ifTrue: [ byteAlignment := 4]]. "1) Regular type" type := (AtomicTypes at: typeName). compiled := WordArray with: ((byteSize bitOr: FFIFlagAtomic) bitOr: (atomicType bitShift: FFIAtomicTypeShift)). compiled ~= type compiledSpec "Preserve the identity of #compiledSpec." ifTrue: [type compiledSpec: compiled]. type byteAlignment: byteAlignment. "2) Pointer type" type := type asPointerType. compiled := WordArray with: ((self pointerSpec bitOr: FFIFlagAtomic) bitOr: (atomicType bitShift: FFIAtomicTypeShift)). compiled ~= type compiledSpec "Preserve the identity of #compiledSpec." ifTrue: [type compiledSpec: compiled]. type byteAlignment: self pointerAlignment. ].! Item was changed: ----- Method: ExternalType>>isTypeAlias (in category 'testing') ----- isTypeAlias + ^true ifTrue: [false] ifFalse: [self subclassResponsibility]! - self subclassResponsibility.! Item was added: + ----- Method: ExternalUnknownType>>readFieldAt: (in category 'external structure') ----- + readFieldAt: anInteger + ^'self error: ''cannot read field at ', anInteger printString, '; field has unknown type'''! Item was added: + ----- Method: ExternalUnknownType>>writeFieldAt:with: (in category 'external structure') ----- + writeFieldAt: anInteger with: aString + ^'self error: ''cannot read field at ', anInteger printString, ' with name ', aString, '; field has unknown type'''!

1 0

FFI: FFI-Kernel-eem.183.mcz
by commits＠source.squeak.org 26 Jul '21

26 Jul '21

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.183.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.183 Author: eem Time: 26 July 2021, 4:37:11.825452 pm UUID: ca6c0ead-738a-4ab2-a658-b4fd904c9b51 Ancestors: FFI-Kernel-eem.182 Update the FFIAtomicReadWriteSend machinery to use the new accessors. Contains the post script method: "Reinitialize FFIAtomicReadWriteSend to use the new accessors" ExternalType initializeDefaultTypes =============== Diff against FFI-Kernel-eem.182 =============== Item was changed: ----- Method: ExternalType class>>typeNamed: (in category 'instance lookup') ----- typeNamed: typeName "Supports pointer-type lookup for both atomic and structure types. Examples: 'long', 'long*', 'long *' or 'MyStruct', 'MyStruct*', 'MyStruct *', 'IntPtr', '*IntPtr' " | isPointerType isNonPointerType isArrayType actualTypeName type | - isArrayType := false. isNonPointerType := false. actualTypeName := typeName copyWithoutAll: ' '. (isPointerType := actualTypeName last == $*) "e.g. MyStruct*" ifTrue: [actualTypeName := actualTypeName allButLast]. actualTypeName last == $) "e.g. (char[])* -- pointer type for array type" ifTrue: [actualTypeName := (actualTypeName copyFrom: 2 to: actualTypeName size - 1)]. (isNonPointerType := actualTypeName first == $*) "e.g. *DoublePtr" ifTrue: [actualTypeName := actualTypeName allButFirst]. (isArrayType := actualTypeName last == $]) ifTrue: [ type := self arrayTypeNamed: actualTypeName ] ifFalse: [ (Symbol lookup: actualTypeName) ifNotNil: [:sym | actualTypeName := sym]. type := (self atomicTypeNamed: actualTypeName) ifNil: [self structTypeNamed: actualTypeName]]. + ^ type ifNotNil: + [isPointerType - ^ type ifNotNil: [ - isPointerType ifTrue: [type asPointerType "e.g. int* MyStruct* "] ifFalse: [isNonPointerType ifTrue: [type asNonPointerType "e.g. *IntPtr *MyStructPtr "] ifFalse: [type "e.g. int IntPtr MyStruct MyStructPtr "]]]! Item was changed: ----- Method: FloatReadWriteSend class>>fromType: (in category 'instance creation') ----- fromType: type + ^(self lookupSelectorsFor: type) collect: + [:selector| | arguments | + arguments := selector numArgs caseOf: { + [1] -> "e.g. doubleAt:" [#(nil)]. "byteOffset" + [2] -> "e.g. floatAt:put:" [#(nil nil)]. "byteOffset aFloat" }. + (self receiver: nil "handle" selector: selector arguments: arguments) + byteSize: type byteSize; + yourself]! - | selectors | - selectors := self lookupSelectorsFor: type. - ^ { - - (self - receiver: nil "handle" selector: selectors first - arguments: (Array - with: nil "byteOffset")) - byteSize: type byteSize; - yourself. - - (self - receiver: nil "handle" selector: selectors second - arguments: (Array - with: nil "byteOffset" - with: nil "aFloat")) - byteSize: type byteSize; - yourself - - }! Item was changed: ----- Method: IntegerReadWriteSend class>>fromType: (in category 'instance creation') ----- fromType: type "Overwritten to account for byteSize and isSigned." + + ^(self lookupSelectorsFor: type) collect: + [:selector| | arguments | + arguments := selector numArgs caseOf: { + [1] -> "e.g. int32At:" [#(nil)]. "byteOffset" + [2] -> "e.g. int8At:put:" [#(nil nil)]. "byteOffset integerValue" + [3] -> "e.g. integerAt:size:signed:" [{nil. "byteOffset" type byteSize. type isSigned}]. + [4] -> "e.g. integerAt:put:size:signed:" [{nil. "byteOffset" nil. "integerValue" type byteSize. type isSigned}] }. + (self receiver: nil "handle" selector: selector arguments: arguments) + byteSize: type byteSize; + yourself]! - - | selectors | - selectors := self lookupSelectorsFor: type. - ^ { - - (self - receiver: nil "handle" selector: selectors first - arguments: (Array - with: nil "byteOffset" - with: type byteSize - with: type isSigned)) - byteSize: type byteSize; - yourself. - - (self - receiver: nil "handle" selector: selectors second - arguments: (Array - with: nil "byteOffset" - with: nil "integerValue" - with: type byteSize - with: type isSigned)) - byteSize: type byteSize; - yourself. - }! Item was changed: + (PackageInfo named: 'FFI-Kernel') postscript: '"Reinitialize FFIAtomicReadWriteSend to use the new accessors" + ExternalType initializeDefaultTypes'! - (PackageInfo named: 'FFI-Kernel') postscript: 'Smalltalk removeFromStartUpList: ExternalAddress. - Smalltalk removeFromStartUpList: ExternalObject. - - "Introduce FFIAtomicReadWriteSend. All types need to be reset and all fields need to be re-defined." - ExternalType resetAllTypes.'!

1 0

FFI: FFI-Kernel-eem.182.mcz
by commits＠source.squeak.org 26 Jul '21

26 Jul '21

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.182.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.182 Author: eem Time: 26 July 2021, 12:02:02.569371 pm UUID: 2aa208f9-824b-4b91-b5bf-6cc01a61f26f Ancestors: FFI-Kernel-mt.181 Provide [u]int{8,16,32,64}At:[put:] accessors using new primitives in SqueakFFIPrims (failing to the old integerAt:[put:]size:signed: API). Clarify that these accessors do (& always have) access integers in the platform's native order. Allow ffiAtomicRead: & ffiAtomicWrite: pragmas to take symbols as well as arrays of symbols. Why? Because in time, with the new primtives, we will be able to discard the old slow integerAt:put:size:signed: API and this is the only one that needs the array facilities. Use symbols for the primitive pragmas; in the compiled method module and primitive funciton are symbols anyway. =============== Diff against FFI-Kernel-mt.181 =============== Item was changed: + ----- Method: ByteArray>>doubleAt: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>doubleAt: (in category '*FFI-Kernel') ----- doubleAt: byteOffset "Primitive. Return a float value from the receiver. - FAILS IF the receiver has not enough bytes for an IEEE 754 (64 bits) floating point number. - NOTE that this primitive will access memory in the outer space if invoked from ExternalAddress. - SEE Float class >> #fromIEEE64Bit: and Float >> #asIEEE64BitWord" + <primitive: #primitiveFFIDoubleAt module: #SqueakFFIPrims> + <ffiAtomicRead: #double> - <primitive:'primitiveFFIDoubleAt' module:'SqueakFFIPrims'> - <ffiAtomicRead: #( double )> "Examples: ExternalType double handle: #[ 0 0 0 255 0 0 0 0 ] at: 1. ExternalType double handle: #[ 0 0 0 255 ] at: 1. --- Error. " ^ self primitiveFailed! Item was changed: + ----- Method: ByteArray>>doubleAt:put: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>doubleAt:put: (in category '*FFI-Kernel') ----- doubleAt: byteOffset put: value "Primitive. Store the given value as IEEE 754 (64 bits) floating point number. - FAILS IF the receiver has not enough bytes for that representation. - NOTE that this primitive will access memory in the outer space if invoked from ExternalAddress. - SEE Float class >> #fromIEEE64Bit: and Float >> #asIEEE64BitWord" + <primitive: #primitiveFFIDoubleAtPut module: #SqueakFFIPrims> + <ffiAtomicWrite: #double> - <primitive:'primitiveFFIDoubleAtPut' module:'SqueakFFIPrims'> - <ffiAtomicWrite: #( double )> "Examples: ExternalType double allocate value: 123.4567890; explore ExternalType double allocate value: 0.0001; explore " ^ self primitiveFailed! Item was changed: + ----- Method: ByteArray>>floatAt: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>floatAt: (in category '*FFI-Kernel') ----- floatAt: byteOffset "Primitive. Return a float value from the receiver. - FAILS IF the receiver has not enough bytes for an IEEE 754 (32 bits) floating point number. - NOTE that this primitive will access memory in the outer space if invoked from ExternalAddress. - SEE Float class >> #fromIEEE32Bit: and Float >> #asIEEE32BitWord" + <primitive: #primitiveFFIFloatAt module: #SqueakFFIPrims> + <ffiAtomicRead: #float> - <primitive:'primitiveFFIFloatAt' module:'SqueakFFIPrims'> - <ffiAtomicRead: #( float )> "Examples: ExternalType float handle: #[ 0 0 0 255 ] at: 1. ExternalType float handle: #[ 0 0 255 ] at: 1. --- Error. " ^ self primitiveFailed! Item was changed: + ----- Method: ByteArray>>floatAt:put: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>floatAt:put: (in category '*FFI-Kernel') ----- floatAt: byteOffset put: value "Primitive. Store the given value as IEEE 754 (32 bits) floating point number. - FAILS IF the receiver has not enough bytes for that representation. - NOTE that this primitive will access memory in the outer space if invoked from ExternalAddress. - SEE Float class >> #fromIEEE32Bit: and Float >> #asIEEE32BitWord" + <primitive: #primitiveFFIFloatAtPut module: #SqueakFFIPrims> + <ffiAtomicWrite: #float> - <primitive:'primitiveFFIFloatAtPut' module:'SqueakFFIPrims'> - <ffiAtomicWrite: #( float )> "Examples: ExternalType float allocate value: 123.4567890; explore ExternalType float allocate value: 0.0001; explore " ^ self primitiveFailed! Item was added: + ----- Method: ByteArray>>int16At: (in category '*FFI-Kernel-accessing') ----- + int16At: byteOffset + "Answer the signed 16-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt16At module: #SqueakFFIPrims error: ec> + <ffiAtomicRead: #int16_t> + ^ self integerAt: byteOffset size: 2 signed: true! Item was added: + ----- Method: ByteArray>>int16At:put: (in category '*FFI-Kernel-accessing') ----- + int16At: byteOffset put: value + "Store the signed 16-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt16AtPut module: #SqueakFFIPrims error: ec> + <ffiAtomicWrite: #int16_t> + ^ self integerAt: byteOffset put: value size: 2 signed: true! Item was added: + ----- Method: ByteArray>>int32At: (in category '*FFI-Kernel-accessing') ----- + int32At: byteOffset + "Answer the signed 32-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt32At module: #SqueakFFIPrims error: ec> + <ffiAtomicRead: #int32_t> + ^ self integerAt: byteOffset size: 4 signed: true! Item was added: + ----- Method: ByteArray>>int32At:put: (in category '*FFI-Kernel-accessing') ----- + int32At: byteOffset put: value + "Store the signed 32-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt32AtPut module: #SqueakFFIPrims error: ec> + <ffiAtomicWrite: #int32_t> + ^ self integerAt: byteOffset put: value size: 4 signed: true! Item was added: + ----- Method: ByteArray>>int64At: (in category '*FFI-Kernel-accessing') ----- + int64At: byteOffset + "Answer the signed 64-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt64At module: #SqueakFFIPrims error: ec> + <ffiAtomicRead: #int64_t> + ^ self integerAt: byteOffset size: 8 signed: true! Item was added: + ----- Method: ByteArray>>int64At:put: (in category '*FFI-Kernel-accessing') ----- + int64At: byteOffset put: value + "Store the signed 64-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt64AtPut module: #SqueakFFIPrims error: ec> + <ffiAtomicWrite: #int64_t> + ^ self integerAt: byteOffset put: value size: 8 signed: true! Item was added: + ----- Method: ByteArray>>int8At: (in category '*FFI-Kernel-accessing') ----- + int8At: byteOffset + "Answer the signed 8-bit integer at byte offset." + <primitive: #primitiveSignedInt8At module: #SqueakFFIPrims error: ec> + <ffiAtomicRead: #int8_t> + ^ self integerAt: byteOffset size: 1 signed: true! Item was added: + ----- Method: ByteArray>>int8At:put: (in category '*FFI-Kernel-accessing') ----- + int8At: byteOffset put: value + "Store the signed 8-bit integer at byte offset." + <primitive: #primitiveSignedInt8AtPut module: #SqueakFFIPrims error: ec> + <ffiAtomicWrite: #int8_t> + ^ self integerAt: byteOffset put: value size: 1 signed: true! Item was changed: + ----- Method: ByteArray>>integerAt:put:size:signed: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>integerAt:put:size:signed: (in category '*FFI-Kernel') ----- integerAt: byteOffset put: value size: nBytes signed: aBoolean "Primitive. Store the given value as integer of nBytes size in the receiver. + - BYTE ORDER is platform native order. - - BYTE ORDER is Smalltalk order, which is little-endian. - FAILS IF the value is out of range. - NOTE that this primitive will access memory in the outer space if invoked from ExternalAddress." + <primitive: #primitiveFFIIntegerAtPut module: #SqueakFFIPrims> - <primitive: 'primitiveFFIIntegerAtPut' module:'SqueakFFIPrims'> <ffiAtomicWrite: #( int8_t uint8_t int16_t uint16_t int32_t uint32_t int64_t uint64_t ) > "Examples: ExternalType int32_t allocate value: -1; explore. ExternalType uint32_t allocate value: 1; explore. " ^ self primitiveFailed! Item was changed: + ----- Method: ByteArray>>integerAt:size:signed: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>integerAt:size:signed: (in category '*FFI-Kernel') ----- integerAt: byteOffset size: nBytes signed: aBoolean "Primitive. Return an integer of nBytes size from the receiver. + - BYTE ORDER is platform native order. - - BYTE ORDER is Smalltalk order, which is little-endian. - FAILS IF the receiver has not enough bytes. - NOTE that this primitive will access memory in the outer space if invoked from ExternalAddress." + <primitive: #primitiveFFIIntegerAt module: #SqueakFFIPrims> - <primitive: 'primitiveFFIIntegerAt' module:'SqueakFFIPrims'> <ffiAtomicRead: #( int8_t uint8_t int16_t uint16_t int32_t uint32_t int64_t uint64_t ) > "Examples: ExternalType int32_t handle: #[ 255 0 0 255 ] at: 1. ExternalType uint32_t handle: #[ 255 0 0 255 ] at: 1. " ^ self primitiveFailed! Item was changed: + ----- Method: ByteArray>>pointerAt:length: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>pointerAt:length: (in category '*FFI-Kernel') ----- pointerAt: byteOffset length: length "Return a pointer of the given length starting at the indicated byte offset." | pointer startByteOffset | pointer := ExternalAddress basicNew: length. startByteOffset := byteOffset - 1. 1 to: length do: [:pointerByteOffset | pointer basicAt: pointerByteOffset put: (self unsignedByteAt: startByteOffset + pointerByteOffset)]. ^ pointer! Item was changed: + ----- Method: ByteArray>>pointerAt:put:length: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>pointerAt:put:length: (in category '*FFI-Kernel') ----- pointerAt: byteOffset put: pointer length: length "Store a pointer of the given length starting at the indicated byte offset." | startByteOffset | self assert: [pointer isExternalAddress]. startByteOffset := byteOffset - 1. 1 to: length do: [:pointerByteOffset | self unsignedByteAt: startByteOffset + pointerByteOffset put: (pointer basicAt: pointerByteOffset)]. ^ pointer! Item was changed: + ----- Method: ByteArray>>structAt:length: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>structAt:length: (in category '*FFI-Kernel') ----- structAt: byteOffset length: length "Return a structure of the given length starting at the indicated byte offset." | value startByteOffset | self flag: #todo. "mt: Better name #unsignedBytesAt:length:?" value := ByteArray new: length. startByteOffset := byteOffset - 1. 1 to: length do: [:valueByteOffset | value unsignedByteAt: valueByteOffset put: (self unsignedByteAt: startByteOffset + valueByteOffset)]. ^ value! Item was changed: + ----- Method: ByteArray>>structAt:put:length: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>structAt:put:length: (in category '*FFI-Kernel') ----- structAt: byteOffset put: value length: length "Store a structure of the given length starting at the indicated byte offset." | startByteOffset | self flag: #todo. "mt: Better name #unsignedBytesAt:put:length:?" startByteOffset := byteOffset - 1. 1 to: length do: [:valueByteOffset | self unsignedByteAt: startByteOffset + valueByteOffset put: (value unsignedByteAt:valueByteOffset)]. ^ value! Item was changed: + ----- Method: ByteArray>>type:at: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>type:at: (in category '*FFI-Kernel') ----- type: spec at: byteOffset "For convenience, when the receiver needs to filled with a mix of typed contents. See FFICallback for an example." ^ (ExternalType lookupType: spec) handle: self at: byteOffset! Item was changed: + ----- Method: ByteArray>>type:at:put: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>type:at:put: (in category '*FFI-Kernel') ----- type: spec at: byteOffset put: value "For convenience, when the receiver needs to filled with a mix of typed contents. See FFICallback for an example." ^ (ExternalType lookupType: spec) handle: self at: byteOffset put: value! Item was added: + ----- Method: ByteArray>>uint16At: (in category '*FFI-Kernel-accessing') ----- + uint16At: byteOffset + "Answer the signed 16-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt16At module: #SqueakFFIPrims error: ec> + <ffiAtomicRead: #uint16_t> + ^ self integerAt: byteOffset size: 2 signed: false! Item was added: + ----- Method: ByteArray>>uint16At:put: (in category '*FFI-Kernel-accessing') ----- + uint16At: byteOffset put: value + "Store the unsigned 16-bit integer at byte offset, in platform native order." + <primitive: #primitiveUnsignedInt16AtPut module: #SqueakFFIPrims error: ec> + <ffiAtomicWrite: #uint16_t> + ^ self integerAt: byteOffset put: value size: 2 signed: false! Item was added: + ----- Method: ByteArray>>uint32At: (in category '*FFI-Kernel-accessing') ----- + uint32At: byteOffset + "Answer the signed 32-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt32At module: #SqueakFFIPrims error: ec> + <ffiAtomicRead: #uint32_t> + ^ self integerAt: byteOffset size: 4 signed: false! Item was added: + ----- Method: ByteArray>>uint32At:put: (in category '*FFI-Kernel-accessing') ----- + uint32At: byteOffset put: value + "Store the unsigned 32-bit integer at byte offset, in platform native order." + <primitive: #primitiveUnsignedInt32AtPut module: #SqueakFFIPrims error: ec> + <ffiAtomicWrite: #uint32_t> + ^ self integerAt: byteOffset put: value size: 4 signed: false! Item was added: + ----- Method: ByteArray>>uint64At: (in category '*FFI-Kernel-accessing') ----- + uint64At: byteOffset + "Answer the signed 64-bit integer at byte offset, in platform native order." + <primitive: #primitiveSignedInt64At module: #SqueakFFIPrims error: ec> + <ffiAtomicRead: #uint64_t> + ^ self integerAt: byteOffset size: 8 signed: false! Item was added: + ----- Method: ByteArray>>uint64At:put: (in category '*FFI-Kernel-accessing') ----- + uint64At: byteOffset put: value + "Store the unsigned 64-bit integer at byte offset, in platform native order." + <primitive: #primitiveUnsignedInt64AtPut module: #SqueakFFIPrims error: ec> + <ffiAtomicWrite: #uint64_t> + ^ self integerAt: byteOffset put: value size: 8 signed: false! Item was added: + ----- Method: ByteArray>>uint8At: (in category '*FFI-Kernel-accessing') ----- + uint8At: byteOffset + "Answer the unsigned 8-bit integer at byte offset." + <primitive: #primitiveUnsignedInt8At module: #SqueakFFIPrims error: ec> + <ffiAtomicRead: #uint8_t> + ^ self integerAt: byteOffset size: 1 signed: false! Item was added: + ----- Method: ByteArray>>uint8At:put: (in category '*FFI-Kernel-accessing') ----- + uint8At: byteOffset put: value + "Store the unsigned 8-bit integer at byte offset." + <primitive: #primitiveUnsignedInt8AtPut module: #SqueakFFIPrims error: ec> + <ffiAtomicWrite: #uint8_t> + ^ self integerAt: byteOffset put: value size: 1 signed: false! Item was changed: + ----- Method: ByteArray>>unsignedByteAt: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>unsignedByteAt: (in category '*FFI-Kernel') ----- unsignedByteAt: byteOffset "Same as #byteAt: but different primitive to support ExternalAddress." + <primitive: #primitiveUnsignedInt8At module: #SqueakFFIPrims error: ec> - ^ self integerAt: byteOffset size: 1 signed: false! Item was changed: + ----- Method: ByteArray>>unsignedByteAt:put: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>unsignedByteAt:put: (in category '*FFI-Kernel') ----- unsignedByteAt: byteOffset put: value "Same as #byteAt: but different primitive to support ExternalAddress." ^ self integerAt: byteOffset put: value size: 1 signed: false! Item was changed: + ----- Method: ByteArray>>zeroMemory: (in category '*FFI-Kernel-accessing') ----- - ----- Method: ByteArray>>zeroMemory: (in category '*FFI-Kernel') ----- zeroMemory: numBytes + | index size | + index := 1. + size := self size - 7. + [index <= size] whileTrue: + [self uint64At: index put: 0. + index := index + 8]. + size := size + 4. "7 - 3, i.e. self size - 3" + index <= size ifTrue: + [self uint32At: index put: 0. + index := index + 4]. + size := size + 2. "3 - 1, i.e. self size - 1" + index <= size ifTrue: + [self uint16At: index put: 0. + index := index + 2]. + index < size ifTrue: + [self uint8At: index put: 0]! - 1 to: numBytes do: [:index | - self unsignedByteAt: index put: 0].! Item was changed: ----- Method: ExternalAddress class>>allocate: (in category 'instance creation') ----- allocate: byteSize "Primitive. Allocates byteSize bytes on the external heap. Answers an address pointing to those bytes. WARNING bytes might not be zero'ed!!" + <primitive: #primitiveFFIAllocate module: #SqueakFFIPrims> - <primitive:'primitiveFFIAllocate' module:'SqueakFFIPrims'> self flag: #todo. "mt: Ensure zero'ed memory." ^ self primitiveFailed! Item was changed: ----- Method: ExternalAddress class>>loadSymbol:module: (in category 'instance creation') ----- loadSymbol: moduleSymbol module: module + <primitive: #primitiveLoadSymbolFromModule module: #SqueakFFIPrims> - <primitive: 'primitiveLoadSymbolFromModule' module: 'SqueakFFIPrims'> ^ self primitiveFailed! Item was changed: ----- Method: ExternalAddress>>asInteger (in category 'arithmetic') ----- asInteger "Convert address to integer. Change class to not follow the address when reading bytes." + <primitive: #primitiveExternalAddressAsInteger module: #SqueakFFIPrims> + | class | + class := self class. + ^[self changeClassTo: ByteArray. + self integerAt: 1 size: self size signed: false] + ensure: [self changeClassTo: class]! - - | result | - [self changeClassTo: ByteArray. - result := self integerAt: 1 size: self size signed: false] - ensure: [self changeClassTo: ExternalAddress]. - - ^ result! Item was changed: ----- Method: ExternalAddress>>free (in category 'initialize-release') ----- free "Primitive. Free the object pointed to on the external heap. Dangerous - may break your system if the receiver hasn't been allocated by ExternalAddress class>>allocate:. No checks are done." + <primitive: #primitiveFFIFree module: #SqueakFFIPrims> - <primitive:'primitiveFFIFree' module:'SqueakFFIPrims'> ^self primitiveFailed! Item was changed: ----- Method: ExternalFunction class>>getLastError (in category 'error handling') ----- getLastError "Return the last error from an external call. Only valid immediately after the external call failed." + <primitive: #primitiveFFIGetLastError module: #SqueakFFIPrims> - <primitive: 'primitiveFFIGetLastError' module:'SqueakFFIPrims'> ^-1! Item was changed: ----- Method: ExternalFunction>>invokeWithArguments: (in category 'invoking') ----- invokeWithArguments: argArray "Manually invoke the receiver, representing an external function." + <primitive: #primitiveCalloutWithArgs module: #SqueakFFIPrims error: ec> - <primitive: 'primitiveCalloutWithArgs' module: 'SqueakFFIPrims' error: ec> ^self externalCallFailed! Item was changed: ----- Method: ExternalFunction>>tryInvokeWithArguments: (in category 'invoking') ----- tryInvokeWithArguments: argArray "Sent from the debugger to simulate an FFI call." + <primitive: #primitiveCalloutWithArgs module: #SqueakFFIPrims error: ec> - <primitive: 'primitiveCalloutWithArgs' module: 'SqueakFFIPrims' error: ec> ^thisContext class primitiveFailTokenFor: ec! Item was changed: ----- Method: ExternalLibrary>>forceLoading (in category 'initialize-release') ----- forceLoading "Primitive. Force loading the given library. The primitive will fail if the library is not available or if anything is wrong with the receiver." + <primitive: #primitiveForceLoad module: #SqueakFFIPrims> - <primitive: 'primitiveForceLoad' module:'SqueakFFIPrims'> ^self externalCallFailed "The primitive will set the error code"! Item was changed: ----- Method: FFIAtomicReadWriteSend class>>lookupSelectorsFor: (in category 'instance creation') ----- lookupSelectorsFor: atomicType - | result | + result := { nil. "read selector" nil "write selector" }. + "Maybe these selectors should be cached in a couple of class variables?" + (((ByteArray organization listAtCategoryNamed: #'*FFI-Kernel-accessing') sorted: [:s1 :s2| s1 numArgs <= s2 numArgs]) + collect: [:selector| ByteArray compiledMethodAt: selector]) + do: [:method | + (self pragma: (method pragmaAt: #ffiAtomicRead:) selectsAtomicType: atomicType) ifTrue: + [result at: 1 put: method selector. + (result at: 2) ifNotNil: [^result]]. + (self pragma: (method pragmaAt: #ffiAtomicWrite:) selectsAtomicType: atomicType) ifTrue: + [result at: 2 put: method selector. + (result at: 1) ifNotNil: [^result]]]. - result := Array with: nil "read selector" with: nil "write selector". - ByteArray methodsDo: [:method | - (method pragmaAt: #ffiAtomicRead:) ifNotNil: [:pragma | - ((pragma argumentAt: 1) anySatisfy: [:typeName | - (ExternalType atomicTypeNamed: typeName) = atomicType]) - ifTrue: [result at: 1 put: method selector]]. - (method pragmaAt: #ffiAtomicWrite:) ifNotNil: [:pragma | - ((pragma argumentAt: 1) anySatisfy: [:typeName | - (ExternalType atomicTypeNamed: typeName) = atomicType]) - ifTrue: [result at: 2 put: method selector]]. - (result first notNil and: [result second notNil]) - ifTrue: [^ result "early out"]]. + self error: 'Could not find selectors for both read and write!!'. + ^result! - (result first isNil or: [result second isNil]) - ifTrue: [self error: 'Could not find selectors for both read and write!!']. - - ^ result! Item was added: + ----- Method: FFIAtomicReadWriteSend class>>pragma:selectsAtomicType: (in category 'instance creation') ----- + pragma: pragmaOrNil selectsAtomicType: atomicType + | pragmaLiteral | + pragmaOrNil ifNil: [^false]. + pragmaLiteral := pragmaOrNil argumentAt: 1. + pragmaLiteral isArray ifTrue: + [^pragmaLiteral anySatisfy: + [:typeName| (ExternalType atomicTypeNamed: typeName) = atomicType]]. + ^(ExternalType atomicTypeNamed: pragmaLiteral) = atomicType!

1 0

The Trunk: Kernel-eem.1408.mcz
by commits＠source.squeak.org 25 Jul '21

25 Jul '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1408.mcz ==================== Summary ==================== Name: Kernel-eem.1408 Author: eem Time: 25 July 2021, 10:23:50.0232 am UUID: 0c8e9349-43a9-4f08-b6f5-acb3b31aa3f9 Ancestors: Kernel-eem.1407 Make it more convenient to move declarations into SharedPools. =============== Diff against Kernel-eem.1407 =============== Item was added: + ----- Method: SharedPool class>>declare:from: (in category 'adding') ----- + declare: key from: aDictionaryOrBehavior + self ensureClassPool. + ^classPool + declare: key + from: (aDictionaryOrBehavior isBehavior + ifTrue: [aDictionaryOrBehavior classPool] + ifFalse: [aDictionaryOrBehavior])!

1 0

The Trunk: Tools-mt.1061.mcz
by commits＠source.squeak.org 21 Jul '21

21 Jul '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1061.mcz ==================== Summary ==================== Name: Tools-mt.1061 Author: mt Time: 21 July 2021, 10:54:32.505807 am UUID: 0ac1dc96-237d-4fee-aef8-97dafa9f04af Ancestors: Tools-eem.1060 Complements System-mt.1240 =============== Diff against Tools-eem.1060 =============== Item was changed: ----- Method: CodeHolder>>messageHelpForMethod: (in category 'message list') ----- messageHelpForMethod: aMethod "Answer the formatted help text for a method." "Show the first n lines of the source code of the method." | source formatted | source := aMethod getSource. + formatted := (TextStyler for: #Smalltalk) - formatted := (Smalltalk classNamed: #SHTextStylerST80) ifNil: [ source asText ] ifNotNil: [ :textStylerClass | textStylerClass new classOrMetaClass: aMethod methodClass; styledTextFor: source asText ]. ^ self messageHelpTruncated: formatted! Item was changed: ----- Method: Inspector>>initialize (in category 'initialization') ----- initialize super initialize. customFields := OrderedCollection new. selectionIndex := 0. + fieldListStyler := (TextStyler for: #Smalltalk) - fieldListStyler := (Smalltalk classNamed: #SHTextStylerST80) ifNotNil: [:class | class new].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2021