Packages June 2020

packages@lists.squeakfoundation.org

1 participants
151 discussions

FFI: FFI-Kernel-mt.116.mcz
by commits＠source.squeak.org 19 Jun '20

19 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.116.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.116 Author: mt Time: 19 June 2020, 8:03:02.813645 pm UUID: c862510f-5cc0-9b42-9b29-53a2eb5de0e9 Ancestors: FFI-Kernel-mt.115 Actually provide a default for type name for type aliases that can work. :-) =============== Diff against FFI-Kernel-mt.115 =============== Item was changed: ----- Method: ExternalTypeAlias class>>originalTypeName (in category 'type alias') ----- originalTypeName "Answer the typeName this alias should be for, e.g., 'long', 'ulonglong*'. Provide a default here to make automated sends to #compileFields work." + ^ 'void*'! - ^ 'void'!

1 0

FFI: FFI-Kernel-mt.115.mcz
by commits＠source.squeak.org 19 Jun '20

19 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.115.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.115 Author: mt Time: 19 June 2020, 10:00:32.312059 am UUID: a0910ccc-0785-b74c-adab-b65816499d7e Ancestors: FFI-Kernel-mt.114 Try to deal with the issue of having the wrong generated code present in the image. (1) Avoid checking in generated field accessors via Monticello by putting them into *'autogenerated - accessing' instead of 'accessing' category (2) Expand the #generated rule to also generate field accessors if the selector is not yet present (or if <generated> is found if present). That rule is used when re-compiling all struct fields on a platform change. See #compileAllFields. So, you can still choose to manually manage field accessors by adding them in your own 'accessing' category and removing the <generated> pragma. But then you would be on your own. :-) =============== Diff against FFI-Kernel-mt.114 =============== Item was changed: ----- Method: ExternalStructure class>>maybeCompileAccessor:withSelector: (in category 'field definition - support') ----- maybeCompileAccessor: aString withSelector: selector (self compiledMethodAt: selector ifAbsent: []) ifNotNil: [:existingMethod| existingMethod getSourceFromFile asString = aString ifTrue: [^self]]. + self compile: aString classified: #'*autogenerated - accessing'! - self compile: aString classified: #accessing! Item was changed: ----- Method: ExternalStructure class>>shouldGenerate:policy: (in category 'field definition - support') ----- shouldGenerate: fieldname policy: aSymbol "Answer true if the field accessors must be compiled. Do so according to the following rules: - aSymbol = #always always generate the accessors - aSymbol = #never never generate the accessors - aSymbol = #generated only re-generate the auto-generated accessors - aSymbol = #absent only generate the absent accessors" aSymbol = #never ifTrue: [^ false]. aSymbol = #always ifTrue: [^ true]. aSymbol = #absent ifTrue: [^ (self methodDictionary includesKey: fieldname) not]. + aSymbol = #generated "includes #absent rule" + ifTrue: [^ (self methodDictionary includesKey: fieldname) not + or: [(self methodDictionary at: fieldname) hasPragma: #generated]]. - aSymbol = #generated - ifTrue: [^ (self methodDictionary includesKey: fieldname) - and: [(self methodDictionary at: fieldname) pragmas - anySatisfy: [:p | p keyword = #generated]]]. self error: 'unknown generation policy'!

1 0

FFI: FFI-Tests-mt.20.mcz
by commits＠source.squeak.org 19 Jun '20

