FFI: FFI-Pools-mt.21.mcz

Marcel Taeumel uploaded a new version of FFI-Pools to project FFI:
http://source.squeak.org/FFI/FFI-Pools-mt.21.mcz

==================== Summary ====================

Name: FFI-Pools-mt.21
Author: mt
Time: 6 June 2020, 2:13:55.081722 pm
UUID: 60c8c90c-9c2d-e04d-955b-c89392ba186c
Ancestors: FFI-Pools-mt.20

Complements FFI-Kernel-mt.97

=============== Diff against FFI-Pools-mt.20 ===============

Item was changed:
  ----- Method: ExternalPoolDefinition>>ffiVariable:type:convertTo: (in category 'pragmas') -----
  ffiVariable: aVariableName type: aVariableTypeName convertTo: aClassName
 
  | externalType targetClassName targetClass |
  "0) Skip variables with nil type."
  aVariableTypeName ifNil: [
  ^ self variablesAndTypesAt: aVariableName put: nil].
 
  "1) Look up external type from type name."
+ targetClassName := aClassName.
+ externalType := (ExternalType atomicTypeNamed: aVariableTypeName)
- externalType := (ExternalType atomicTypeNamed: (aVariableTypeName findTokens: '*') first withBlanksTrimmed)
- ifNotNil: [:atomicType |
- targetClassName := aClassName.
- aVariableTypeName last = $*
- ifTrue: [atomicType asPointerType]
- ifFalse: [atomicType]]
  ifNil: [ "Backwards compatiblility only. Try to not write class names as <... type: ...>."
  targetClassName := aVariableTypeName.
  self externalTypeForClassName: aVariableTypeName].
 
  "2) Look up class in current environment."
  targetClass := (self environment classNamed: targetClassName) ifNil: [
  ExternalPoolError signal:
  'Cannot convert to ', aClassName, ' from C type; ',
  'no matching Smalltalk class found'].
 
  "3) Try to specialize conversion class."
  (externalType = ExternalType float or: [externalType = ExternalType double])
  ifTrue: [(Float includesBehavior: targetClass) ifTrue: [targetClass := Float]].
  (externalType = ExternalType char asPointerType)
  ifTrue: [(String includesBehavior: targetClass) ifTrue: [targetClass := String]].
 
  "4) Store the resulting type spec for pool read-writers to use."
  self
  variablesAndTypesAt: aVariableName
  put: externalType -> targetClass.!