[squeak-dev] FFI: FFI-PoolsTests-mt.9.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jun 2 18:12:52 UTC 2020
Marcel Taeumel uploaded a new version of FFI-PoolsTests to project FFI:
http://source.squeak.org/FFI/FFI-PoolsTests-mt.9.mcz
==================== Summary ====================
Name: FFI-PoolsTests-mt.9
Author: mt
Time: 2 June 2020, 8:12:50.968821 pm
UUID: e395981b-0a1c-3f44-b5ee-fe733d5e47cd
Ancestors: FFI-PoolsTests-mt.8
Complements FFI-Pools-mt.18
=============== Diff against FFI-PoolsTests-mt.8 ===============
Item was added:
+ ExternalPool subclass: #FFIExampleExternalPool
+ instanceVariableNames: ''
+ classVariableNames: 'EAGAIN EIO EWOULDBLOCK INT_MAX M_E M_PI ULONG_MAX'
+ poolDictionaries: ''
+ category: 'FFI-PoolsTests'!
+
+ !FFIExampleExternalPool commentStamp: 'monty 4/17/2018 13:15' prior: 0!
+ A buildable example FFIExternalSharedPool that uses standard POSIX headers and symbols.
+
+ self generateProgram.
+ self initializeFromGeneratedProgramOutput.!
Item was added:
+ ----- Method: FFIExampleExternalPool class>>errors (in category 'definitions') -----
+ errors
+ "
+ self errors writePoolData.
+ self errors readPoolData.
+ "
+ <ffiExternalPool>
+ <ffiPoolDataStorage: #methodSource>
+
+ <ffiCHeaders: #('<errno.h>')>
+
+ <ffiVariable: #EAGAIN type: 'long' convertTo: #Integer>
+ <ffiVariable: #EWOULDBLOCK type: 'long' convertTo: #Integer>
+ <ffiVariable: #EIO type: nil>
+ <ffiVariable: #M_PI type: nil>
+ <ffiVariable: #M_E type: nil>
+ <ffiVariable: #ULONG_MAX type: nil>
+ <ffiVariable: #INT_MAX type: nil>
+
+ ^ self poolDefinition!
Item was added:
+ ----- Method: FFIExampleExternalPool class>>errorsData (in category 'definitions - data') -----
+ errorsData
+ "Automatically generated."
+ <ffiPoolReadWriter: #ExternalPoolST1ReadWriter>
+ <ffiPoolDataStorage: #methodSource>
+ "
+ FFIExampleExternalPool errors readPoolDataFrom: #methodSource.
+ FFIExampleExternalPool errors writePoolDataTo: #methodSource.
+ "
+ ^ {
+ (FFIPlatformDescription name: 'Win32' osVersion: '10.0' subtype: 'IX86' wordSize: 4).
+ Dictionary new
+ at: #EWOULDBLOCK put: 16r0000000B;
+ at: #EAGAIN put: 16r0000000B;
+ yourself.
+ }
+ !
Item was added:
+ ----- Method: FFIExampleExternalPool class>>limits (in category 'definitions') -----
+ limits
+ "
+ self limits writePoolData.
+ self limits readPoolData.
+ "
+ <ffiExternalPool>
+ <ffiPoolDataStorage: #methodSource>
+
+ <ffiInheritsFrom: #math>
+
+ <ffiCHeaders: #('<math.h>' '<errno.h>' '<limits.h>')>
+ <ffiVariable: #ULONG_MAX type: 'ulong' convertTo: #LargePositiveInteger>
+ <ffiVariable: #INT_MAX type: 'long' convertTo: #Integer>
+
+ ^ self poolDefinition!
Item was added:
+ ----- Method: FFIExampleExternalPool class>>limitsData (in category 'definitions - data') -----
+ limitsData
+ "Automatically generated."
+ <ffiPoolReadWriter: #ExternalPoolST1ReadWriter>
+ <ffiPoolDataStorage: #methodSource>
+ "
+ FFIExampleExternalPool limits readPoolDataFrom: #methodSource.
+ FFIExampleExternalPool limits writePoolDataTo: #methodSource.
+ "
+ ^ {
+ (FFIPlatformDescription name: 'Win32' osVersion: '10.0' subtype: 'IX86' wordSize: 4).
+ Dictionary new
+ at: #M_E put: (ExternalPoolST1ReadWriter readFloatFrom: '2.718281745910644531250e+00');
+ at: #M_PI put: (ExternalPoolST1ReadWriter readFloatFrom: '3.141592741012573242188e+00');
+ at: #EWOULDBLOCK put: 16r0000000B;
+ at: #EAGAIN put: 16r0000000B;
+ at: #INT_MAX put: 16r7FFFFFFF;
+ at: #ULONG_MAX put: 4294967295;
+ yourself.
+ }
+ !
Item was added:
+ ----- Method: FFIExampleExternalPool class>>math (in category 'definitions') -----
+ math
+ "
+ self math writePoolData.
+ self math readPoolData.
+ "
+ <ffiExternalPool>
+ <ffiPoolDataStorage: #methodSource>
+
+ <ffiInheritsFrom: #errors>
+
+ <ffiCHeaders: #('<errno.h>' '<math.h>')>
+ <ffiVariable: #M_PI type: 'float' convertTo: #Float>
+ <ffiVariable: #M_E type: 'float' convertTo: #Float>
+
+ ^ self poolDefinition!
Item was added:
+ ----- Method: FFIExampleExternalPool class>>mathData (in category 'definitions - data') -----
+ mathData
+ "Automatically generated."
+ <ffiPoolReadWriter: #ExternalPoolST1ReadWriter>
+ <ffiPoolDataStorage: #methodSource>
+ "
+ FFIExampleExternalPool math readPoolDataFrom: #methodSource.
+ FFIExampleExternalPool math writePoolDataTo: #methodSource.
+ "
+ ^ {
+ (FFIPlatformDescription name: 'Win32' osVersion: '10.0' subtype: 'IX86' wordSize: 4).
+ Dictionary new
+ at: #M_PI put: (ExternalPoolST1ReadWriter readFloatFrom: '3.141592741012573242188e+00');
+ at: #EWOULDBLOCK put: 16r0000000B;
+ at: #EAGAIN put: 16r0000000B;
+ at: #M_E put: (ExternalPoolST1ReadWriter readFloatFrom: '2.718281745910644531250e+00');
+ yourself.
+ }
+ !
Item was removed:
- FFIExternalSharedPool subclass: #FFIExampleStandardExternalSharedPool
- instanceVariableNames: ''
- classVariableNames: 'EAGAIN EIO EWOULDBLOCK INT_MAX M_E M_PI ULONG_MAX'
- poolDictionaries: ''
- category: 'FFI-PoolsTests'!
-
- !FFIExampleStandardExternalSharedPool commentStamp: 'monty 4/17/2018 13:15' prior: 0!
- A buildable example FFIExternalSharedPool that uses standard POSIX headers and symbols.
-
- self generateProgram.
- self initializeFromGeneratedProgramOutput.!
Item was removed:
- ----- Method: FFIExampleStandardExternalSharedPool class>>errors (in category 'definitions') -----
- errors
- <ffiExternalSharedPool>
- <ffiCHeaders: #('<errno.h>')>
- <ffiVariable: #EAGAIN type: #Integer>
- <ffiVariable: #EWOULDBLOCK type: #Integer>
- <ffiVariable: #EIO type: nil>
- <ffiVariable: #M_PI type: nil>
- <ffiVariable: #M_E type: nil>
- <ffiVariable: #ULONG_MAX type: nil>
- <ffiVariable: #INT_MAX type: nil>!
Item was removed:
- ----- Method: FFIExampleStandardExternalSharedPool class>>limits (in category 'definitions') -----
- limits
- <ffiExternalSharedPool>
- <ffiInheritsFrom: #math>
- <ffiPlatformName: 'unix' wordSize: 4>
- <ffiCFlags: '-Wall -o'>
- <ffiCHeaders: #('<math.h>' '<errno.h>' '<limits.h>')>
- <ffiVariable: #ULONG_MAX type: #LargePositiveInteger>
- <ffiVariable: #INT_MAX type: #Integer>!
Item was removed:
- ----- Method: FFIExampleStandardExternalSharedPool class>>math (in category 'definitions') -----
- math
- <ffiExternalSharedPool>
- <ffiInheritsFrom: #errors>
- <ffiPlatformName: 'unix'>
- <ffiCHeaders: #('<errno.h>' '<math.h>')>
- <ffiVariable: #M_PI type: #Float>
- <ffiVariable: #M_E type: #Float>!
Item was changed:
----- Method: FFIExternalSharedPoolProgramGeneratorTest>>newProgramGenerator (in category 'instance creation') -----
newProgramGenerator
+
^ self programGeneratorClass
on: String new writeStream
+ lineEnding: String lf
+ cHeaders: #()!
- definition: FFITestExternalSharedPool defaultDefinition!
Item was changed:
----- Method: FFIExternalSharedPoolProgramGeneratorTest>>programGeneratorClass (in category 'accessing') -----
programGeneratorClass
+ ^ ExternalPoolProgramGenerator!
- ^ FFIExternalSharedPoolProgramGenerator!
Item was changed:
----- Method: FFIExternalSharedPoolProgramGeneratorTest>>testEmitAllFormat (in category 'tests') -----
testEmitAllFormat
| programGenerator |
programGenerator := self newProgramGenerator.
self assert:
(programGenerator
emitAll: '${1}two${2}$two$${1}'
format: {'one'. 'three'}) == programGenerator.
+ self assert: programGenerator stream contents = 'onetwothree$two$one'.
- self assert: programGenerator contents = 'onetwothree$two$one'.
programGenerator := self newProgramGenerator.
self assert:
(programGenerator
emitAll: '${one}two${three}$two$${one}'
format: (Dictionary withAll: {'one' -> 1. 'three' -> 3})) == programGenerator.
+ self assert: programGenerator stream contents = '1two3$two$1'.
- self assert: programGenerator contents = '1two3$two$1'.
self
should:
[self newProgramGenerator
emitAll: '${1}${2}'
format: {1}]
raise: Error.
self
should:
[self newProgramGenerator
emitAll: '${one}${two}'
format: {'one' -> 1} asDictionary]
raise: Error.!
Item was changed:
----- Method: FFIExternalSharedPoolProgramGeneratorTest>>testLineEnding (in category 'tests') -----
testLineEnding
{Character cr. Character lf. String crlf. 'NL'. $N}
do: [:each | | programGenerator leString |
programGenerator := self newProgramGenerator.
+ self assert: (programGenerator setLineEnding: each) == programGenerator.
- self assert: (programGenerator lineEnding: each) == programGenerator.
leString := each asString.
self
assert: programGenerator lineEnding
equals: leString.
programGenerator
emitAll: 'one';
emitLineEnding;
emitAll: 'two', String lf, 'three';
+ emit: Character cr; "Rely on automatic conversion here."
- emit: Character cr;
emitAll: 'four'.
self
+ assert: programGenerator stream contents
- assert: programGenerator contents
equals:
'one', leString, 'two', leString, 'three', leString, 'four']!
Item was changed:
----- Method: FFIExternalSharedPoolTest>>assertIsDefaultDefinition:for: (in category 'asserting') -----
assertIsDefaultDefinition: aDefinition for: aSharedPool
| classPool |
self
assert: aDefinition isDefault;
assert: aDefinition name isNil;
assert: aDefinition inheritsFrom isNil;
assert: aDefinition cCompiler equals: self definitionClass defaultCCompiler;
assert: aDefinition cFlags equals: self definitionClass defaultCFlags;
assert: aDefinition cHeaders equals: self definitionClass defaultCHeaders;
assert: aDefinition platform equals: self platformClass empty.
self
+ assert: aDefinition poolReadWriterClass
+ equals: self definitionClass defaultPoolReadWriterClass.
- assert: aDefinition programGeneratorClass
- equals: self definitionClass defaultProgramGeneratorClass.
classPool := aSharedPool classPool.
classPool keysDo: [:each |
self
+ assert: (aDefinition variablesAndTypesAt: each) value
- assert: (aDefinition variablesAndTypesAt: each)
equals: Integer].
self
assert: classPool size
equals: aDefinition variablesAndTypes size.!
Item was added:
+ ----- Method: FFIExternalSharedPoolTest>>resolvedDefinitionsFor: (in category 'support') -----
+ resolvedDefinitionsFor: sharedPool
+
+ ^(sharedPool definitionResolverClass
+ on: sharedPool) resolvedDefinitions!
Item was added:
+ ----- Method: FFIExternalSharedPoolTest>>resolvedToplevelDefinitionsFor: (in category 'support') -----
+ resolvedToplevelDefinitionsFor: sharedPool
+
+ ^ (sharedPool definitionResolverClass
+ class: sharedPool
+ definitions: (sharedPool definitions collect: [:each | each inheritsFrom: nil]))
+ resolvedDefinitions!
Item was changed:
----- Method: FFIExternalSharedPoolTest>>testDefaultDefinition (in category 'tests') -----
testDefaultDefinition
| sharedPool |
sharedPool := FFITestDefaultDefinitionSharedPool.
+ self assert: (self resolvedDefinitionsFor: sharedPool) size equals: 1.
- self assert: (sharedPool resolvedDefinitions) size equals: 1.
self
assertIsDefaultDefinition:
(sharedPool preferredResolvedDefinitionForPlatform:
self newTestPlatform)
for: sharedPool.!
Item was changed:
----- Method: FFIExternalSharedPoolTest>>testDefinitionLoops (in category 'tests') -----
testDefinitionLoops
{FFITestLoopOneExternalSharedPool.
FFITestLoopTwoExternalSharedPool.
FFITestLoopThreeExternalSharedPool}
do: [:sharedPool |
self
shouldnt: [sharedPool definitions]
+ raise: ExternalPoolError.
- raise: FFIExternalSharedPoolException.
self
+ should: [self resolvedDefinitionsFor: sharedPool]
+ raise: ExternalPoolError.
- should: [sharedPool resolvedDefinitions]
- raise: FFIExternalSharedPoolException.
self
+ shouldnt: [self resolvedToplevelDefinitionsFor: sharedPool]
+ raise: ExternalPoolError].!
- shouldnt: [
- sharedPool resolvedDefinitions:
- (sharedPool definitions collect: [:each |
- each inheritsFrom: nil])]
- raise: FFIExternalSharedPoolException].!
Item was changed:
----- Method: FFIExternalSharedPoolTest>>testDefinitionUnkownReferences (in category 'tests') -----
testDefinitionUnkownReferences
| sharedPool |
sharedPool := FFITestUnknownReferenceExternalSharedPool.
self
shouldnt: [sharedPool definitions]
+ raise: ExternalPoolError.
- raise: FFIExternalSharedPoolException.
self
+ should: [self resolvedDefinitionsFor: sharedPool]
+ raise: ExternalPoolError.
- should: [sharedPool resolvedDefinitions]
- raise: FFIExternalSharedPoolException.
self
+ shouldnt: [self resolvedToplevelDefinitionsFor: sharedPool]
+ raise: ExternalPoolError.!
- shouldnt: [
- sharedPool resolvedDefinitions:
- (sharedPool definitions collect: [:each |
- each inheritsFrom: nil])]
- raise: FFIExternalSharedPoolException.!
Item was changed:
----- Method: FFIExternalSharedPoolTest>>testInheritance (in category 'tests') -----
testInheritance
| sharedPool definitions defaultDefinition emptyDefinition overrideDefinition |
sharedPool := FFITestInheritanceExternalSharedPool.
+ definitions := self resolvedDefinitionsFor: sharedPool.
- 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 poolReadWriterClass equals: defaultDefinition poolReadWriterClass;
- 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;
assert: overrideDefinition variablesAndTypes
+ equals: (Dictionary withAll: {#One -> ((ExternalType atomicTypeNamed: 'float') -> Float). #Two -> ((ExternalType atomicTypeNamed: 'long') -> Integer)}).!
- equals: (Dictionary withAll: {#One -> Float. #Two -> Integer}).!
Item was changed:
----- Method: FFIExternalSharedPoolTest>>testPlatformAliasing (in category 'tests') -----
testPlatformAliasing
| sharedPool definition |
sharedPool := FFITestPlatformAliasingExternalSharedPool.
self
should: [
sharedPool preferredResolvedDefinitionForPlatform:
self platformClass empty]
+ raise: ExternalPoolError.
- raise: FFIExternalSharedPoolException.
self
should: [
sharedPool preferredResolvedDefinitionForPlatform:
self newTestPlatform]
+ raise: ExternalPoolError.
- raise: FFIExternalSharedPoolException.
self
shouldnt: [
definition :=
sharedPool preferredResolvedDefinitionForPlatform:
(self newTestPlatform wordSize: 32)]
+ raise: ExternalPoolError.
- raise: FFIExternalSharedPoolException.
self assert: definition name equals: #five.!
Item was added:
+ ----- Method: FFIExternalSharedPoolTest>>testPoolDefinition (in category 'tests') -----
+ testPoolDefinition
+
+ | sharedPool definition |
+ sharedPool := FFITestPoolDefinitionExternalSharedPool.
+
+ definition := sharedPool base.
+ self assert: 'base' equals: definition platform name.
+
+ definition := sharedPool override.
+ self
+ assert: #base equals: definition inheritsFrom;
+ assert: 'base' equals: definition platform name. "already resolved"!
Item was changed:
----- Method: FFIExternalSharedPoolTest>>testVariableTypes (in category 'tests') -----
testVariableTypes
| sharedPool resolvedDefinitions variables|
sharedPool := FFITestTypesExternalSharedPool.
+ resolvedDefinitions := self resolvedDefinitionsFor: sharedPool.
- resolvedDefinitions := sharedPool resolvedDefinitions.
self
assert: resolvedDefinitions size
equals: 2.
variables := #(Zero One Two Three Four Five Six).
resolvedDefinitions do: [:definition |
definition isDefault
ifTrue: [
variables do: [:each |
self
+ assert: (definition variablesAndTypesAt: each) value
- assert: (definition variablesAndTypesAt: each)
equals: Integer]]
ifFalse: [
variables
with:
{Integer. Integer. Float. String.
Character. Boolean. LargePositiveInteger}
do: [:variable :type |
self
+ assert: (definition variablesAndTypesAt: variable) value
- assert: (definition variablesAndTypesAt: variable)
equals: type]]].!
Item was changed:
+ ExternalPool subclass: #FFITestExternalSharedPool
- FFIExternalSharedPool subclass: #FFITestExternalSharedPool
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'FFI-PoolsTests'!
!FFITestExternalSharedPool commentStamp: 'monty 4/1/2018 10:30' prior: 0!
These classes are used during testing and are not buildable.!
Item was removed:
- 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 changed:
----- Method: FFITestInheritanceExternalSharedPool class>>empty (in category 'definitions') -----
empty
+ <ffiExternalPool>!
- <ffiExternalSharedPool>!
Item was changed:
----- Method: FFITestInheritanceExternalSharedPool class>>override (in category 'definitions') -----
override
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiInheritsFrom: #empty>
<ffiPlatformName: 'testName' osVersion: 'testOSVersion' subtype: 'testSubtype' wordSize: 16>
<ffiCCompiler: 'testCompiler'>
<ffiCFlags: 'testFlags'>
<ffiCHeaders: #('<testHeader.h>' '"testLocalHeader.h"' 'testImplicitGlobalHeader.h')>
+ <ffiVariable: #One type: 'float' convertTo: #Float>!
- <ffiProgramGenerator: #FFITestExternalSharedPoolProgramGenerator>
- <ffiVariable: #One type: #Float>!
Item was changed:
----- Method: FFITestLoopOneExternalSharedPool class>>one (in category 'definitions') -----
one
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiInheritsFrom: #one>!
Item was changed:
----- Method: FFITestLoopThreeExternalSharedPool class>>one (in category 'definitions') -----
one
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiInheritsFrom: #three>!
Item was changed:
----- Method: FFITestLoopThreeExternalSharedPool class>>three (in category 'definitions') -----
three
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiInheritsFrom: #two>!
Item was changed:
----- Method: FFITestLoopThreeExternalSharedPool class>>two (in category 'definitions') -----
two
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiInheritsFrom: #one>!
Item was changed:
----- Method: FFITestLoopTwoExternalSharedPool class>>one (in category 'definitions') -----
one
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiInheritsFrom: #two>!
Item was changed:
----- Method: FFITestLoopTwoExternalSharedPool class>>two (in category 'definitions') -----
two
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiInheritsFrom: #one>!
Item was changed:
----- Method: FFITestPlatformAliasingExternalSharedPool class>>five (in category 'definitions') -----
five
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiPlatformName: 'testName' osVersion: 'testOSVersion' subtype: 'testSubtype' wordSize: 32>!
Item was changed:
----- Method: FFITestPlatformAliasingExternalSharedPool class>>four (in category 'definitions') -----
four
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiPlatformName: 'testName' osVersion: 'testOSVersion' subtype: 'testSubtype' wordSize: 16>!
Item was changed:
----- Method: FFITestPlatformAliasingExternalSharedPool class>>one (in category 'definitions') -----
one
+ <ffiExternalPool>!
- <ffiExternalSharedPool>!
Item was changed:
----- Method: FFITestPlatformAliasingExternalSharedPool class>>three (in category 'definitions') -----
three
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiPlatformName: 'testName' osVersion: 'testOSVersion' subtype: 'testSubtype' wordSize: 16>!
Item was changed:
----- Method: FFITestPlatformAliasingExternalSharedPool class>>two (in category 'definitions') -----
two
+ <ffiExternalPool>!
- <ffiExternalSharedPool>!
Item was changed:
----- Method: FFITestPlatformExternalSharedPool class>>definitionWithName (in category 'definitions') -----
definitionWithName
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiPlatformName: 'testName'>!
Item was changed:
----- Method: FFITestPlatformExternalSharedPool class>>definitionWithNameOSVersion (in category 'definitions') -----
definitionWithNameOSVersion
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiPlatformName: 'testName' osVersion: 'testOSVersion'>!
Item was changed:
----- Method: FFITestPlatformExternalSharedPool class>>definitionWithNameOSVersionSubtype (in category 'definitions') -----
definitionWithNameOSVersionSubtype
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiPlatformName: 'testName' osVersion: 'testOSVersion' subtype: 'testSubtype'>!
Item was changed:
----- Method: FFITestPlatformExternalSharedPool class>>definitionWithNameOSVersionSubtypeWordSize (in category 'definitions') -----
definitionWithNameOSVersionSubtypeWordSize
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiPlatformName: 'testName' osVersion: 'testOSVersion' subtype: 'testSubtype' wordSize: 16>!
Item was changed:
----- Method: FFITestPlatformExternalSharedPool class>>definitionWithNameWordSize (in category 'definitions') -----
definitionWithNameWordSize
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiPlatformName: 'testName' wordSize: 16>!
Item was added:
+ FFITestExternalSharedPool subclass: #FFITestPoolDefinitionExternalSharedPool
+ instanceVariableNames: ''
+ classVariableNames: 'One Two'
+ poolDictionaries: ''
+ category: 'FFI-PoolsTests'!
Item was added:
+ ----- Method: FFITestPoolDefinitionExternalSharedPool class>>base (in category 'as yet unclassified') -----
+ base
+ <ffiExternalPool>
+ <ffiPlatformName: 'base'>
+
+ ^ self poolDefinition!
Item was added:
+ ----- Method: FFITestPoolDefinitionExternalSharedPool class>>override (in category 'as yet unclassified') -----
+ override
+ <ffiExternalPool>
+ <ffiInheritsFrom: #base>
+
+ ^ self poolDefinition!
Item was changed:
----- Method: FFITestTypesExternalSharedPool class>>types (in category 'definitions') -----
types
+ <ffiExternalPool>
+ <ffiVariable: #One type: 'long' convertTo: #Integer>
+ <ffiVariable: #Two type: 'float' convertTo: #Float>
+ <ffiVariable: #Three type: 'char*' convertTo: #String>
+ <ffiVariable: #Four type: 'char' convertTo: #Character>
+ <ffiVariable: #Five type: 'long' convertTo: #Boolean>
+ <ffiVariable: #Six type: 'longlong' convertTo: #LargePositiveInteger>!
- <ffiExternalSharedPool>
- <ffiVariable: #One type: #Integer>
- <ffiVariable: #Two type: #Float>
- <ffiVariable: #Three type: #String>
- <ffiVariable: #Four type: #Character>
- <ffiVariable: #Five type: #Boolean>
- <ffiVariable: #Six type: #LargePositiveInteger>!
Item was changed:
----- Method: FFITestUnknownReferenceExternalSharedPool class>>one (in category 'definitions') -----
one
+ <ffiExternalPool>
- <ffiExternalSharedPool>
<ffiInheritsFrom: #unknown>!
More information about the Squeak-dev
mailing list
|