19 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tests to project FFI: http://source.squeak.org/FFI/FFI-Tests-mt.20.mcz ==================== Summary ==================== Name: FFI-Tests-mt.20 Author: mt Time: 19 June 2020, 9:54:16.867059 am UUID: 574eaeaa-cd4e-2749-a31a-553c251419b9 Ancestors: FFI-Tests-mt.19 Adds tests for type alias issue. See http://forum.world.st/FFI-ExternalTypeAlias-td5118709.html Also do some test re-organization. =============== Diff against FFI-Tests-mt.19 =============== Item was changed: + ----- Method: FFIPluginTests>>test8IntSum (in category 'tests') ----- - ----- Method: FFIPluginTests>>test8IntSum (in category 'simple tests') ----- test8IntSum "Test using generic FFI spec" | result meth n interval | meth := ExternalLibraryFunction name:'ffiTest8IntSum' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType long argumentTypes: (Array new: (n := 8) withAll: ExternalType long). interval := 1 - n * n to: n * n by: 2 * n + 1. result := meth invokeWithArguments: interval asArray. self assert: interval sum equals: result! Item was changed: + ----- Method: FFIPluginTests>>test8LongLongSum (in category 'tests') ----- - ----- Method: FFIPluginTests>>test8LongLongSum (in category 'simple tests') ----- test8LongLongSum "Test using generic FFI spec" | result meth n interval | meth := ExternalLibraryFunction name:'ffiTest8LongLongSum' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType signedLongLong argumentTypes: (Array new: (n := 8) withAll: ExternalType signedLongLong). interval := 1 - n * n << 32 + (1 - n * n) to: n * n - n << 32 + (3 * n * n) by: 2 * n << 32 + (3 * n). result := meth invokeWithArguments: interval asArray. self assert: interval sum equals: result! Item was changed: + ----- Method: FFIPluginTests>>testAccessingUnion (in category 'tests - union') ----- - ----- Method: FFIPluginTests>>testAccessingUnion (in category 'union tests') ----- testAccessingUnion | ufi | ufi := FFITestUfi new. ufi i1: 2. self assert: 2 equals: ufi i1. ufi f1: 1.0. self assert: 1.0 equals: ufi f1. self assert: 1.0 asIEEE32BitWord equals: ufi i1. ufi i1: 2.0 asIEEE32BitWord. self assert: 2.0 equals: ufi f1.! Item was changed: + ----- Method: FFIPluginTests>>testConstructedCharCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testConstructedCharCall (in category 'simple tests') ----- testConstructedCharCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestChars' module: FFITestLibrary moduleName + callType: ExternalFunction callTypeCDecl returnType: ExternalType char - callType: 0 returnType: ExternalType char argumentTypes: (Array new: 4 withAll: ExternalType char). result := meth invokeWith: $A with: 65 with: 65.0 with: true. self assert: result isCharacter. self assert: 130 equals: result asciiValue! Item was changed: + ----- Method: FFIPluginTests>>testConstructedDoubleCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testConstructedDoubleCall (in category 'simple tests') ----- testConstructedDoubleCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestDoubles' module: FFITestLibrary moduleName + callType: ExternalFunction callTypeCDecl returnType: ExternalType double - callType: 0 returnType: ExternalType double argumentTypes: (Array new: 2 withAll: ExternalType double). result := meth invokeWithArguments: (Array with: 41 with: true). self assert: 42.0 equals: result! Item was changed: + ----- Method: FFIPluginTests>>testConstructedFloatCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testConstructedFloatCall (in category 'simple tests') ----- testConstructedFloatCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestFloats' module: FFITestLibrary moduleName + callType: ExternalFunction callTypeCDecl returnType: ExternalType float - callType: 0 returnType: ExternalType float argumentTypes: (Array new: 2 withAll: ExternalType float). result := meth invokeWith: $A with: 65.0. self assert: 130.0 equals: result! Item was changed: + ----- Method: FFIPluginTests>>testConstructedIntCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testConstructedIntCall (in category 'simple tests') ----- testConstructedIntCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestInts' module: FFITestLibrary moduleName + callType: ExternalFunction callTypeCDecl returnType: ExternalType signedLong - callType: 0 returnType: ExternalType signedLong argumentTypes: (Array new: 4 withAll: ExternalType signedLong). result := meth invokeWith: $A with: 65 with: 65.0 with: true. self assert: 130 equals: result! Item was changed: + ----- Method: FFIPluginTests>>testConstructedPrintString (in category 'tests') ----- - ----- Method: FFIPluginTests>>testConstructedPrintString (in category 'simple tests') ----- testConstructedPrintString "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiPrintString' module: FFITestLibrary moduleName + callType: ExternalFunction callTypeCDecl returnType: ExternalType string - callType: 0 returnType: ExternalType string argumentTypes: (Array with: ExternalType string). result := meth invokeWith:'Hello World!!'. self assert: 'Hello World!!' equals: result! Item was changed: + ----- Method: FFIPluginTests>>testConstructedShortCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testConstructedShortCall (in category 'simple tests') ----- testConstructedShortCall "Test using generic FFI spec" | result meth | meth := ExternalLibraryFunction name:'ffiTestShorts' module: FFITestLibrary moduleName + callType: ExternalFunction callTypeCDecl returnType: ExternalType short - callType: 0 returnType: ExternalType short argumentTypes: (Array new: 4 withAll: ExternalType short). result := meth invokeWithArguments: (Array with: $A with: 65 with: 65.0 with: true). self assert: 130 equals: result! Item was changed: + ----- Method: FFIPluginTests>>testFloats13Sum (in category 'tests') ----- - ----- Method: FFIPluginTests>>testFloats13Sum (in category 'simple tests') ----- testFloats13Sum "Test using generic FFI spec" | result meth n args | meth := ExternalLibraryFunction name:'ffiTestFloats13' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType float argumentTypes: (Array new: (n := 13) withAll: ExternalType float). args := (123.456 to: 3.21 * 13 + 123.456 by: 3.21) asArray first: 13. result := meth invokeWithArguments: args. self assert: (result between: args sum - 0.0005 and: args sum + 0.0005)! Item was changed: + ----- Method: FFIPluginTests>>testGenericBoolCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericBoolCall (in category 'simple tests') ----- testGenericBoolCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestBool: true with: false with: true with: false. self assert: result.! Item was changed: + ----- Method: FFIPluginTests>>testGenericBoolCall2 (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericBoolCall2 (in category 'simple tests') ----- testGenericBoolCall2 "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestBool: false with: false with: true with: true. self deny: result.! Item was changed: + ----- Method: FFIPluginTests>>testGenericBoolCall3 (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericBoolCall3 (in category 'simple tests') ----- testGenericBoolCall3 "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestBool: -1 with: 1 with: 0 with: 0. self deny: result.! Item was changed: + ----- Method: FFIPluginTests>>testGenericCharCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericCharCall (in category 'simple tests') ----- testGenericCharCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestChar: $A with: 65 with: 65.0 with: true. self assert: result isCharacter. self assert: result asciiValue = 130.! Item was changed: + ----- Method: FFIPluginTests>>testGenericDoubleCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericDoubleCall (in category 'simple tests') ----- testGenericDoubleCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestDoubles: $A with: 65.0. self assert: result = 130.0! Item was changed: + ----- Method: FFIPluginTests>>testGenericDoubleCall2 (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericDoubleCall2 (in category 'simple tests') ----- testGenericDoubleCall2 "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestDoubles9: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0. self assert: result = 45.0! Item was changed: + ----- Method: FFIPluginTests>>testGenericFloatCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericFloatCall (in category 'simple tests') ----- testGenericFloatCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestFloats: $A with: 65.0. self assert: result = 130.0! Item was changed: + ----- Method: FFIPluginTests>>testGenericIntCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericIntCall (in category 'simple tests') ----- testGenericIntCall "Test using generic FFI spec" | result | self flag: #ffiLongVsInt. result := FFITestLibrary ffiTestInt: $A with: 65 with: 65.0 with: true. self assert: result = 130.! Item was changed: + ----- Method: FFIPluginTests>>testGenericLongCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericLongCall (in category 'simple tests') ----- testGenericLongCall "Test using generic FFI spec" | result | self flag: #ffiLongVsInt. result := FFITestLibrary ffiTestLong: $A with: 65 with: 65.0 with: true. self assert: result = 130.! Item was changed: + ----- Method: FFIPluginTests>>testGenericMixedDoublesIntAndStruct (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericMixedDoublesIntAndStruct (in category 'simple tests') ----- testGenericMixedDoublesIntAndStruct "Test using generic FFI spec" | result i struct | i := 42. struct := FFITestPoint4 new. struct x: 1. struct y: 2. struct z: 3. struct w: 4. result := FFITestLibrary ffiTestMixedDoublesIntAndStruct: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0 i: 42 s: struct. self assert: (result closeTo: 45.0 + 42 + 10) ! Item was changed: + ----- Method: FFIPluginTests>>testGenericMixedFloatsAndDouble (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericMixedFloatsAndDouble (in category 'simple tests') ----- testGenericMixedFloatsAndDouble "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestMixedFloatsAndDouble: 1.2 with: 3.4 with: 5.6 with: 7.8. self assert: (result closeTo: 1.2 + 3.4 + 5.6 + 7.8) ! Item was changed: + ----- Method: FFIPluginTests>>testGenericPrintString (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericPrintString (in category 'simple tests') ----- testGenericPrintString "Test using generic FFI spec" | result | result := FFITestLibrary ffiPrintString:'Hello World!!'. self assert: result = 'Hello World!!'.! Item was changed: + ----- Method: FFIPluginTests>>testGenericShortCall (in category 'tests') ----- - ----- Method: FFIPluginTests>>testGenericShortCall (in category 'simple tests') ----- testGenericShortCall "Test using generic FFI spec" | result | result := FFITestLibrary ffiTestShort: $A with: 65 with: 65.0 with: true. self assert: result = 130.! Item was added: + ----- Method: FFIPluginTests>>testIntAliasCall (in category 'tests - type alias') ----- + testIntAliasCall + + | result | + result := FFITestLibrary + ffiTestIntAlias4IntSum: (FFITestIntAlias fromHandle: 1) + with: (FFITestIntAlias fromHandle: 2) + with: (FFITestIntAlias fromHandle: 3) + with: (FFITestIntAlias fromHandle: 4). + self assert: 10 equals: result.! Item was added: + ----- Method: FFIPluginTests>>testIntAliasCallReturnIntAlias (in category 'tests - type alias') ----- + testIntAliasCallReturnIntAlias + + | result | + result := FFITestLibrary + ffiTestIntAlias4IntSum: (FFITestIntAlias fromHandle: 1) + with: (FFITestIntAlias fromHandle: 2) + with: (FFITestIntAlias fromHandle: 3) + with: (FFITestIntAlias fromHandle: 4). + self + assert: (result isKindOf: FFITestIntAlias); + assert: 10 equals: result value.! Item was added: + ----- Method: FFIPluginTests>>testIntCallReturnIntAlias (in category 'tests - type alias') ----- + testIntCallReturnIntAlias + + | result | + result := FFITestLibrary ffiTestIntAlias4IntSum: 1 with: 2 with: 3 with: 4. + self + assert: (result isKindOf: FFITestIntAlias); + assert: 10 equals: result value.! Item was changed: + ----- Method: FFIPluginTests>>testLibraryCharCall (in category 'tests - library') ----- - ----- Method: FFIPluginTests>>testLibraryCharCall (in category 'simple tests') ----- testLibraryCharCall "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiTestChar: $A with: 65 with: 65.0 with: true. self assert: result isCharacter. self assert: result asciiValue = 130.! Item was changed: + ----- Method: FFIPluginTests>>testLibraryDoubleCall (in category 'tests - library') ----- - ----- Method: FFIPluginTests>>testLibraryDoubleCall (in category 'simple tests') ----- testLibraryDoubleCall "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiTestDoubles: $A with: 65.0. self assert: result = 130.0! Item was changed: + ----- Method: FFIPluginTests>>testLibraryFloatCall (in category 'tests - library') ----- - ----- Method: FFIPluginTests>>testLibraryFloatCall (in category 'simple tests') ----- testLibraryFloatCall "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiTestFloats: $A with: 65.0. self assert: result = 130.0! Item was changed: + ----- Method: FFIPluginTests>>testLibraryIntCall (in category 'tests - library') ----- - ----- Method: FFIPluginTests>>testLibraryIntCall (in category 'simple tests') ----- testLibraryIntCall "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiTestInt: $A with: 65 with: 65.0 with: true. self assert: result = 130.! Item was changed: + ----- Method: FFIPluginTests>>testLibraryPrintString (in category 'tests - library') ----- - ----- Method: FFIPluginTests>>testLibraryPrintString (in category 'simple tests') ----- testLibraryPrintString "Test using call from ExternalLibrary" | result | result := FFITestLibrary new ffiPrintString:'Hello World!!'. self assert: result = 'Hello World!!'.! Item was changed: + ----- Method: FFIPluginTests>>testLoadSymbolFromModule (in category 'tests - other') ----- - ----- Method: FFIPluginTests>>testLoadSymbolFromModule (in category 'other tests') ----- testLoadSymbolFromModule | address | "Ok" address := ExternalAddress loadSymbol: 'ffiTestFloats' module: FFITestLibrary moduleName. self deny: address isNil. self deny: address isNull. "Symbol does not exists" self should: [ ExternalAddress loadSymbol: 'ffi_does_not_exist' module: FFITestLibrary moduleName ] raise: Error. "Module does not exists" self should: [ ExternalAddress loadSymbol: 'ffiTestFloats' module: 'NonExistingModule' ] raise: Error. ! Item was changed: + ----- Method: FFIPluginTests>>testLongLongA1 (in category 'tests') ----- - ----- Method: FFIPluginTests>>testLongLongA1 (in category 'simple tests') ----- testLongLongA1 "Test passing a char and two longlongs." | byte long1 long2 long3 | byte := 42. long1 := 16r123456789012. long2 := (-1 << 31). long3 := FFITestLibrary ffiTestLongLongA1: byte with: long1 with: long2. self assert: long3 = (byte + long1 + long2)! Item was changed: + ----- Method: FFIPluginTests>>testLongLongA3 (in category 'tests') ----- - ----- Method: FFIPluginTests>>testLongLongA3 (in category 'simple tests') ----- testLongLongA3 "Test passing a char, a longlong, and another char." | byte1 long1 byte2 long2 | byte1 := 3. long1 := 16r123456789012. byte2 := 4. long2 := FFITestLibrary ffiTestLongLongA3: byte1 with: long1 with: byte2. self assert: long2 = (byte1 + long1 + byte2)! Item was changed: + ----- Method: FFIPluginTests>>testLongLongs (in category 'tests') ----- - ----- Method: FFIPluginTests>>testLongLongs (in category 'simple tests') ----- testLongLongs "Test passing and returning longlongs" | long1 long2 long3 | long1 := 16r123456789012. long2 := (-1 << 31). long3 := FFITestLibrary ffiTestLongLong: long1 with: long2. self assert: long3 = (long1 + long2)! Item was changed: + ----- Method: FFIPluginTests>>testMixedDoublesAndLongsSum (in category 'tests') ----- - ----- Method: FFIPluginTests>>testMixedDoublesAndLongsSum (in category 'simple tests') ----- testMixedDoublesAndLongsSum "Test using generic FFI spec" | result meth n args | meth := ExternalLibraryFunction name:'ffiTestMixedDoublesAndLongs' module: FFITestLibrary moduleName callType: 0 returnType: ExternalType double argumentTypes: ((1 to: (n := 20)) collect:[:i| i odd ifTrue: [ExternalType double] ifFalse: [ExternalType c_long]]). args := (1 to: n) collect: [:i| i odd ifTrue: [(i // 2) odd ifTrue: [123.456 * (10 raisedTo: i)] ifFalse: [-654.321 * (10 raisedTo: i)]] ifFalse: [(i // 2) odd ifTrue: [54321 * i] ifFalse: [-54321 * i]]]. result := meth invokeWithArguments: args asArray. self assert: args sum equals: result! Item was changed: + ----- Method: FFIPluginTests>>testMixedIntAndStruct (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testMixedIntAndStruct (in category 'structure tests') ----- testMixedIntAndStruct "Test passing an integer and two structures." | i1 pt1 pt2 result | i1 := 42. pt1 := FFITestPoint2 new. pt1 x: 3. pt1 y: 4. pt2 := FFITestPoint2 new. pt2 x: 5. pt2 y: 6. result := FFITestLibrary ffiTestMixedIntAndStruct: i1 with: pt1 with: pt2. self assert: result = 60.! Item was changed: + ----- Method: FFIPluginTests>>testMixedIntAndStruct2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testMixedIntAndStruct2 (in category 'structure tests') ----- testMixedIntAndStruct2 "Test passing an integer and two structures." | i1 pt1 result | i1 := 42. pt1 := FFITestPoint4 new. pt1 x: 3. pt1 y: 4. pt1 z: 5. pt1 w: 6. result := FFITestLibrary ffiTestMixedIntAndStruct2: i1 with: pt1. self assert: result = 60.! Item was changed: + ----- Method: FFIPluginTests>>testMixedIntAndStruct3 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testMixedIntAndStruct3 (in category 'structure tests') ----- testMixedIntAndStruct3 "Test passing an integer and a small structure." | i1 pt1 result | i1 := 42. pt1 := FFISmallStruct1 new. pt1 x: 3. pt1 y: 4. result := FFITestLibrary ffiTestMixedIntAndStruct3: i1 with: pt1. self assert: result = 49! Item was changed: + ----- Method: FFIPluginTests>>testPoint2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testPoint2 (in category 'structure tests') ----- testPoint2 "Test passing and returning up of structures >32bit and <= 64 bit" | pt1 pt2 pt3 | pt1 := FFITestPoint2 new. pt1 x: 1. pt1 y: 2. pt2 := FFITestPoint2 new. pt2 x: 3. pt2 y: 4. pt3 := FFITestLibrary ffiTestPoint2: pt1 with: pt2. self assert: pt3 x = 4. self assert: pt3 y = 6.! Item was changed: + ----- Method: FFIPluginTests>>testPoint4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testPoint4 (in category 'structure tests') ----- testPoint4 "Test passing and returning up of structures > 64 bit" | pt1 pt2 pt3 | pt1 := FFITestPoint4 new. pt1 x: 1. pt1 y: 2. pt1 z: 3. pt1 w: 4. pt2 := FFITestPoint4 new. pt2 x: 5. pt2 y: 6. pt2 z: 7. pt2 w: 8. pt3 := FFITestLibrary ffiTestPoint4: pt1 with: pt2. self assert: pt3 x = 6. self assert: pt3 y = 8. self assert: pt3 z = 10. self assert: pt3 w = 12.! Item was changed: + ----- Method: FFIPluginTests>>testPointers (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testPointers (in category 'structure tests') ----- testPointers "Test passing and returning of pointers to structs" | pt1 pt2 pt3 | pt1 := FFITestPoint4 new. pt1 x: 1. pt1 y: 2. pt1 z: 3. pt1 w: 4. pt2 := FFITestPoint4 new. pt2 x: 5. pt2 y: 6. pt2 z: 7. pt2 w: 8. pt3 := FFITestLibrary ffiTestPointers: pt1 with: pt2. self assert: pt3 x = 6. self assert: pt3 y = 8. self assert: pt3 z = 10. self assert: pt3 w = 12.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructPassingUnionUfdUdSi2 (in category 'tests - union') ----- - ----- Method: FFIPluginTests>>testReturnStructPassingUnionUfdUdSi2 (in category 'union tests') ----- testReturnStructPassingUnionUfdUdSi2 "Test returning struct made from 2 unions" | ufd udSi2 sUfdUdSi2 | ufd := FFITestLibrary ffiTestInitUfdWithDouble: Float pi. udSi2 := FFITestLibrary ffiTestInitUdSi2WithInt: 1 int: 2. sUfdUdSi2 := FFITestLibrary ffiTestInitSUfd: ufd udSi2: udSi2. self assert: Float pi equals: sUfdUdSi2 ufd1 d1. self assert: 1 equals: sUfdUdSi2 udSii2 sii1 i1. self assert: 2 equals: sUfdUdSi2 udSii2 sii1 i2.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructPassingUnionUfdUfi (in category 'tests - union') ----- - ----- Method: FFIPluginTests>>testReturnStructPassingUnionUfdUfi (in category 'union tests') ----- testReturnStructPassingUnionUfdUfi "Test returning struct made from 2 unions" | ufd ufi sUfdUfi | ufd := FFITestLibrary ffiTestInitUfdWithDouble: Float pi. ufi := FFITestLibrary ffiTestInitUfiWithInt: 1. sUfdUfi := FFITestLibrary ffiTestInitSUfd: ufd ufi: ufi. self assert: Float pi equals: sUfdUfi ufd1 d1. self assert: 1 equals: sUfdUfi ufi2 i1.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSSdi5 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSSdi5 (in category 'structure tests') ----- testReturnStructSSdi5 "Test returning struct with five struct double int (64 + 32 bits)" | ssdi5 | ssdi5 := FFITestLibrary ffiTestReturnSSdi5. self assert: ssdi5 sdi1 d1 = 1.0. self assert: ssdi5 sdi2 d1 = 2.0. self assert: ssdi5 sdi3 d1 = 3.0. self assert: ssdi5 sdi4 d1 = 4.0. self assert: ssdi5 sdi5 d1 = 5.0. self assert: ssdi5 sdi1 i2 = 1. self assert: ssdi5 sdi2 i2 = 2. self assert: ssdi5 sdi3 i2 = 3. self assert: ssdi5 sdi4 i2 = 4. self assert: ssdi5 sdi5 i2 = 5.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSd2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSd2 (in category 'structure tests') ----- testReturnStructSd2 "Test returning struct with two double" | sd2 | sd2 := FFITestLibrary ffiTestReturnSd2. self assert: sd2 d1 = 1.0. self assert: sd2 d2 = 2.0.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSdi (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSdi (in category 'structure tests') ----- testReturnStructSdi "Test returning struct double int (64 + 32 bits)" | sdi | sdi := FFITestLibrary ffiTestReturnSdi. self assert: sdi d1 = 1.0. self assert: sdi i2 = 2.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSf2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSf2 (in category 'structure tests') ----- testReturnStructSf2 "Test returning struct with two float" | sf2 | sf2 := FFITestLibrary ffiTestReturnSf2. self assert: sf2 f1 = 1.0. self assert: sf2 f2 = 2.0.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSf2d (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSf2d (in category 'structure tests') ----- testReturnStructSf2d "Test returning struct with two float one double" | sf2d | sf2d := FFITestLibrary ffiTestReturnSf2d. self assert: sf2d f1 = 1.0. self assert: sf2d f2 = 2.0. self assert: sf2d d3 = 3.0.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSf4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSf4 (in category 'structure tests') ----- testReturnStructSf4 "Test returning struct with four float" | sf4 | sf4 := FFITestLibrary ffiTestReturnSf4. self assert: sf4 f1 = 1.0. self assert: sf4 f2 = 2.0. self assert: sf4 f3 = 3.0. self assert: sf4 f4 = 4.0.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSfdf (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSfdf (in category 'structure tests') ----- testReturnStructSfdf "Test returning struct with float double float" | sfdf | sfdf := FFITestLibrary ffiTestReturnSfdf. self assert: sfdf f1 = 1.0. self assert: sfdf d2 = 2.0. self assert: sfdf f3 = 3.0.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSfi (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSfi (in category 'structure tests') ----- testReturnStructSfi "Test returning struct with float int (32 + 32 bits)" | sfi | sfi := FFITestLibrary ffiTestReturnSfi. self assert: sfi f1 = 1.0. self assert: sfi i2 = 2.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSi2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSi2 (in category 'structure tests') ----- testReturnStructSi2 "Test returning struct with two int (32 bits)" | si2 | si2 := FFITestLibrary ffiTestReturnSi2. self assert: si2 i1 = 1. self assert: si2 i2 = 2.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSl2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSl2 (in category 'structure tests') ----- testReturnStructSl2 "Test returning struct with two long long int (64 bits)" | sl2 | sl2 := FFITestLibrary ffiTestReturnSl2. self assert: sl2 l1 = 1. self assert: sl2 l2 = 2.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSs2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSs2 (in category 'structure tests') ----- testReturnStructSs2 "Test returning struct with two short int (16 bits)" | ss2 | ss2 := FFITestLibrary ffiTestReturnSs2. self assert: ss2 s1 = 1. self assert: ss2 s2 = 2.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSs2i (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSs2i (in category 'structure tests') ----- testReturnStructSs2i "Test returning struct with two short int (16 bits) one int (32 bits)" | ss2i | ss2i := FFITestLibrary ffiTestReturnSs2i. self assert: ss2i s1 = 1. self assert: ss2i s2 = 2. self assert: ss2i i3 = 3.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSs4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSs4 (in category 'structure tests') ----- testReturnStructSs4 "Test returning struct with four short int (16 bits)" | ss4 | ss4 := FFITestLibrary ffiTestReturnSs4. self assert: ss4 s1 = 1. self assert: ss4 s2 = 2. self assert: ss4 s3 = 3. self assert: ss4 s4 = 4.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSsSsf (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSsSsf (in category 'structure tests') ----- testReturnStructSsSsf "Test returning struct with short and sub structure short-float" | ssSsf | ssSsf := FFITestLibrary ffiTestReturnSsSsf. self assert: ssSsf s1 = 1. self assert: ssSsf ssf2 s1 = 2. self assert: ssSsf ssf2 f2 = 3.0.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSsSsi (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSsSsi (in category 'structure tests') ----- testReturnStructSsSsi "Test returning struct with short and sub structure short-int" | ssSsi | ssSsi := FFITestLibrary ffiTestReturnSsSsi. self assert: ssSsi s1 = 1. self assert: ssSsi ssi2 s1 = 2. self assert: ssSsi ssi2 i2 = 3.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSsf (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSsf (in category 'structure tests') ----- testReturnStructSsf "Test returning struct with short float (16 + 32 bits)" | ssf | ssf := FFITestLibrary ffiTestReturnSsf. self assert: ssf s1 = 1. self assert: ssf f2 = 2.0.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSsi (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSsi (in category 'structure tests') ----- testReturnStructSsi "Test returning struct with short int (16 + 32 bits)" | ssi | ssi := FFITestLibrary ffiTestReturnSsi. self assert: ssi s1 = 1. self assert: ssi i2 = 2.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSsis (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSsis (in category 'structure tests') ----- testReturnStructSsis "Test returning struct with short int short (16 + 32 + 16 bits)" | ssis | ssis := FFITestLibrary ffiTestReturnSsis. self assert: ssis s1 = 1. self assert: ssis i2 = 2. self assert: ssis s3 = 3.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSslf (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSslf (in category 'structure tests') ----- testReturnStructSslf "Test returning struct with short longlong float (16 + 64 + 32 bits)" | sslf | sslf := FFITestLibrary ffiTestReturnSslf. self assert: sslf s1 = 1. self assert: sslf l2 = 2. self assert: sslf f3 = 3.0.! Item was changed: + ----- Method: FFIPluginTests>>testReturnStructSsls (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testReturnStructSsls (in category 'structure tests') ----- testReturnStructSsls "Test returning struct with short longlong short (16 + 64 + 16 bits)" | ssls | ssls := FFITestLibrary ffiTestReturnSsls. self assert: ssls s1 = 1. self assert: ssls l2 = 2. self assert: ssls s3 = 3.! Item was changed: + ----- Method: FFIPluginTests>>testReturnUnionUdSi2 (in category 'tests - union') ----- - ----- Method: FFIPluginTests>>testReturnUnionUdSi2 (in category 'union tests') ----- testReturnUnionUdSi2 "Test returning union with double or 2 int (64 or 64 bits)" | udSi2 | udSi2 := FFITestLibrary ffiTestInitUdSi2WithDouble: Float pi. self assert: Float pi equals: udSi2 d1. self assert: (Float pi basicAt: 1) equals: udSi2 sii1 i2. "Assume Little Endianness" self assert: (Float pi basicAt: 2) equals: udSi2 sii1 i1. udSi2 := FFITestLibrary ffiTestInitUdSi2WithInt: 1 int: 2. self assert: 1 equals: udSi2 sii1 i1. self assert: 2 equals: udSi2 sii1 i2.! Item was changed: + ----- Method: FFIPluginTests>>testReturnUnionUfd (in category 'tests - union') ----- - ----- Method: FFIPluginTests>>testReturnUnionUfd (in category 'union tests') ----- testReturnUnionUfd "Test returning union with float or double (32 or 64 bits)" | ufd | ufd := FFITestLibrary ffiTestInitUfdWithFloat: 1.0. self assert: 1.0 equals: ufd f1. ufd := FFITestLibrary ffiTestInitUfdWithDouble: 2.0. self assert: 2 equals: ufd d1.! Item was changed: + ----- Method: FFIPluginTests>>testReturnUnionUfi (in category 'tests - union') ----- - ----- Method: FFIPluginTests>>testReturnUnionUfi (in category 'union tests') ----- testReturnUnionUfi "Test returning union with float or int (32 or 32 bits)" | ufi | ufi := FFITestLibrary ffiTestInitUfiWithFloat: 1.0. self assert: 1.0 equals: ufi f1. self assert: 1.0 asIEEE32BitWord equals: ufi i1. ufi := FFITestLibrary ffiTestInitUfiWithInt: 2. self assert: 2 equals: ufi i1.! Item was changed: + ----- Method: FFIPluginTests>>testSmallStructureReturn (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSmallStructureReturn (in category 'structure tests') ----- testSmallStructureReturn "Test returning small structures (<4 bytes) which are returned in a register on some platforms." | pt1 | pt1 := FFITestLibrary ffiTestSmallStructReturn. self assert: pt1 x = 3. self assert: pt1 y = 4.! Item was changed: + ----- Method: FFIPluginTests>>testSumStructSSdi5 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumStructSSdi5 (in category 'structure tests') ----- testSumStructSSdi5 "Test passing a structure larger than 8 eighbytes" | sdi1 sdi2 sdi3 sdi4 sdi5 ssdi5 sum | sdi1 := FFITestSdi new. sdi1 d1: 0.5; i2: 16r12345678. sdi2 := FFITestSdi new. sdi2 d1: 0.25; i2: 16r01234567. sdi3 := FFITestSdi new. sdi3 d1: 0.125; i2: 3. sdi4 := FFITestSdi new. sdi4 d1: 2.0; i2: 1. sdi5 := FFITestSdi new. sdi5 d1: 4.0; i2: 2. ssdi5 := FFITestSSdi5 new. ssdi5 sdi1: sdi1; sdi2: sdi2; sdi3: sdi3; sdi4: sdi4; sdi5: sdi5. sum := FFITestLibrary ffiTestSumStructSdi5: ssdi5. self assert: 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 + 4.0 + 2 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumStructSdi (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumStructSdi (in category 'structure tests') ----- testSumStructSdi "Test passing structure double int" | sdi sum | sdi := FFITestSdi new. sdi d1: 0.5; i2: 16r12345678. sum := FFITestLibrary ffiTestSumSdi: sdi. self assert: 0.5 + 16r12345678 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumStructSdi2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumStructSdi2 (in category 'structure tests') ----- testSumStructSdi2 "Test passing 2 structure double int" | sdi1 sdi2 sum | sdi1 := FFITestSdi new. sdi1 d1: 0.5; i2: 16r12345678. sdi2 := FFITestSdi new. sdi2 d1: 0.25; i2: 16r01234567. sum := FFITestLibrary ffiTestSumSdi: sdi1 sdi: sdi2. self assert: 0.5 + 16r12345678 + 0.25 + 16r01234567 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumStructSdi4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumStructSdi4 (in category 'structure tests') ----- testSumStructSdi4 "Test passing 4 structure double int" | sdi1 sdi2 sdi3 sdi4 sum | sdi1 := FFITestSdi new. sdi1 d1: 0.5; i2: 16r12345678. sdi2 := FFITestSdi new. sdi2 d1: 0.25; i2: 16r01234567. sdi3 := FFITestSdi new. sdi3 d1: 0.125; i2: 3. sdi4 := FFITestSdi new. sdi4 d1: 2.0; i2: 1. sum := FFITestLibrary ffiTestSumSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4. self assert: 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumStructSfd (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumStructSfd (in category 'structure tests') ----- testSumStructSfd "Test passing structure float double" | sfd sum | sfd := FFITestSfd new. sfd f1: 0.5; d2: 305419896.0. sum := FFITestLibrary ffiTestSumSfd: sfd. self assert: 0.5 + 305419896.0 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumStructSfd2 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumStructSfd2 (in category 'structure tests') ----- testSumStructSfd2 "Test passing 2 structure float double " | sfd1 sfd2 sum | sfd1 := FFITestSfd new. sfd1 f1: 0.5; d2: 305419896.0. sfd2 := FFITestSfd new. sfd2 f1: 0.25; d2: 19088743.0. sum := FFITestLibrary ffiTestSumSfd: sfd1 sfd: sfd2. self assert: 0.5 + 305419896.0 + 0.25 + 19088743.0 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumStructSfd4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumStructSfd4 (in category 'structure tests') ----- testSumStructSfd4 "Test passing 4 structure float double" | sfd1 sfd2 sfd3 sfd4 sum | sfd1 := FFITestSfd new. sfd1 f1: 0.5; d2: 305419896.0. sfd2 := FFITestSfd new. sfd2 f1: 0.25; d2: 19088743.0. sfd3 := FFITestSfd new. sfd3 f1: 0.125; d2: 3. sfd4 := FFITestSfd new. sfd4 f1: 2.0; d2: 1. sum := FFITestLibrary ffiTestSumSfd: sfd1 sfd: sfd2 sfd: sfd3 sfd: sfd4. self assert: 0.5 + 305419896.0 + 0.25 + 19088743.0 + 0.125 + 3.0 + 2.0 + 1.0 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumStructSslf (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumStructSslf (in category 'structure tests') ----- testSumStructSslf "Test passing structure short long float" | sslf sum | sslf := FFITestSslf new. sslf s1: -32768; l2: 16r1234560000; f3: 65536.0. sum := FFITestLibrary ffiTestSumSslf: sslf. self assert: -32768 + 16r1234560000 + 65536.0 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumdWithStructSdi4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumdWithStructSdi4 (in category 'structure tests') ----- testSumdWithStructSdi4 "Test passing 4 structure double int" | sdi1 sdi2 sdi3 sdi4 sum | sdi1 := FFITestSdi new. sdi1 d1: 0.5; i2: 16r12345678. sdi2 := FFITestSdi new. sdi2 d1: 0.25; i2: 16r01234567. sdi3 := FFITestSdi new. sdi3 d1: 0.125; i2: 3. sdi4 := FFITestSdi new. sdi4 d1: 2.0; i2: 1. sum := FFITestLibrary ffiTestSumd: 5.0 withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4. self assert: 5.0 + 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumdiWithStructSdi4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumdiWithStructSdi4 (in category 'structure tests') ----- testSumdiWithStructSdi4 "Test passing 4 structure double int" | sdi1 sdi2 sdi3 sdi4 sum | sdi1 := FFITestSdi new. sdi1 d1: 0.5; i2: 16r12345678. sdi2 := FFITestSdi new. sdi2 d1: 0.25; i2: 16r01234567. sdi3 := FFITestSdi new. sdi3 d1: 0.125; i2: 3. sdi4 := FFITestSdi new. sdi4 d1: 2.0; i2: 1. sum := FFITestLibrary ffiTestSumd: 5.0 i: 6 withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4. self assert: 5.0 + 6 + 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumfWithStructSfd4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumfWithStructSfd4 (in category 'structure tests') ----- testSumfWithStructSfd4 "Test passing 4 structure float double" | sfd1 sfd2 sfd3 sfd4 sum | sfd1 := FFITestSfd new. sfd1 f1: 0.5; d2: 305419896.0. sfd2 := FFITestSfd new. sfd2 f1: 0.25; d2: 19088743.0. sfd3 := FFITestSfd new. sfd3 f1: 0.125; d2: 3. sfd4 := FFITestSfd new. sfd4 f1: 2.0; d2: 1. sum := FFITestLibrary ffiTestSumf: 5.0 withSfd: sfd1 sfd: sfd2 sfd: sfd3 sfd: sfd4. self assert: 5.0 + 0.5 + 305419896.0 + 0.25 + 19088743.0 + 0.125 + 3.0 + 2.0 + 1.0 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testSumiWithStructSdi4 (in category 'tests - structure') ----- - ----- Method: FFIPluginTests>>testSumiWithStructSdi4 (in category 'structure tests') ----- testSumiWithStructSdi4 "Test passing 4 structure double int" | sdi1 sdi2 sdi3 sdi4 sum | sdi1 := FFITestSdi new. sdi1 d1: 0.5; i2: 16r12345678. sdi2 := FFITestSdi new. sdi2 d1: 0.25; i2: 16r01234567. sdi3 := FFITestSdi new. sdi3 d1: 0.125; i2: 3. sdi4 := FFITestSdi new. sdi4 d1: 2.0; i2: 1. sum := FFITestLibrary ffiTestSumi: 5 withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4. self assert: 5 + 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 equals: sum! Item was changed: + ----- Method: FFIPluginTests>>testUintRange (in category 'tests') ----- - ----- Method: FFIPluginTests>>testUintRange (in category 'simple tests') ----- testUintRange "Simple test for making sure the FFI can call certain numbers in the uint range." | result | self flag: #ffiLongVsInt. self shouldnt:[result := FFITestLibrary ffiTestUint: 3894967296 "1<<32-4e8 " with: 3894967296 with: 3103854339 with: 3103854339] raise: Error. self should: result = -8e8.! Item was changed: + ----- Method: FFIPluginTests>>testUlongRange (in category 'tests') ----- - ----- Method: FFIPluginTests>>testUlongRange (in category 'simple tests') ----- testUlongRange "Simple test for making sure the FFI can call certain numbers in the ulong range. Note: since primitive is using unsigned int under the hood, avoid an integer overflow by choosing appropriate unsigned values. Note: only first two parameters are added" | result | self flag: #ffiLongVsInt. self shouldnt:[result := FFITestLibrary ffiTestUlong: 3894967296 "1<<32-4e8 " with: 3894967296 with: 3103854339 with: 3103854339] raise: Error. self should: result = -8e8.! Item was added: + ExternalTypeAlias subclass: #FFITestIntAlias + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! Item was added: + ----- Method: FFITestIntAlias class>>originalTypeName (in category 'type alias') ----- + originalTypeName + + ^ 'int'! Item was added: + ----- Method: FFITestLibrary class>>ffiTest4IntAliasSum:with:with:with: (in category 'primitives - type alias') ----- + ffiTest4IntAliasSum: c1 with: c2 with: c3 with: c4 + "FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4" + <cdecl: int 'ffiTest4IntSum' (FFITestIntAlias FFITestIntAlias FFITestIntAlias FFITestIntAlias) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestIntAlias4IntAliasSum:with:with:with: (in category 'primitives - type alias') ----- + ffiTestIntAlias4IntAliasSum: c1 with: c2 with: c3 with: c4 + "FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4" + <cdecl: int 'ffiTest4IntSum' (FFITestIntAlias FFITestIntAlias FFITestIntAlias FFITestIntAlias) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestIntAlias4IntSum:with:with:with: (in category 'primitives - type alias') ----- + ffiTestIntAlias4IntSum: c1 with: c2 with: c3 with: c4 + "FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4" + <cdecl: FFITestIntAlias 'ffiTest4IntSum' (int int int int) module:'SqueakFFIPrims'> + ^self externalCallFailed!

