Marcel Taeumel uploaded a new version of FFI-Pools to project FFI: http://source.squeak.org/FFI/FFI-Pools-mt.23.mcz
==================== Summary ====================
Name: FFI-Pools-mt.23 Author: mt Time: 12 June 2020, 4:12:31.231744 pm UUID: 6438a62d-b9fe-da46-9a0b-ae178c90edff Ancestors: FFI-Pools-mt.22
Make conversion of Squeak FFI atomic types to C type names accessible to FFI-Tools package.
=============== Diff against FFI-Pools-mt.22 ===============
Item was added: + ----- Method: ExternalPoolReadWriter class>>cFormatPlaceholderFor: (in category 'code generation') ----- + cFormatPlaceholderFor: externalType + + AtomicCFormatPlaceholders ifNil: [self class initializeAtomicTypesExtra]. + + ^ externalType isPointerType + ifTrue: ['%p'] + ifFalse: [ + AtomicCFormatPlaceholders + at: externalType atomicType + ifAbsent: [nil]]!
Item was added: + ----- Method: ExternalPoolReadWriter class>>cTypeNameFor: (in category 'code generation') ----- + cTypeNameFor: externalType + + | cTypeName | + AtomicCTypeNames ifNil: [self class initializeAtomicTypesExtra]. + + cTypeName := AtomicCTypeNames + at: externalType atomicType + ifAbsent: [nil]. + + ^ externalType isPointerType + ifTrue: [cTypeName, ' *'] + ifFalse: [cTypeName]!
Item was changed: ----- Method: ExternalPoolReadWriter>>cFormatPlaceholderFor: (in category 'writing - support') ----- cFormatPlaceholderFor: externalType - "Limit access to printf format placeholders to instances of pool read-writers only."
+ ^ self class cFormatPlaceholderFor: externalType! - AtomicCFormatPlaceholders ifNil: [self class initializeAtomicTypesExtra]. - - ^ externalType isPointerType - ifTrue: ['%p'] - ifFalse: [ - AtomicCFormatPlaceholders - at: externalType atomicType - ifAbsent: [nil]]!
Item was changed: ----- Method: ExternalPoolReadWriter>>cTypeNameFor: (in category 'writing - support') ----- cTypeNameFor: externalType - "Limit access to C type names to instances of pool read-writers only."
+ ^ self class cTypeNameFor: externalType! - | cTypeName | - AtomicCTypeNames ifNil: [self class initializeAtomicTypesExtra]. - - cTypeName := AtomicCTypeNames - at: externalType atomicType - ifAbsent: [nil]. - - ^ externalType isPointerType - ifTrue: [cTypeName, ' *'] - ifFalse: [cTypeName]!
packages@lists.squeakfoundation.org