FFI: FFI-Pools-mt.16.mcz

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

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

Name: FFI-Pools-mt.16
Author: mt
Time: 28 May 2020, 9:20:47.243479 am
UUID: ff3070e5-d241-6346-95a1-3b809f56a4bd
Ancestors: FFI-Pools-mt.15

Moves interpretation of <ffiExternalSharedPool> pragma to the definition class where all other pragmas are interpreted and documented already.

Adds simple way to explore pool definitions by calling the method that holds the definition pragmas:

MyExternalPool class >> #win32ExamplePool
  <ffiExternalSharedPool>
  <ffiPlatformName: 'Win32'>
  ^ self poolDefinition

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

Item was changed:
  ----- Method: FFIExternalSharedPool class>>definitions (in category 'accessing') -----
  definitions
- | definitions |
 
+ | definitions |
  definitions := OrderedCollection with: self defaultDefinition.
 
  self class methodsDo: [:each |
+ (self definitionClass fromMethod: each) ifNotNil: [:poolDefinition |
+ definitions add: poolDefinition]].
- (each pragmaAt: #ffiExternalSharedPool)
- ifNotNil: [
- definitions addLast:
- (self definitionClass fromMethod: each)]].
 
+ ^ definitions!
- ^ definitions asArray.!

Item was added:
+ ----- Method: FFIExternalSharedPool class>>poolDefinition (in category 'accessing') -----
+ poolDefinition
+ "For convenience. Answer the result of this call in definition methods to support debugging."
+
+ thisContext sender method ifNotNil: [:poolDefinitionMethod |
+ (self definitionClass fromMethod: poolDefinitionMethod)
+ ifNotNil: [:poolDefinition | ^ poolDefinition]].
+
+ self error: 'Sender is no valid pool definition!!'.!

Item was changed:
  ----- Method: FFIExternalSharedPoolDefinition class>>fromMethod: (in category 'instance creation') -----
  fromMethod: aCompiledMethod
  | definition |
 
+ (aCompiledMethod pragmaAt: #ffiExternalSharedPool)
+ ifNil: [^ nil].
+
  definition := self name: aCompiledMethod selector.
 
  "Squeak does not have #pragmasDo:"
  aCompiledMethod pragmas do: [:each |
  (self whichCategoryIncludesSelector: each keyword) == #'pragmas'
  ifTrue: [
  definition
  perform: each keyword
  withArguments: each arguments]].
 
  ^ definition.!