1 0

FFI: FFI-Kernel-mt.114.mcz
by commits＠source.squeak.org 18 Jun '20

18 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.114.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.114 Author: mt Time: 18 June 2020, 4:18:55.256595 pm UUID: 46d8eb84-cb7b-1643-8d64-1c3191e8393f Ancestors: FFI-Kernel-mt.113 Fixes reading of external structs through external addresses ... which was off by 1 byte. Of course. ;-) Since structs are now read correctly from external addresses using pointer arithmetic, fixes related conversion/access methods in ExternalData. Adds a simple way to access sub-arrays in external data. Inspired by Collection protocol. Adds quick exit when trying to do pointer arithmetic with 0 offset. Adds size checks to ExternalData. =============== Diff against FFI-Kernel-mt.113 =============== Item was changed: ----- Method: ExternalAddress>>+ (in category 'arithmetic') ----- + offset "Create an address that is offset by the given number of bytes. More tricky than one would think due to the FFI's handling of ExternalAddress as pointer to an object so that 'self unsignedLongAt: ' would dereference." | bytes | + offset = 0 ifTrue: [^ self]. "Convert xaddr -> bytes" bytes := self asByteArrayPointer. "Update bytes using platform dependent accessors" self size = 4 ifTrue: [bytes unsignedLongAt: 1 put: (bytes unsignedLongAt: 1) + offset] ifFalse: [bytes unsignedLongLongAt: 1 put: (bytes unsignedLongLongAt: 1) + offset]. "Convert bytes -> xaddr" ^bytes asExternalPointer! Item was changed: ----- Method: ExternalAddress>>structAt:length: (in category 'accessing') ----- structAt: byteOffset length: length "Return the external address of the struct's first field. Ignore length." + ^ self + (byteOffset-1)! - ^ self + byteOffset! Item was changed: ----- Method: ExternalAddress>>structAt:put:length: (in category 'accessing') ----- structAt: byteOffset put: externalAddress length: length "Read length bytes from externalAddress and write it at this external address (plus byteOffset)." | start | + start := self + (byteOffset-1). - start := self + byteOffset. 1 to: length do: [:targetOffset | start byteAt: targetOffset put: (externalAddress byteAt: targetOffset)].! Item was changed: ----- Method: ExternalData>>at: (in category 'accessing') ----- at: index self - flag: #externalDataArray; assert: [index = 1 or: [type isAtomic]] description: 'Should not read non-atomic pointer as array'. + ((1 > index) or: [size notNil and: [index > size]]) + ifTrue: [^ self errorSubscriptBounds: index]. + ^ type asNonPointerType handle: handle at: ((index-1) * type asNonPointerType byteSize) + 1! Item was changed: ----- Method: ExternalData>>at:put: (in category 'accessing') ----- at: index put: value self - flag: #externalDataArray; assert: [index = 1 or: [type isAtomic]] description: 'Should not read non-atomic pointer as array'. + ((1 > index) or: [size notNil and: [index > size]]) + ifTrue: [^ self errorSubscriptBounds: index]. + ^ type asNonPointerType handle: handle at: ((index-1) * type asNonPointerType byteSize) + 1 put: value! Item was added: + ----- Method: ExternalData>>copyFrom:to: (in category 'accessing') ----- + copyFrom: firstIndex to: lastIndex + + ^ (self from: firstIndex to: lastIndex) getExternalData! Item was added: + ----- Method: ExternalData>>from:to: (in category 'accessing') ----- + from: firstIndex to: lastIndex + "Only copy data if already in object memory, that is, as byte array." + + | byteOffset numElements byteSize | + lastIndex < firstIndex ifTrue: [ + ^ (ExternalData fromHandle: #[] type: type) + size: 0; yourself]. + + ((1 > firstIndex) or: [size notNil and: [lastIndex > size]]) + ifTrue: [^ self errorSubscriptBounds: lastIndex]. + + byteOffset := ((firstIndex-1) * type asNonPointerType byteSize)+1. + numElements := lastIndex - firstIndex + 1. + byteSize := size * type asNonPointerType byteSize. + + ^ handle isExternalAddress + ifTrue: [(ExternalData + fromHandle: handle + byteOffset - 1 + type: type) size: numElements; yourself] + ifFalse: [(ExternalData + fromHandle: (handle copyFrom: byteOffset to: byteOffset+byteSize) + type: type) size: numElements; yourself]! Item was added: + ----- Method: ExternalData>>getExternalData (in category 'accessing - external structures') ----- + getExternalData + "Reads all bytes into object memory." + + | data | + handle isExternalAddress ifFalse: [^ self]. + self sizeCheck. + + data := ByteArray new: size * type asNonPointerType byteSize. + 1 to: data size do: [:index | + data unsignedByteAt: index put: (handle unsignedByteAt: index)]. + + ^ (ExternalData + fromHandle: data + type: type asNonPointerType) + size: size! Item was changed: ----- Method: ExternalData>>getExternalStructure (in category 'accessing - external structures') ----- getExternalStructure "Reads an external structure from this external data. If the receiver's handle is an external address, the structure's fields will be copied into object memory. Use #asExternalStructure if you want to avoid this copy." self assert: [type referentClass includesBehavior: ExternalStructure] description: 'Wrong type'. + ^ handle isExternalAddress + ifTrue: [self getExternalData getExternalStructure] + ifFalse: [type referentClass fromHandle: handle]! - ^ self at: 1! Item was changed: ----- Method: ExternalData>>getExternalUnion (in category 'accessing - external structures') ----- getExternalUnion "Reads an external union from this external data. If the receiver's handle is an external address, the union's fields will be copied into object memory. Use #asExternalUnion if you want to avoid this copy." self assert: [type referentClass includesBehavior: ExternalUnion] description: 'Wrong type'. + ^ handle isExternalAddress + ifTrue: [self getExternalData getExternalUnion] + ifFalse: [type referentClass fromHandle: handle]! - ^ self at: 1! Item was changed: ----- Method: ExternalStructure>>asExternalData (in category 'converting') ----- asExternalData + ^ (ExternalData fromHandle: self getHandle type: self externalType) + size: 1; yourself! - ^ ExternalData fromHandle: self getHandle type: self externalType!

1 0

FFI: FFI-Kernel-mt.113.mcz
by commits＠source.squeak.org 18 Jun '20

18 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.113.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.113 Author: mt Time: 18 June 2020, 2:40:14.824118 pm UUID: 556bf79d-15a2-f340-9586-a0333f091288 Ancestors: FFI-Kernel-mt.112 Avoid copying external structs that are part of other structs from external memory into object memory. =============== Diff against FFI-Kernel-mt.112 =============== Item was added: + ----- Method: ExternalAddress>>structAt:length: (in category 'accessing') ----- + structAt: byteOffset length: length + "Return the external address of the struct's first field. Ignore length." + ^ self + byteOffset! Item was added: + ----- Method: ExternalAddress>>structAt:put:length: (in category 'accessing') ----- + structAt: byteOffset put: externalAddress length: length + "Read length bytes from externalAddress and write it at this external address (plus byteOffset)." + + | start | + start := self + byteOffset. + 1 to: length do: [:targetOffset | + start + byteAt: targetOffset + put: (externalAddress byteAt: targetOffset)].!

1 0

FFI: FFI-Kernel-mt.112.mcz
by commits＠source.squeak.org 18 Jun '20

18 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.112.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.112 Author: mt Time: 18 June 2020, 2:19:40.444656 pm UUID: 5099522a-d182-6c4d-813b-9c560dbadefd Ancestors: FFI-Kernel-mt.111 Fixes print-string for external addresses for 64-bit. =============== Diff against FFI-Kernel-mt.111 =============== Item was changed: ----- Method: ExternalAddress>>printOn: (in category 'printing') ----- printOn: aStream "print this as a hex address ('@ 16rFFFFFFFF') to distinguish it from ByteArrays" + aStream + nextPutAll: '@ '; + nextPutAll: (self asInteger + storeStringBase: 16 + length: 3 "16r" + (self class wordSize * 2) + padded: true)! - aStream nextPutAll: '@ '; nextPutAll: (self asInteger storeStringBase: 16 length: 11 padded: true)!

1 0

FFI: FFI-Kernel-mt.110.mcz
by commits＠source.squeak.org 18 Jun '20

18 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.110.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.110 Author: mt Time: 17 June 2020, 11:46:38.027028 am UUID: 4abaf7b7-51bd-2d43-b9e2-29a2aede563f Ancestors: FFI-Kernel-mt.109 Fixes bug in #isIntegerType. Adds conversion methods between signed and unsigned integer types. Choose #asSigned over #asSignedType (or #asSignedIntegerType) to match existing #isSigned selector. =============== Diff against FFI-Kernel-mt.109 =============== Item was changed: ----- Method: ExternalType class>>c_ulong (in category 'type constants - extra') ----- c_ulong "Try to approximate a fitting type for 'usigned long' in a C interface. See comment in #c_long." + ^ self c_long asUnsigned! - ^ self typeNamed: 'u', self c_long atomicTypeName! Item was added: + ----- Method: ExternalType>>asSigned (in category 'converting') ----- + asSigned + + self isSigned ifTrue: [^ self]. + ^ AtomicTypes at: (AtomicTypeNames at: self atomicType + 1)! Item was added: + ----- Method: ExternalType>>asUnsigned (in category 'converting') ----- + asUnsigned + + self isUnsigned ifTrue: [^ self]. + ^ AtomicTypes at: (AtomicTypeNames at: self atomicType - 1)! Item was added: + ----- Method: ExternalType>>checkIntegerType (in category 'private') ----- + checkIntegerType + + self isIntegerType + ifFalse: [self error: 'Test is only defined on integer types!!'].! Item was changed: ----- Method: ExternalType>>isIntegerType (in category 'testing') ----- isIntegerType "Return true if the receiver is a built-in integer type" | type | type := self atomicType. + ^type > FFITypeBool and:[type <= FFITypeSignedChar]! - ^type > FFITypeBool and:[type <= FFITypeUnsignedLongLong]! Item was changed: ----- Method: ExternalType>>isSigned (in category 'testing') ----- isSigned + "Return true if the receiver is a signed integer type." + + self checkIntegerType. - "Return true if the receiver is a signed type. - Note: Only useful for integer types." ^self atomicType anyMask: 1! Item was changed: ----- Method: ExternalType>>isUnsigned (in category 'testing') ----- isUnsigned + "Return true if the receiver is an unsigned integer type." + + self checkIntegerType. - "Return true if the receiver is an unsigned type. - Note: Only useful for integer types." ^self isSigned not!

1 0

FFI: FFI-Kernel-mt.111.mcz
by commits＠source.squeak.org 17 Jun '20

17 Jun '20

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.111.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.111 Author: mt Time: 17 June 2020, 7:56:43.540384 pm UUID: 4421e4eb-4ac9-5f4b-9fcc-64c57a034587 Ancestors: FFI-Kernel-mt.110 Adds a simple interface to use ExternalData as representative of an external global/shared variable. (We could add an extra subclass to make it more clear. Like ExternalTypeAlias.) =============== Diff against FFI-Kernel-mt.109 =============== Item was added: + ----- Method: ExternalData>>value (in category 'accessing - external globals') ----- + value + "For convenience. Assume that the external data is just one global variable. Answer the value of that global variable." + + ^ self at: 1! Item was added: + ----- Method: ExternalData>>value: (in category 'accessing - external globals') ----- + value: aValue + "For convenience. Assume that the external data is just one global variable. Set the value of that global variable." + + self at: 1 put: aValue.! Item was changed: ----- Method: ExternalType class>>c_ulong (in category 'type constants - extra') ----- c_ulong "Try to approximate a fitting type for 'usigned long' in a C interface. See comment in #c_long." + ^ self c_long asUnsigned! - ^ self typeNamed: 'u', self c_long atomicTypeName! Item was added: + ----- Method: ExternalType>>asSigned (in category 'converting') ----- + asSigned + + self isSigned ifTrue: [^ self]. + ^ AtomicTypes at: (AtomicTypeNames at: self atomicType + 1)! Item was added: + ----- Method: ExternalType>>asUnsigned (in category 'converting') ----- + asUnsigned + + self isUnsigned ifTrue: [^ self]. + ^ AtomicTypes at: (AtomicTypeNames at: self atomicType - 1)! Item was added: + ----- Method: ExternalType>>checkIntegerType (in category 'private') ----- + checkIntegerType + + self isIntegerType + ifFalse: [self error: 'Test is only defined on integer types!!'].! Item was changed: ----- Method: ExternalType>>isIntegerType (in category 'testing') ----- isIntegerType "Return true if the receiver is a built-in integer type" | type | type := self atomicType. + ^type > FFITypeBool and:[type <= FFITypeSignedChar]! - ^type > FFITypeBool and:[type <= FFITypeUnsignedLongLong]! Item was changed: ----- Method: ExternalType>>isSigned (in category 'testing') ----- isSigned + "Return true if the receiver is a signed integer type." + + self checkIntegerType. - "Return true if the receiver is a signed type. - Note: Only useful for integer types." ^self atomicType anyMask: 1! Item was changed: ----- Method: ExternalType>>isUnsigned (in category 'testing') ----- isUnsigned + "Return true if the receiver is an unsigned integer type." + + self checkIntegerType. - "Return true if the receiver is an unsigned type. - Note: Only useful for integer types." ^self isSigned not!

1 0

FFI: FFI-Tools-mt.18.mcz
by commits＠source.squeak.org 17 Jun '20

17 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.18.mcz ==================== Summary ==================== Name: FFI-Tools-mt.18 Author: mt Time: 17 June 2020, 11:49:53.132028 am UUID: 2fa1e5d5-aca8-a04c-b011-42d77447d585 Ancestors: FFI-Tools-mt.17 Make dynamic icon selection for robust to not break tools. This can happen if an implementor of #fields makes a mistake such as forgetting the "^". :-) =============== Diff against FFI-Tools-mt.17 =============== Item was changed: ----- Method: ExternalStructure class>>toolIcon (in category '*FFI-Tools') ----- toolIcon + ^ [self isTypeAlias - ^ self isTypeAlias ifTrue: [#externalTypeAlias] + ifFalse: [#externalStructure]] + ifError: [#blank]! - ifFalse: [#externalStructure]!

1 0

FFI: FFI-Tests-mt.19.mcz
by commits＠source.squeak.org 17 Jun '20

17 Jun '20

Marcel Taeumel uploaded a new version of FFI-Tests to project FFI: http://source.squeak.org/FFI/FFI-Tests-mt.19.mcz ==================== Summary ==================== Name: FFI-Tests-mt.19 Author: mt Time: 17 June 2020, 11:48:14.239028 am UUID: 5b5f9c13-eb5c-2f45-8ecb-240a1dab2993 Ancestors: FFI-Tests-mt.18 Adds tests for ExternalType. Complements FFI-Kernel-mt.110. =============== Diff against FFI-Tests-mt.18 =============== Item was added: + TestCase subclass: #ExternalTypeTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: 'ExternalType' + category: 'FFI-Tests'! Item was added: + ----- Method: ExternalTypeTests>>testAtomicType (in category 'tests') ----- + testAtomicType + + AtomicTypes keysAndValuesDo: [:typeName :type | + self + assert: type isAtomic; + assert: typeName equals: type atomicTypeName; + + deny: type isPointerType; + deny: type isStructureType; + deny: type isTypeAlias].! Item was added: + ----- Method: ExternalTypeTests>>testAtomicTypeByName (in category 'tests') ----- + testAtomicTypeByName + + AtomicTypeNames do: [:typeName | + self + assert: (AtomicTypes at: typeName) + identical: (ExternalType typeNamed: typeName); + assert: (AtomicTypes at: typeName) + identical: (ExternalType atomicTypeNamed: typeName)].! Item was added: + ----- Method: ExternalTypeTests>>testAtomicTypeBySelector (in category 'tests') ----- + testAtomicTypeBySelector + + AtomicTypeNames do: [:typeName | + self + assert: (AtomicTypes at: typeName) + identical: (ExternalType perform: typeName asSymbol)].! Item was added: + ----- Method: ExternalTypeTests>>testIntegerPointerTypes (in category 'tests') ----- + testIntegerPointerTypes + + | wordSize | + wordSize := FFIPlatformDescription current wordSize. + + #(size_t ptrdiff_t uintptr_t intptr_t) do: [:typeName | + | type | + type := ExternalType typeNamed: typeName. + self + assert: type isIntegerType; + assert: wordSize equals: type byteSize].! Item was added: + ----- Method: ExternalTypeTests>>testIntegerTypes (in category 'tests') ----- + testIntegerTypes + + #( + uint8_t 1 int8_t 1 + uint16_t 2 int16_t 2 + uint32_t 4 int32_t 4 + uint64_t 8 int64_t 8 + ) pairsDo: [:typeName :byteSize | + | type | + type := ExternalType typeNamed: typeName. + self + assert: type isIntegerType; + assert: byteSize equals: type byteSize].! Item was added: + ----- Method: ExternalTypeTests>>testSignFloatTypes (in category 'tests') ----- + testSignFloatTypes + + self + should: [ExternalType float isSigned] raise: Error; + should: [ExternalType float isUnsigned] raise: Error; + should: [ExternalType float asSigned] raise: Error; + should: [ExternalType float asUnsigned] raise: Error; + should: [ExternalType double isSigned] raise: Error; + should: [ExternalType double isUnsigned] raise: Error; + should: [ExternalType double asSigned] raise: Error; + should: [ExternalType double asUnsigned] raise: Error.! Item was added: + ----- Method: ExternalTypeTests>>testSignIntegerTypes (in category 'tests') ----- + testSignIntegerTypes + + AtomicTypeNames do: [:typeName | + | type | + type := ExternalType atomicTypeNamed: typeName. + self + assert: type isIntegerType ==> [ + (type isSigned and: [type asUnsigned isUnsigned]) + or: [type isUnsigned and: [type asSigned isSigned]]]].!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2020