Packages May 2021

packages@lists.squeakfoundation.org

1 participants
169 discussions

FFI: FFI-Tools-mt.23.mcz
by commits＠source.squeak.org 04 May '21

04 May '21

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.23.mcz ==================== Summary ==================== Name: FFI-Tools-mt.23 Author: mt Time: 4 May 2021, 10:57:22.658881 am UUID: 1c015fd1-e56d-a84a-b4c8-5987e99cbcbd Ancestors: FFI-Tools-mt.22 In object explorers, change the repersentation of compiledSpec to better reflect its intentions. I suppose. :-) Note that compiledSpec is a WordArray. I changed the appearance of the words in the array to distinguish atomic type, type flags, byte size, and start/end of embedded structs. =============== Diff against FFI-Tools-mt.22 =============== Item was added: + ObjectExplorerWrapper subclass: #CompiledSpecWrapper + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: 'FFIConstants' + category: 'FFI-Tools'! Item was added: + ----- Method: CompiledSpecWrapper>>contents (in category 'accessing') ----- + contents + + ^ self object isInteger ifTrue: [#()] ifFalse: [ "WordArray" + Array streamContents: [:s | + self object withIndexDo: [:word :index | + s nextPut: (self class + with: word + name: index printString + model: self model)]]]! Item was added: + ----- Method: CompiledSpecWrapper>>objectString (in category 'accessing') ----- + objectString + + ^ self object isInteger + ifFalse: [self printWordArray] + ifTrue: [self printWordArrayElement]! Item was added: + ----- Method: CompiledSpecWrapper>>print:base:group:length: (in category 'printing') ----- + print: integer base: base group: group length: length + + ^ String streamContents: [:stream | + | label | + label := integer printStringBase: base. + label := label padded: #left to: length with: $0. + (1 to: label size by: group) + do: [:index | + 1 to: group do: [:gIndex | + stream nextPut: (label at: index + gIndex - 1)]] + separatedBy: [stream space]]! Item was added: + ----- Method: CompiledSpecWrapper>>printWordArray (in category 'printing') ----- + printWordArray + + ^ String streamContents: [:stream | + stream nextPutAll: '16r ['. + self object + do: [:word | stream nextPutAll: (self print: word base: 16 group: 2 length: 8)] + separatedBy: [stream nextPutAll: ' | ']. + stream nextPut: $] ]! Item was added: + ----- Method: CompiledSpecWrapper>>printWordArrayElement (in category 'printing') ----- + printWordArrayElement + + ^ String streamContents: [:stream | + + | atomicType externalType byteSize isStructStart isStructEnd isHeader | + atomicType := (self object bitAnd: FFIAtomicTypeMask) >> FFIAtomicTypeShift. + externalType := (self object bitAnd: 16rFF0000) >> (FFIAtomicTypeShift - 8). + byteSize := (self object bitAnd: FFIStructSizeMask). + + isHeader := self itemName = '1'. + isStructStart := isHeader not and: [(self object anyMask: FFIFlagStructure) and: [byteSize ~= 0]]. + isStructEnd := (self object anyMask: FFIFlagStructure) and: [byteSize = 0]. + + stream + nextPutAll: (atomicType asString padded: #left to: 2 with: Character space); + nextPutAll: ' | '; + nextPutAll: (self print: externalType base: 2 group: 4 length: 8); + nextPutAll: ' | '; + nextPutAll: (self print: byteSize base: 16 group: 2 length: 4); + nextPutAll: ' ('; + nextPutAll: byteSize asString; + nextPutAll: ' bytes)'. + isHeader ifTrue: [stream nextPutAll: ' --- HEADER']. + isStructStart ifTrue: [stream nextPutAll: ' --- STRUCT START']. + isStructEnd ifTrue: [stream nextPutAll: ' --- STRUCT END']].! Item was added: + ----- Method: ExternalType>>explorerContents (in category '*FFI-Tools') ----- + explorerContents + + | basicExplorerFields | + basicExplorerFields := super explorerContents. + basicExplorerFields do: [:explorerField | + explorerField itemName = 'compiledSpec' ifTrue: [ + explorerField changeClassTo: CompiledSpecWrapper]]. + ^ basicExplorerFields!

1 0

FFI: FFI-Kernel-mt.127.mcz
by commits＠source.squeak.org 04 May '21

04 May '21

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.127.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.127 Author: mt Time: 4 May 2021, 9:54:26.141881 am UUID: 143e5c5b-ccff-9143-823d-4d6657005d2c Ancestors: FFI-Kernel-mt.126 Makes extra type checks optional, disabled by default. (This feature more care because some checks are wrong. Thanks to Ron for reporting this!) (Also fixes Character zero, which should actually be the NUL character.) =============== Diff against FFI-Kernel-mt.126 =============== Item was changed: ----- Method: Character class>>zero (in category '*FFI-Kernel') ----- zero "See ExternalStructure >> #zeroMemory." + ^ Character value: 0! - ^ $0! Item was changed: ----- Method: ExternalStructureType>>checkType (in category 'external structure') ----- checkType + self class extraTypeChecks ifFalse: [^ self]. + self assert: [self isPointerType not] description: 'Convert to ExternalType to use this feature'. referentClass ifNil: [self error: 'Unknown structure type']. self isEmpty ifTrue: [self error: 'Empty structure']. ! Item was changed: ----- Method: ExternalStructureType>>handle:at: (in category 'external data') ----- handle: handle at: byteOffset "Read the receiver's external type using the given handle and the byteOffset. This is the dynamic version of #readFieldAt:." | result | + self checkType. - self - assert: [self isPointerType not] - description: 'Use ExternalStructure to use this feature.'. - referentClass ifNil: [self error: 'Unknown structure type']. - self isEmpty ifTrue: [self error: 'Empty structure']. - result := self isAtomic ifTrue: [ handle "alias to atomic" perform: (AtomicSelectors at: self atomicType) with: byteOffset] ifFalse: [ handle "regular struct or alias to struct or alias to pointer" structAt: byteOffset length: self byteSize]. ^ referentClass fromHandle: result! Item was changed: ----- Method: ExternalStructureType>>handle:at:put: (in category 'external data') ----- handle: handle at: byteOffset put: value "Write a value using the receiver's external type at the given handle and byteOffset. This is the dynamic version of #writeFieldAt:with:." + self checkType. - self - assert: [self isPointerType not] - description: 'Use ExternalType to use this feature.'. - - referentClass ifNil: [self error: 'Unknown structure type']. - self isEmpty ifTrue: [self error: 'Empty structure']. self isAtomic ifTrue: [ "alias to atomic" self flag: #addTypeCheck. "mt: Note that there is currently no mapping from objects that represent valid atomics to atomic types." ^ handle perform: ((AtomicSelectors at: self atomicType), 'put:') asSymbol with: byteOffset with: value getHandle] ifFalse: [ "regular struct or alias to struct or alias to pointer" self assert: [value externalType == self]. ^ handle structAt: byteOffset put: value getHandle length: self byteSize].! Item was changed: ----- Method: ExternalStructureType>>writeAliasWith: (in category 'external structure') ----- writeAliasWith: valueName "this is an aliased structure type" "expect the value have that structure type with either byte array or external address as handle" self checkType. ^ String streamContents: [:s | + self class extraTypeChecks ifTrue: [ + s nextPutAll: ('self assert: [{1} class externalType == {2}].' format: {valueName. self storeString}); crtab]. - s nextPutAll: ('self assert: [{1} class externalType == {2}].' format: {valueName. self storeString}); crtab. s nextPutAll:'handle := ', valueName,' getHandle']! Item was changed: ----- Method: ExternalStructureType>>writeFieldAt:with: (in category 'external structure') ----- writeFieldAt: byteOffset with: valueName "Answer a string defining the accessor to an entity of the receiver type starting at the given byte offset. Private. Used for field definition only." self checkType. ^String streamContents:[:s| self isAtomic ifTrue: [ "alias to atomic" + self class extraTypeChecks ifTrue: [ + self flag: #addTypeCheck. "mt: Note that there is currently no mapping from objects that represent valid atomics to atomic types."]. - self flag: #addTypeCheck. "mt: Note that there is currently no mapping from objects that represent valid atomics to atomic types." s nextPutAll:'handle '; nextPutAll: (AtomicSelectors at: self atomicType); space; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName; nextPutAll: ' getHandle'] ifFalse: [ "regular struct or alias to struct or alias to pointer" + self class extraTypeChecks ifTrue: ["expect either byte array or external address as handle" + s nextPutAll: ('self assert: [{1} class externalType == {2}].' format: {valueName. self storeString}); crtab]. - "expect either byte array or external address as handle" - s nextPutAll: ('self assert: [{1} class externalType == {2}].' format: {valueName. self storeString}); crtab. self isTypeAliasForPointer ifFalse: [ s nextPutAll:'handle structAt: '; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName; nextPutAll:' getHandle'; nextPutAll:' length: '; print: self byteSize; nextPutAll:'.'] ifTrue: [ s nextPutAll:'handle pointerAt: '; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName; nextPutAll:' getHandle asExternalPointer'; nextPutAll:' length: '; print: self byteSize; nextPutAll:'.']]].! Item was changed: Object subclass: #ExternalType instanceVariableNames: 'compiledSpec referentClass referencedType byteAlignment' + classVariableNames: 'AtomicSelectors AtomicTypeNames AtomicTypes ExtraTypeChecks StructTypes' - classVariableNames: 'AtomicSelectors AtomicTypeNames AtomicTypes StructTypes' poolDictionaries: 'FFIConstants' category: 'FFI-Kernel'! !ExternalType commentStamp: 'mt 6/5/2020 18:25' prior: 0! An external type represents the type of external objects. Instance variables: compiledSpec <WordArray> Compiled specification of the external type referentClass <Behavior | nil> Class type of argument required referencedType <ExternalType> Associated (non)pointer type with the receiver byteAlignment <Integer | nil> The desired alignment for a field of the external type within a structure. If nil it has yet to be computed. Compiled Spec: The compiled spec defines the type in terms which are understood by the VM. Each word is defined as: bits 0...15 - byte size of the entity bit 16 - structure flag (FFIFlagStructure) This flag is set if the following words define a structure bit 17 - pointer flag (FFIFlagPointer) This flag is set if the entity represents a pointer to another object bit 18 - atomic flag (FFIFlagAtomic) This flag is set if the entity represents an atomic type. If the flag is set the atomic type bits are valid. bits 19...23 - unused bits 24...27 - atomic type (FFITypeVoid ... FFITypeDoubleFloat) bits 28...31 - unused Note that all combinations of the flags FFIFlagPointer, FFIFlagAtomic, and FFIFlagStructure are invalid, EXCEPT from the following: FFIFlagPointer + FFIFlagAtomic: This defines a pointer to an atomic type (e.g., 'char*', 'int*'). The actual atomic type is represented in the atomic type bits. FFIFlagPointer + FFIFlagStructure: This defines a structure which is a typedef of a pointer type as in typedef void* VoidPointer; typedef Pixmap* PixmapPtr; It requires a byte size of four or eight (e.g. a 32-bit or 64-bit pointer) to work correctly. [Note: Other combinations may be allowed in the future] ! Item was added: + ----- Method: ExternalType class>>extraTypeChecks (in category 'preferences') ----- + extraTypeChecks + <preference: 'Extra type checks' + categoryList: #('FFI Kernel') + description: 'When true, there will be extra type checks during dynamic or compiled access to external objects (e.g. structures, unions).' + type: #Boolean> + ^ExtraTypeChecks ifNil:[false]! Item was added: + ----- Method: ExternalType class>>extraTypeChecks: (in category 'preferences') ----- + extraTypeChecks: aBoolean + + ExtraTypeChecks = aBoolean ifTrue: [^ self]. + + ExtraTypeChecks := aBoolean. + + Cursor wait showWhile: [ + "Recompile all compiled artifacts." + ExternalStructure defineAllFields].! Item was changed: ----- Method: ExternalType>>checkType (in category 'external structure') ----- checkType + self class extraTypeChecks ifFalse: [^ self]. + (self isPointerType not and: [referentClass notNil]) ifTrue: [self error: 'Must convert to ExternalStructureType before use']. self assert: [self isStructureType not] description: 'Convert to ExternalStructureType to use this feature'.! Item was changed: ----- Method: ExternalType>>writeAliasWith: (in category 'external structure') ----- writeAliasWith: valueName self checkType. ^ String streamContents: [:s | self isPointerType ifFalse: [ "this is an aliased atomic non-pointer type" + self class extraTypeChecks ifTrue: [ + self flag: #addTypeCheck. "mt: Note that there is currently no mapping from objects that represent valid atomics to atomic types."]. - self flag: #addTypeCheck. "mt: Note that there is currently no mapping from objects that represent valid atomics to atomic types." s nextPutAll:'handle := ', valueName, '.'] ifTrue: [ "this is an aliased pointer type" + self class extraTypeChecks ifTrue: ["expect the value to be a structure/union/alias/data with an external address as handle" + s nextPutAll: ('self assert: [{1} externalType == {2}].' format: {valueName. self storeString}); crtab]. - "expect the value to be a structure/union/alias/data with an external address as handle" - s nextPutAll: ('self assert: [{1} externalType == {2}].' format: {valueName. self storeString}); crtab. s nextPutAll:'handle := ', valueName,' getHandle asByteArrayPointer']]! Item was changed: ----- Method: ExternalType>>writeFieldAt:with: (in category 'external structure') ----- writeFieldAt: byteOffset with: valueName "Answer a string defining the accessor to an entity of the receiver type starting at the given byte offset. Private. Used for field definition only." self checkType. ^ String streamContents: [:s | self isPointerType ifFalse: [ "Atomic value" + self class extraTypeChecks ifTrue: [ + self flag: #addTypeCheck. "mt: Note that there is currently no mapping from objects that represent valid atomics to atomic types."]. - self flag: #addTypeCheck. "mt: Note that there is currently no mapping from objects that represent valid atomics to atomic types." s nextPutAll:'handle '; nextPutAll: (AtomicSelectors at: self atomicType); space; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName] ifTrue: [ "Pointer to structure, union, type alias, or external data." + self class extraTypeChecks ifTrue: [ + s nextPutAll: ('self assert: [{1} externalType == {2}].' format: {valueName. self storeString}); crtab]. - s nextPutAll: ('self assert: [{1} externalType == {2}].' format: {valueName. self storeString}); crtab. s nextPutAll:'handle pointerAt: '; print: byteOffset; nextPutAll:' put: '; nextPutAll: valueName; nextPutAll:' getHandle'; nextPutAll: ' length: '; print: self byteSize; nextPutAll: '.']]! Item was changed: (PackageInfo named: 'FFI-Kernel') postscript: 'Smalltalk removeFromStartUpList: ExternalAddress. Smalltalk removeFromStartUpList: ExternalObject. "Split up types for external structures from atomic types." ExternalType resetAllStructureTypes. + "Re-generate all field accessors because type checks are now controlled by a new preference." - "Re-generate all field accessors because there are now type checks, too." ExternalStructure defineAllFields. '!

1 0

The Trunk: Kernel-nice.1399.mcz
by commits＠source.squeak.org 03 May '21

03 May '21

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1399.mcz ==================== Summary ==================== Name: Kernel-nice.1399 Author: nice Time: 3 May 2021, 8:41:29.262256 pm UUID: 90c075cb-6d99-844c-8e53-e697592fe7a1 Ancestors: Kernel-jar.1398 Apply Jaromir fix for nested outed to resumeEvaluating:. Let resumeUnchecked: rely on resumeEvaluating: in order to avoid code duplication. Document the (tempAt: 2/tempAt: 2 put:) used in unwinding. =============== Diff against Kernel-jar.1398 =============== Item was changed: ----- Method: Context>>resumeEvaluating: (in category 'controlling') ----- resumeEvaluating: aBlock "Unwind thisContext to self and resume with value as result of last send. Execute unwind blocks when unwinding. ASSUMES self is a sender of thisContext" | ctxt unwindBlock | self isDead ifTrue: [self cannotReturn: aBlock value to: self]. ctxt := thisContext. [ ctxt := ctxt findNextUnwindContextUpTo: self. ctxt isNil ] whileFalse: [ (ctxt tempAt: 2) ifNil:[ + "(tempAt: 2) refers to complete temporary in ensure: and ifCurtailed: + or any other method marked with <primitive: 198>" ctxt tempAt: 2 put: true. unwindBlock := ctxt tempAt: 1. thisContext terminateTo: ctxt. unwindBlock value]. ]. thisContext terminateTo: self. ^ aBlock value ! Item was changed: ----- Method: Exception>>resumeEvaluating: (in category 'handling') ----- resumeEvaluating: aBlock "Return result of evaluating aBlock as the value of #signal, unless this was called after an #outer message, then return resumptionValue as the value of #outer. The block is only evaluated after unwinding the stack." | ctxt | outerContext ifNil: [ signalContext returnEvaluating: aBlock ] ifNotNil: [ ctxt := outerContext. outerContext := ctxt tempAt: 1. "prevOuterContext in #outer" + handlerContext := ctxt tempAt: 2. "currHandlerContext in #outer" ctxt returnEvaluating: aBlock ]. ! Item was changed: ----- Method: Exception>>resumeUnchecked: (in category 'handling') ----- resumeUnchecked: resumptionValue "Return resumptionValue as the value of #signal, unless this was called after an #outer message, then return resumptionValue as the value of #outer." + ^self resumeEvaluating: [resumptionValue]! - | ctxt | - outerContext ifNil: [ - signalContext return: resumptionValue - ] ifNotNil: [ - ctxt := outerContext. - outerContext := ctxt tempAt: 1. "prevOuterContext in #outer" - handlerContext := ctxt tempAt: 2. "currHandlerContext in #outer" - ctxt return: resumptionValue - ]. - !

1 0

FFI: FFI-Tests-mt.23.mcz
by commits＠source.squeak.org 03 May '21

03 May '21

Marcel Taeumel uploaded a new version of FFI-Tests to project FFI: http://source.squeak.org/FFI/FFI-Tests-mt.23.mcz ==================== Summary ==================== Name: FFI-Tests-mt.23 Author: mt Time: 3 May 2021, 6:57:25.250479 pm UUID: d282dcac-b99c-7a46-a154-b47378bca82a Ancestors: FFI-Tests-mt.22 Complements FFI-Kernel-mt.126 =============== Diff against FFI-Tests-mt.22 =============== Item was changed: TestCase subclass: #ExternalStructureTests + instanceVariableNames: 'heapObject' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Tests'! Item was added: + ----- Method: ExternalStructureTests>>tearDown (in category 'running') ----- + tearDown + + heapObject ifNotNil: [heapObject free].! Item was added: + ----- Method: ExternalStructureTests>>test04AccessingInternalMemory (in category 'tests') ----- + test04AccessingInternalMemory + "Check whether we can use a ByteArrayWriter to fill structures." + + | composite | + composite := FFITestSUfdUdSi2 new. + + self assert: composite ~~ composite writer. + + self assert: 0.0 equals: composite ufd1 f1. + composite ufd1 f1: 3.5. + self deny: 3.5 equals: composite ufd1 f1. + composite writer ufd1 f1: 3.5. + self assert: 3.5 equals: composite ufd1 f1. + + self assert: 0 equals: composite udSii2 sii1 i1. + composite udSii2 sii1 i1: 42. + self deny: 42 equals: composite udSii2 sii1 i1. + composite writer udSii2 sii1 i1: 42. + self assert: 42 equals: composite udSii2 sii1 i1.! Item was added: + ----- Method: ExternalStructureTests>>test05AccessingExternalMemory (in category 'tests') ----- + test05AccessingExternalMemory + "Check whether we will stick to the ExternalAddress to fill structures." + + | composite | + composite := heapObject := FFITestSUfdUdSi2 externalNew. + heapObject zeroMemory. + + self assert: composite == composite writer. + + self assert: 0.0 equals: composite ufd1 f1. + composite ufd1 f1: 3.5. + self assert: 3.5 equals: composite ufd1 f1. + + self assert: 0 equals: composite udSii2 sii1 i1. + composite udSii2 sii1 i1: 42. + self assert: 42 equals: composite udSii2 sii1 i1.! Item was added: + ----- Method: ExternalStructureTests>>test06AccessingTypeAliasForAtomic (in category 'tests') ----- + test06AccessingTypeAliasForAtomic + + | char | + self should: [FFITestCharAlias new] raise: Error. + char := FFITestCharAlias fromHandle: $C. + self assert: $C equals: char value. + char value: $A. + self assert: $A equals: char value. + char zeroMemory. + self assert: $0 equals: char value.! Item was added: + ExternalTypeAlias subclass: #FFITestCharAlias + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Tests-Fixtures'! Item was added: + ----- Method: FFITestCharAlias class>>originalTypeName (in category 'type alias') ----- + originalTypeName + + ^ 'char'!

1 0

FFI: FFI-Kernel-mt.126.mcz
by commits＠source.squeak.org 03 May '21

03 May '21

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.126.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.126 Author: mt Time: 3 May 2021, 6:53:53.131479 pm UUID: efa27be5-2153-1c47-b30f-b8d9ca10b1c8 Ancestors: FFI-Kernel-mt.125 Adds a transparent way to write into composite structures that reside in object memory: #writer. (Name is up for discussion, especially since the namespace for custom structs is limited.) Adds #zeroMemory to remove information from internal or external memory. Fixes regression in ExternalData >> #free. Adds sanity checks to ExternalStructure #new and #externalNew, which both made no sense for type aliases. =============== Diff against FFI-Kernel-mt.125 =============== Item was added: + ----- Method: ByteArray>>zeroMemory (in category '*FFI-Kernel') ----- + zeroMemory + + self atAllPut: 0.! Item was added: + ----- Method: ByteArray>>zeroMemory: (in category '*FFI-Kernel') ----- + zeroMemory: numBytes + + 1 to: numBytes do: [:index | + self byteAt: index put: 0].! Item was added: + ProtoObject subclass: #ByteArrayWriter + instanceVariableNames: 'byteOffset byteSize byteArray' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Kernel'! + + !ByteArrayWriter commentStamp: 'mt 5/3/2021 17:44' prior: 0! + I am a transparent wrapper over byte-array handles to allow access and manipulation just like through an external address.! Item was added: + ----- Method: ByteArrayWriter class>>on: (in category 'instance creation') ----- + on: handle + + self assert: [handle isInternalMemory]. + ^ self new setArray: handle! Item was added: + ----- Method: ByteArrayWriter>>doesNotUnderstand: (in category 'system primitives') ----- + doesNotUnderstand: aMessage + + | selector args | + selector := aMessage selector. + args := aMessage arguments. + args size caseOf: { + [ 1 ] -> [ (selector endsWith: 'At:') ifTrue: [ args at: 1 put: args first + byteOffset ] ]. + [ 2 ] -> [ (selector endsWith: 'length:') + ifTrue: [ + args at: 1 put: args first + byteOffset. + args first + args second > byteSize + ifTrue: [self errorSubscriptBounds: args first + args second] ] + ifFalse: [(selector endsWith: 'put:') ifTrue: [ + args at: 1 put: args first + byteOffset ]] ]. + [ 3 ] -> [ (selector endsWith: 'length:') + ifTrue: [ + args at: 1 put: args first + byteOffset. + args first + args third > byteSize + ifTrue: [self errorSubscriptBounds: args first + args third]]] + } otherwise: []. + ^ aMessage sendTo: byteArray! Item was added: + ----- Method: ByteArrayWriter>>errorSubscriptBounds: (in category 'initialization') ----- + errorSubscriptBounds: index + + Error signal: 'subscript is out of bounds: ' , index printString.! Item was added: + ----- Method: ByteArrayWriter>>setArray: (in category 'initialization') ----- + setArray: aByteArray + + byteArray := aByteArray. + byteOffset := 0. + byteSize := aByteArray size.! Item was added: + ----- Method: ByteArrayWriter>>setArray:offset:size: (in category 'initialization') ----- + setArray: aByteArray offset: aByteOffset size: aByteSize + + byteArray := aByteArray. + byteOffset := aByteOffset. + byteSize := aByteSize. + + (byteOffset + byteSize > byteArray size) + ifTrue: [self errorSubscriptBounds: byteOffset + byteSize].! Item was added: + ----- Method: ByteArrayWriter>>structAt:length: (in category 'accessing') ----- + structAt: newByteOffset length: newLength + + ^ ByteArrayWriter new + setArray: byteArray + offset: byteOffset + newByteOffset - 1 + size: newLength! Item was added: + ----- Method: ByteArrayWriter>>structAt:put:length: (in category 'accessing') ----- + structAt: newByteOffset put: value length: newLength + + (newByteOffset + newLength > byteSize) + ifTrue: [self errorSubscriptBounds: newByteOffset + newLength]. + + ^ byteArray + structAt: byteOffset + newByteOffset - 1 + put: value + length: newLength! Item was added: + ----- Method: Character class>>zero (in category '*FFI-Kernel') ----- + zero + "See ExternalStructure >> #zeroMemory." + + ^ $0! Item was added: + ----- Method: ExternalAddress>>zeroMemory (in category 'initialize-release') ----- + zeroMemory + "We need length information in bytes." + self shouldNotImplement.! Item was added: + ----- Method: ExternalData>>free (in category 'initialize-release') ----- + free + + super free. + size := nil.! Item was added: + ----- Method: ExternalData>>zeroMemory (in category 'initialize-release') ----- + zeroMemory + "Remove all information but keep the memory allocated." + + self sizeCheck. + + handle isExternalAddress + ifTrue: [handle zeroMemory: self size * self contentType byteSize] + ifFalse: [ "ByteArray" handle zeroMemory].! Item was changed: ----- Method: ExternalStructure class>>externalNew (in category 'instance creation') ----- externalNew "Create an instance of the receiver on the external heap" + + ^ self fromHandle: (self externalType isTypeAliasForAtomic + ifTrue: [self error: 'This is an alias-for-atomic type. You must use #fromHandle:'] + ifFalse: [ + self externalType isTypeAliasForPointer + ifTrue: [ByteArray new: self byteSize] + ifFalse: [ExternalAddress allocate: self byteSize]])! - ^self fromHandle: (ExternalAddress allocate: self byteSize)! Item was changed: ----- Method: ExternalStructure class>>new (in category 'instance creation') ----- new + ^self fromHandle: (self externalType isTypeAliasForAtomic + ifTrue: [self error: 'This is an alias-for-atomic type. You must use #fromHandle:'] + ifFalse: [ByteArray new: self byteSize]).! - ^self fromHandle: (ByteArray new: self byteSize)! Item was added: + ----- Method: ExternalStructure class>>newZero (in category 'instance creation') ----- + newZero + + ^ self new + zeroMemory; + yourself! Item was added: + ----- Method: ExternalStructure>>writer (in category 'accessing') ----- + writer + + ^ handle isInternalMemory + "Wrap handle into helper to address offsets in the byte array." + ifTrue: [self class fromHandle: (ByteArrayWriter on: handle)] + "Either alias-to-atomic or already in external memory." + ifFalse: [self]! Item was added: + ----- Method: ExternalStructure>>zeroMemory (in category 'initialize-release') ----- + zeroMemory + "Remove all information but keep the memory allocated." + + handle isExternalAddress + ifTrue: [handle zeroMemory: self externalType byteSize] + ifFalse: [handle isInternalMemory + ifTrue: [handle zeroMemory] + ifFalse: [ + "Alias-to-atomic type." + handle := handle class zero]].!

1 0

FFI: FFI-Tests-mt.22.mcz
by commits＠source.squeak.org 03 May '21

03 May '21

Marcel Taeumel uploaded a new version of FFI-Tests to project FFI: http://source.squeak.org/FFI/FFI-Tests-mt.22.mcz ==================== Summary ==================== Name: FFI-Tests-mt.22 Author: mt Time: 3 May 2021, 4:54:41.730479 pm UUID: a156622d-6212-3c45-9f7a-7c8017118210 Ancestors: FFI-Tests-mt.21 Big refactoring of FFI tests: - Adds message categories for FFITestLibrary - Replicates all tests in FFIPluginTests to also test invocation through library and construction as ExternalLibraryFunction. See FFIPluginConstrutedTests and FFIPluginLibraryTests. - Extracts tests about structures (and unions etc.) that do not need the test-plugin to ExternalStructureTests - In field definitions, replace all uses of "short/long/longlong" with "int16_t/int32_t/int64_t" for improved readability - Fixes the definitions that actually rely on c_long because they use "long" in the "sqFFITestFuncs.c" - Compiles instance-side methods in FFITestLibrary as needed, see FFIPluginLibraryTests >> #invoke:withArguments:. Note that, for simplicity, the new design of the FFIPluginTests hierarchy requires the class-side methods in FFITestLibrary to match the C function names. Arguments can be attached with "with:". See all implementors of #invoke:withArguments: to learn more. If you want to improve readability over those C names, use either method comments or the actual test selector. See #testUnsignedIntegerRange as an example. =============== Diff against FFI-Tests-mt.21 =============== Item was added: + TestCase subclass: #ExternalStructureTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Tests'! Item was added: + ----- Method: ExternalStructureTests>>test01AccessingUnion (in category 'tests') ----- + test01AccessingUnion + + | 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 added: + ----- Method: ExternalStructureTests>>test02AccessingStructure (in category 'tests') ----- + test02AccessingStructure + + | pt | + pt := FFITestPoint2 new. + pt x: 10; y: 20. + self assert: 10 equals: pt x. + self assert: 20 equals: pt y.! Item was added: + ----- Method: ExternalStructureTests>>test03AccessingExternalData (in category 'tests') ----- + test03AccessingExternalData + + | somePoints firstPoint | + somePoints := FFITestPoint2 allocate: 5. + self assert: 5 equals: somePoints size. + firstPoint := somePoints at: 1. + self assert: 0@0 equals: firstPoint asPoint. + firstPoint setX: 2 setY: 3. + self assert: 2@3 equals: firstPoint asPoint.! Item was added: + ----- Method: ExternalTypeTests>>testAtomicTypeNameByType (in category 'tests') ----- + testAtomicTypeNameByType + + AtomicTypeNames do: [:symbol | | typeName | + typeName := symbol. + self + assert: typeName + equals: (ExternalType typeNamed: typeName) typeName; + assert: typeName + equals: (AtomicTypes at: typeName) typeName. + typeName := (AtomicTypes at: symbol) asPointerType typeName. + self + assert: typeName + equals: (ExternalType typeNamed: typeName) typeName].! Item was added: + FFIPluginTests subclass: #FFIPluginConstructedTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Tests'! Item was added: + ----- Method: FFIPluginConstructedTests class>>shouldInheritSelectors (in category 'testing') ----- + shouldInheritSelectors + ^ true! Item was added: + ----- Method: FFIPluginConstructedTests>>expectedFailures (in category 'failures') ----- + expectedFailures + "We can actually call that one function with 20 arguments. :-)" + + ^ super expectedFailures copyWithout: #testMixedDoublesAndLongsSum! Item was added: + ----- Method: FFIPluginConstructedTests>>invoke:withArguments: (in category 'support') ----- + invoke: functionName withArguments: someObjects + "Use primitive 117 to invoke the call, not 120." + + | prototype externalFunction | + prototype := (FFITestLibrary class >> (self lookupSelector: functionName numArgs: someObjects size)) externalLibraryFunction. + externalFunction := ExternalLibraryFunction + name: functionName module: prototype module + callType: prototype flags returnType: prototype argTypes first + argumentTypes: prototype argTypes allButFirst. + ^ externalFunction invokeWithArguments: someObjects! Item was added: + FFIPluginTests subclass: #FFIPluginLibraryTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Tests'! Item was added: + ----- Method: FFIPluginLibraryTests class>>shouldInheritSelectors (in category 'testing') ----- + shouldInheritSelectors + ^ true! Item was added: + ----- Method: FFIPluginLibraryTests>>invoke:withArguments: (in category 'support') ----- + invoke: functionName withArguments: someObjects + "Use an instance of the library. Compile class-side methods to instance-side methods as needed." + + | selector library | + selector := self lookupSelector: functionName numArgs: someObjects size. + library := FFITestLibrary new. + + (library respondsTo: selector) ifFalse: [ | signature source prototype | + "1) Build method signature." + signature := String streamContents: [:s | | index | + index := 0. selector do: [:char | s nextPut: char. + char = $: ifTrue: [ index := index + 1. + s space; nextPutAll: 'arg'; nextPutAll: index asString; space]]]. + "2) Construct method source." + prototype := library class class compiledMethodAt: selector. + source := '{1}\ {2}\ <generated>\ {3}\ ^ self externalCallFailed' withCRs + format: { + signature. + '"This method was automatically generated. See {1}>>{2}"' + format: {prototype methodClass. prototype selector}. + prototype externalLibraryFunction copy + setModule: nil; printString }. + "3) Compile instance-side FFI call in library." + library class compile: source classified: '*autogenerated - primitives']. + + ^ library perform: selector withArguments: someObjects! Item was changed: TestCase subclass: #FFIPluginTests + instanceVariableNames: 'heapObject' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'FFI-Tests'! !FFIPluginTests commentStamp: '<historical>' prior: 0! SUnitized tests for the FFI (mostly the plugin side)! Item was added: + ----- Method: FFIPluginTests>>expectedFailures (in category 'failures') ----- + expectedFailures + + ^ #( + testIntAliasCallReturnIntAlias "return-type coercing failed" + testIntCallReturnIntAlias "return-type coercing failed" + testMixedDoublesAndLongsSum "more than 15 method args needed" + testSumStructSslf4 "some overflow issue, maybe expected")! Item was added: + ----- Method: FFIPluginTests>>invoke: (in category 'support') ----- + invoke: selector + + ^ self invoke: selector withArguments: #()! Item was added: + ----- Method: FFIPluginTests>>invoke:with: (in category 'support') ----- + invoke: selector with: arg1 + + ^ self invoke: selector withArguments: {arg1}! Item was added: + ----- Method: FFIPluginTests>>invoke:with:with: (in category 'support') ----- + invoke: selector with: arg1 with: arg2 + + ^ self invoke: selector withArguments: {arg1. arg2}! Item was added: + ----- Method: FFIPluginTests>>invoke:with:with:with: (in category 'support') ----- + invoke: selector with: arg1 with: arg2 with: arg3 + + ^ self invoke: selector withArguments: {arg1. arg2. arg3}! Item was added: + ----- Method: FFIPluginTests>>invoke:with:with:with:with: (in category 'support') ----- + invoke: selector with: arg1 with: arg2 with: arg3 with: arg4 + + ^ self invoke: selector withArguments: {arg1. arg2. arg3. arg4}! Item was added: + ----- Method: FFIPluginTests>>invoke:with:with:with:with:with: (in category 'support') ----- + invoke: selector with: arg1 with: arg2 with: arg3 with: arg4 with: arg5 + + ^ self invoke: selector withArguments: {arg1. arg2. arg3. arg4. arg5}! Item was added: + ----- Method: FFIPluginTests>>invoke:withArguments: (in category 'support') ----- + invoke: functionName withArguments: someObjects + + ^ FFITestLibrary + perform: (self lookupSelector: functionName numArgs: someObjects size) + withArguments: someObjects! Item was added: + ----- Method: FFIPluginTests>>lookupSelector:numArgs: (in category 'support') ----- + lookupSelector: functionName numArgs: numArgs + + ^ Symbol lookup: ( + numArgs > 0 + ifFalse: [functionName] + ifTrue: [ + functionName, ':' + , (Array new: (numArgs min: 15) - 1 withAll: 'with:') join])! Item was added: + ----- Method: FFIPluginTests>>tearDown (in category 'running') ----- + tearDown + + heapObject ifNotNil: [heapObject free].! Item was added: + ----- Method: FFIPluginTests>>test4IntSum (in category 'tests - atomics') ----- + test4IntSum + + | result n interval | + n := 4. + interval := 1 - n * n to: n * n by: 2 * n + 1. + result := self invoke: 'ffiTest4IntSum' withArguments: interval asArray. + self assert: interval sum equals: result! Item was changed: + ----- Method: FFIPluginTests>>test8IntSum (in category 'tests - atomics') ----- - ----- Method: FFIPluginTests>>test8IntSum (in category 'tests') ----- test8IntSum + + | result n interval | + n := 8. - "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 := self invoke: 'ffiTest8IntSum' withArguments: interval asArray. - result := meth invokeWithArguments: interval asArray. self assert: interval sum equals: result! Item was changed: + ----- Method: FFIPluginTests>>test8LongLongSum (in category 'tests - atomics') ----- - ----- Method: FFIPluginTests>>test8LongLongSum (in category 'tests') ----- test8LongLongSum + + | result n interval | + n := 8. - "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 := self invoke: 'ffiTest8LongLongSum' withArguments: interval asArray. - result := meth invokeWithArguments: interval asArray. self assert: interval sum equals: result! Item was added: + ----- Method: FFIPluginTests>>test8LongSum (in category 'tests - atomics') ----- + test8LongSum + + | result n interval | + n := 8. + interval := 1 - n * n to: n * n by: 2 * n + 1. + result := self invoke: 'ffiTest8longSum' withArguments: interval asArray. + self assert: interval sum equals: result! Item was removed: - ----- Method: FFIPluginTests>>testAccessingUnion (in category 'tests - union') ----- - 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 added: + ----- Method: FFIPluginTests>>testBoolsToInts (in category 'tests - other') ----- + testBoolsToInts + + | result | + result := FFITestLibrary ffiTestBool: true with: false with: true with: false. + self assert: result. + result := FFITestLibrary ffiTestBool: -1 with: 1 with: 0 with: 0. + self deny: result. + result := FFITestLibrary ffiTestBool: false with: false with: true with: true. + self deny: result.! Item was added: + ----- Method: FFIPluginTests>>testChars (in category 'tests - atomics') ----- + testChars + + | result | + result := self invoke: 'ffiTestChars' with: $A with: 65 with: 65.0 with: true. + self assert: result isCharacter. + self assert: result asciiValue = 130.! Item was removed: - ----- Method: FFIPluginTests>>testConstructedCharCall (in category 'tests') ----- - testConstructedCharCall - "Test using generic FFI spec" - | result meth | - meth := ExternalLibraryFunction - name:'ffiTestChars' module: FFITestLibrary moduleName - callType: ExternalFunction callTypeCDecl 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 removed: - ----- Method: FFIPluginTests>>testConstructedDoubleCall (in category 'tests') ----- - testConstructedDoubleCall - "Test using generic FFI spec" - | result meth | - meth := ExternalLibraryFunction - name:'ffiTestDoubles' module: FFITestLibrary moduleName - callType: ExternalFunction callTypeCDecl 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 removed: - ----- Method: FFIPluginTests>>testConstructedFloatCall (in category 'tests') ----- - testConstructedFloatCall - "Test using generic FFI spec" - | result meth | - meth := ExternalLibraryFunction - name:'ffiTestFloats' module: FFITestLibrary moduleName - callType: ExternalFunction callTypeCDecl 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 removed: - ----- Method: FFIPluginTests>>testConstructedIntCall (in category 'tests') ----- - testConstructedIntCall - "Test using generic FFI spec" - | result meth | - meth := ExternalLibraryFunction - name:'ffiTestInts' module: FFITestLibrary moduleName - callType: ExternalFunction callTypeCDecl 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 removed: - ----- Method: FFIPluginTests>>testConstructedPrintString (in category 'tests') ----- - testConstructedPrintString - "Test using generic FFI spec" - | result meth | - meth := ExternalLibraryFunction - name:'ffiPrintString' module: FFITestLibrary moduleName - callType: ExternalFunction callTypeCDecl returnType: ExternalType string - argumentTypes: (Array with: ExternalType string). - result := meth invokeWith:'Hello World!!'. - self assert: 'Hello World!!' equals: result! Item was removed: - ----- Method: FFIPluginTests>>testConstructedShortCall (in category 'tests') ----- - testConstructedShortCall - "Test using generic FFI spec" - | result meth | - meth := ExternalLibraryFunction - name:'ffiTestShorts' module: FFITestLibrary moduleName - callType: ExternalFunction callTypeCDecl 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 added: + ----- Method: FFIPluginTests>>testDoubles (in category 'tests - atomics') ----- + testDoubles + + | result | + result := self invoke: 'ffiTestDoubles' with: $A with: 65.0. + self assert: 130.0 equals: result. + result := self invoke: 'ffiTestDoubles' with: 41 with: true. + self assert: 42.0 equals: result.! Item was added: + ----- Method: FFIPluginTests>>testDoubles14 (in category 'tests - atomics') ----- + testDoubles14 + + | result n args | + n := 14. + args := (123.456789 to: 3.210987 * 13 + 123.456789 by: 3.210987) asArray first: n. + result := self invoke: 'ffiTestDoubles14' withArguments: args. + self assert: args sum equals: result! Item was added: + ----- Method: FFIPluginTests>>testDoubles9 (in category 'tests - atomics') ----- + testDoubles9 + + | result | + result := self invoke: 'ffiTestDoubles9' withArguments: #(1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0). + self assert: 45.0 equals: result! Item was added: + ----- Method: FFIPluginTests>>testFloats (in category 'tests - atomics') ----- + testFloats + + | result | + result :=self invoke: 'ffiTestFloats' with: $A with: 65.0. + self assert: 130.0 equals: result.! Item was added: + ----- Method: FFIPluginTests>>testFloats13 (in category 'tests - atomics') ----- + testFloats13 + + | result n args | + n := 13. + args := (123.456 to: 3.21 * 13 + 123.456 by: 3.21) asArray first: n. + result := self invoke: 'ffiTestFloats13' withArguments: args. + self assert: (result between: args sum - 0.0005 and: args sum + 0.0005)! Item was removed: - ----- Method: FFIPluginTests>>testFloats13Sum (in category '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 added: + ----- Method: FFIPluginTests>>testFloats14 (in category 'tests - atomics') ----- + testFloats14 + + | result n args | + n := 14. + args := (123.456 to: 3.21 * 13 + 123.456 by: 3.21) asArray first: n. + result := self invoke: 'ffiTestFloats14' withArguments: args. + self assert: (result between: args sum - 0.0005 and: args sum + 0.0005)! Item was added: + ----- Method: FFIPluginTests>>testFloats7 (in category 'tests - atomics') ----- + testFloats7 + + | result n args | + n := 7. + args := (123.456 to: 3.21 * 13 + 123.456 by: 3.21) asArray first: n. + result := self invoke: 'ffiTestFloats7' withArguments: args. + self assert: (result between: args sum - 0.0005 and: args sum + 0.0005)! Item was removed: - ----- Method: FFIPluginTests>>testGenericBoolCall (in category 'tests') ----- - testGenericBoolCall - "Test using generic FFI spec" - | result | - result := FFITestLibrary ffiTestBool: true with: false with: true with: false. - self assert: result.! Item was removed: - ----- Method: FFIPluginTests>>testGenericBoolCall2 (in category 'tests') ----- - testGenericBoolCall2 - "Test using generic FFI spec" - | result | - result := FFITestLibrary ffiTestBool: false with: false with: true with: true. - self deny: result.! Item was removed: - ----- Method: FFIPluginTests>>testGenericBoolCall3 (in category 'tests') ----- - testGenericBoolCall3 - "Test using generic FFI spec" - | result | - result := FFITestLibrary ffiTestBool: -1 with: 1 with: 0 with: 0. - self deny: result.! Item was removed: - ----- Method: FFIPluginTests>>testGenericCharCall (in category '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 removed: - ----- Method: FFIPluginTests>>testGenericDoubleCall (in category 'tests') ----- - testGenericDoubleCall - "Test using generic FFI spec" - | result | - result := FFITestLibrary ffiTestDoubles: $A with: 65.0. - self assert: result = 130.0! Item was removed: - ----- Method: FFIPluginTests>>testGenericDoubleCall2 (in category '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 removed: - ----- Method: FFIPluginTests>>testGenericFloatCall (in category 'tests') ----- - testGenericFloatCall - "Test using generic FFI spec" - | result | - result := FFITestLibrary ffiTestFloats: $A with: 65.0. - self assert: result = 130.0! Item was removed: - ----- Method: FFIPluginTests>>testGenericIntCall (in category '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 removed: - ----- Method: FFIPluginTests>>testGenericLongCall (in category '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 removed: - ----- Method: FFIPluginTests>>testGenericMixedDoublesIntAndStruct (in category '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 removed: - ----- Method: FFIPluginTests>>testGenericMixedFloatsAndDouble (in category '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 removed: - ----- Method: FFIPluginTests>>testGenericPrintString (in category 'tests') ----- - testGenericPrintString - "Test using generic FFI spec" - | result | - result := FFITestLibrary ffiPrintString:'Hello World!!'. - self assert: result = 'Hello World!!'.! Item was removed: - ----- Method: FFIPluginTests>>testGenericShortCall (in category '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 changed: ----- Method: FFIPluginTests>>testIntAliasCallReturnIntAlias (in category 'tests - type alias') ----- testIntAliasCallReturnIntAlias | result | result := FFITestLibrary + ffiTestIntAlias4IntAliasSum: (FFITestIntAlias fromHandle: 1) - 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>>testInts (in category 'tests - atomics') ----- + testInts + + | result | + result := self invoke: 'ffiTestInts' with: $A with: 65 with: 65.0 with: true. + self assert: $A asInteger + 65 equals: result. + ! Item was added: + ----- Method: FFIPluginTests>>testInts8 (in category 'tests - other') ----- + testInts8 + + | result n interval | + n := 8. + interval := 1 - n * n to: n * n by: 2 * n + 1. + result := self invoke: 'ffiTestInts8' withArguments: interval asArray. + self assert: 42 equals: result! Item was removed: - ----- Method: FFIPluginTests>>testLibraryCharCall (in category 'tests - library') ----- - 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 removed: - ----- Method: FFIPluginTests>>testLibraryDoubleCall (in category 'tests - library') ----- - testLibraryDoubleCall - "Test using call from ExternalLibrary" - | result | - result := FFITestLibrary new ffiTestDoubles: $A with: 65.0. - self assert: result = 130.0! Item was removed: - ----- Method: FFIPluginTests>>testLibraryFloatCall (in category 'tests - library') ----- - testLibraryFloatCall - "Test using call from ExternalLibrary" - | result | - result := FFITestLibrary new ffiTestFloats: $A with: 65.0. - self assert: result = 130.0! Item was removed: - ----- Method: FFIPluginTests>>testLibraryIntCall (in category 'tests - library') ----- - 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 removed: - ----- Method: FFIPluginTests>>testLibraryPrintString (in category 'tests - library') ----- - testLibraryPrintString - "Test using call from ExternalLibrary" - | result | - result := FFITestLibrary new ffiPrintString:'Hello World!!'. - self assert: result = 'Hello World!!'.! Item was added: + ----- Method: FFIPluginTests>>testLongLong (in category 'tests - atomics') ----- + testLongLong + "Test passing and returning longlongs" + | long1 long2 long3 | + long1 := 16r123456789012. + long2 := (-1 << 31). + long3 := self invoke: 'ffiTestLongLong' with: long1 with: long2. + self assert: (long1 + long2) equals: long3.! Item was added: + ----- Method: FFIPluginTests>>testLongLong8 (in category 'tests - atomics') ----- + testLongLong8 + + | long1 long2 bytes result | + bytes := (1 to: 8) asArray. + long1 := 16r123456789012. + long2 := (-1 << 31). + result := self invoke: 'ffiTestLongLong8' withArguments: bytes, { long1 . long2 }. + self assert: (bytes sum + long1 + long2) equals: result.! Item was added: + ----- Method: FFIPluginTests>>testLongLong8a1 (in category 'tests - atomics') ----- + testLongLong8a1 + + | long1 long2 bytes result | + bytes := (1 to: 9) asArray. + long1 := 16r123456789012. + long2 := (-1 << 31). + result := self invoke: 'ffiTestLongLong8a1' withArguments: bytes, { long1 . long2 }. + self assert: (bytes sum + long1 + long2) equals: result.! Item was added: + ----- Method: FFIPluginTests>>testLongLong8a2 (in category 'tests - atomics') ----- + testLongLong8a2 + + | long1 long2 bytes result | + bytes := (1 to: 10) asArray. + long1 := 16r123456789012. + long2 := (-1 << 31). + result := self invoke: 'ffiTestLongLong8a2' withArguments: bytes, { long1 . long2 }. + self assert: (bytes sum + long1 + long2) equals: result.! Item was changed: + ----- Method: FFIPluginTests>>testLongLongA1 (in category 'tests - atomics') ----- - ----- Method: FFIPluginTests>>testLongLongA1 (in category 'tests') ----- testLongLongA1 "Test passing a char and two longlongs." + + | byte long1 long2 result | - | byte long1 long2 long3 | byte := 42. long1 := 16r123456789012. long2 := (-1 << 31). + result := self invoke: 'ffiTestLongLonga1' with: byte with: long1 with: long2. + self assert: (byte + long1 + long2) equals: result.! - long3 := FFITestLibrary ffiTestLongLongA1: byte with: long1 with: long2. - self assert: long3 = (byte + long1 + long2)! Item was added: + ----- Method: FFIPluginTests>>testLongLongA2 (in category 'tests - atomics') ----- + testLongLongA2 + + | byte1 byte2 long1 long2 result | + byte1 := 3. + byte2 := 4. + long1 := 16r123456789012. + long2 := (-1 << 31). + result := self invoke: 'ffiTestLongLonga2' with: byte1 with: byte2 with: long1 with: long2. + self assert: (byte1 + byte2 + long1 + long2) equals: result.! Item was changed: + ----- Method: FFIPluginTests>>testLongLongA3 (in category 'tests - atomics') ----- - ----- Method: FFIPluginTests>>testLongLongA3 (in category 'tests') ----- testLongLongA3 "Test passing a char, a longlong, and another char." + | byte1 long1 byte2 result | - | byte1 long1 byte2 long2 | byte1 := 3. long1 := 16r123456789012. byte2 := 4. + result := self invoke: 'ffiTestLongLonga3' with: byte1 with: long1 with: byte2. + self assert: (byte1 + long1 + byte2) equals: result.! - long2 := FFITestLibrary ffiTestLongLongA3: byte1 with: long1 with: byte2. - self assert: long2 = (byte1 + long1 + byte2)! Item was removed: - ----- Method: FFIPluginTests>>testLongLongs (in category '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 added: + ----- Method: FFIPluginTests>>testLongLongs8 (in category 'tests - other') ----- + testLongLongs8 + + | result n interval | + n := 8. + interval := 1 - n * n << 32 + (1 - n * n) to: n * n - n << 32 + (3 * n * n) by: 2 * n << 32 + (3 * n). + result := self invoke: 'ffiTestLongLongs8' withArguments: interval asArray. + self assert: 42 equals: result! Item was changed: + ----- Method: FFIPluginTests>>testMixedDoublesAndLongsSum (in category 'tests - atomics') ----- - ----- Method: FFIPluginTests>>testMixedDoublesAndLongsSum (in category 'tests') ----- testMixedDoublesAndLongsSum + + | result n args | + n := 20. - "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 := self invoke: 'ffiTestMixedDoublesAndLongs' withArguments: args asArray. - result := meth invokeWithArguments: args asArray. self assert: args sum equals: result! Item was added: + ----- Method: FFIPluginTests>>testMixedDoublesIntAndStruct (in category 'tests - atomics') ----- + testMixedDoublesIntAndStruct + + | result i struct | + i := 42. + struct := FFITestPoint4 new. + struct x: 1. struct y: 2. struct z: 3. struct w: 4. + result := self + invoke: 'ffiTestMixedDoublesIntAndStruct' + withArguments: { 1.0 . 2.0 . 3.0 . 4.0 . 5.0 . 6.0 . 7.0 . 8.0 . 9.0 . 42 . struct }. + self assert: (result closeTo: 45.0 + 42 + 10).! Item was added: + ----- Method: FFIPluginTests>>testMixedFloatsAndDouble (in category 'tests - atomics') ----- + testMixedFloatsAndDouble + + | result | + result := self invoke: 'ffiTestMixedFloatsAndDouble' with: 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>>testMixedIntAndStruct (in category 'tests - structure') ----- 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 := self invoke: 'ffiTestMixedIntAndStruct' with: i1 with: pt1 with: pt2. + self assert: 60 equals: result.! - result := FFITestLibrary ffiTestMixedIntAndStruct: i1 with: pt1 with: pt2. - self assert: result = 60.! Item was changed: ----- Method: FFIPluginTests>>testMixedIntAndStruct2 (in category 'tests - structure') ----- 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 := self invoke: 'ffiTestMixedIntAndStruct2' with: i1 with: pt1. + self assert: 60 equals: result.! - result := FFITestLibrary ffiTestMixedIntAndStruct2: i1 with: pt1. - self assert: result = 60.! Item was changed: ----- Method: FFIPluginTests>>testMixedIntAndStruct3 (in category 'tests - structure') ----- testMixedIntAndStruct3 "Test passing an integer and a small structure." | i1 pt1 result | i1 := 42. pt1 := FFISmallStruct1 new. pt1 x: 3. pt1 y: 4. + result := self invoke: 'ffiTestMixedIntAndStruct3' with: i1 with: pt1. + self assert: 49 equals: result.! - result := FFITestLibrary ffiTestMixedIntAndStruct3: i1 with: pt1. - self assert: result = 49! Item was changed: ----- Method: FFIPluginTests>>testPoint2 (in category 'tests - structure') ----- 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 := self invoke: 'ffiTestStruct64' with: pt1 with: pt2. - 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') ----- 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 := self invoke: 'ffiTestStructBig' with: pt1 with: pt2. - 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 added: + ----- Method: FFIPluginTests>>testPoint4Bigger (in category 'tests - structure') ----- + testPoint4Bigger + "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 := self invoke: 'ffiTestStructBigger' with: pt1 with: pt2. + self assert: pt3 x equals: pt1 x. + self assert: pt3 y equals: pt1 y. + self assert: pt3 z equals: pt1 z. + self assert: pt3 w equals: pt1 w. + self assert: pt3 r equals: pt2 x. + self assert: pt3 s equals: pt2 y. + self assert: pt3 t equals: pt2 z. + self assert: pt3 u equals: pt2 w. + ! Item was changed: ----- Method: FFIPluginTests>>testPointers (in category 'tests - structure') ----- 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 := heapObject := self invoke: 'ffiTestPointers' with: pt1 with: pt2. - 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 added: + ----- Method: FFIPluginTests>>testPrintString (in category 'tests - other') ----- + testPrintString + + | result | + result := self invoke: 'ffiPrintString' with: 'Hello World!!'. + self assert: result = 'Hello World!!'.! Item was changed: ----- Method: FFIPluginTests>>testReturnStructPassingUnionUfdUdSi2 (in category 'tests - union') ----- testReturnStructPassingUnionUfdUdSi2 "Test returning struct made from 2 unions" | ufd udSi2 sUfdUdSi2 | + ufd := self invoke: 'ffiTestInitUfd_d' with: Float pi. + udSi2 := self invoke: 'ffiTestInitUdSi2_ii' with: 1 with: 2. + sUfdUdSi2 := self invoke: 'ffiTestInitSUfdUdSi2' with: ufd with: udSi2. - 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') ----- testReturnStructPassingUnionUfdUfi "Test returning struct made from 2 unions" | ufd ufi sUfdUfi | + ufd := self invoke: 'ffiTestInitUfd_d' with: Float pi. + ufi := self invoke: 'ffiTestInitUfi_i' with: 1. + sUfdUfi := self invoke: 'ffiTestInitSUfdUfi' with: ufd with: ufi. - 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') ----- testReturnStructSSdi5 "Test returning struct with five struct double int (64 + 32 bits)" | ssdi5 | + ssdi5 := self invoke: 'ffiTestReturnSSdi5'. - 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') ----- testReturnStructSd2 "Test returning struct with two double" | sd2 | + sd2 := self invoke: 'ffiTestReturnSd2'. - 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') ----- testReturnStructSdi "Test returning struct double int (64 + 32 bits)" | sdi | + sdi := self invoke: 'ffiTestReturnSdi'. - sdi := FFITestLibrary ffiTestReturnSdi. self assert: sdi d1 = 1.0. self assert: sdi i2 = 2.! Item was changed: ----- Method: FFIPluginTests>>testReturnStructSf2 (in category 'tests - structure') ----- testReturnStructSf2 "Test returning struct with two float" | sf2 | + sf2 := self invoke: 'ffiTestReturnSf2'. - 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') ----- testReturnStructSf2d "Test returning struct with two float one double" | sf2d | + sf2d := self invoke: 'ffiTestReturnSf2d'. - 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') ----- testReturnStructSf4 "Test returning struct with four float" | sf4 | + sf4 := self invoke: 'ffiTestReturnSf4'. - 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') ----- testReturnStructSfdf "Test returning struct with float double float" | sfdf | + sfdf := self invoke: 'ffiTestReturnSfdf'. - 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') ----- testReturnStructSfi "Test returning struct with float int (32 + 32 bits)" | sfi | + sfi := self invoke: 'ffiTestReturnSfi'. - sfi := FFITestLibrary ffiTestReturnSfi. self assert: sfi f1 = 1.0. self assert: sfi i2 = 2.! Item was changed: ----- Method: FFIPluginTests>>testReturnStructSi2 (in category 'tests - structure') ----- testReturnStructSi2 "Test returning struct with two int (32 bits)" | si2 | + si2 := self invoke: 'ffiTestReturnSi2'. - si2 := FFITestLibrary ffiTestReturnSi2. self assert: si2 i1 = 1. self assert: si2 i2 = 2.! Item was changed: ----- Method: FFIPluginTests>>testReturnStructSl2 (in category 'tests - structure') ----- testReturnStructSl2 "Test returning struct with two long long int (64 bits)" | sl2 | + sl2 := self invoke: 'ffiTestReturnSl2'. - sl2 := FFITestLibrary ffiTestReturnSl2. self assert: sl2 l1 = 1. self assert: sl2 l2 = 2.! Item was changed: ----- Method: FFIPluginTests>>testReturnStructSs2 (in category 'tests - structure') ----- testReturnStructSs2 "Test returning struct with two short int (16 bits)" | ss2 | + ss2 := self invoke: 'ffiTestReturnSs2'. - ss2 := FFITestLibrary ffiTestReturnSs2. self assert: ss2 s1 = 1. self assert: ss2 s2 = 2.! Item was changed: ----- Method: FFIPluginTests>>testReturnStructSs2i (in category 'tests - structure') ----- testReturnStructSs2i "Test returning struct with two short int (16 bits) one int (32 bits)" | ss2i | + ss2i := self invoke: 'ffiTestReturnSs2i'. - 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') ----- testReturnStructSs4 "Test returning struct with four short int (16 bits)" | ss4 | + ss4 := self invoke: 'ffiTestReturnSs4'. - 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') ----- testReturnStructSsSsf "Test returning struct with short and sub structure short-float" | ssSsf | + ssSsf := self invoke: 'ffiTestReturnSsSsf'. - 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') ----- testReturnStructSsSsi "Test returning struct with short and sub structure short-int" | ssSsi | + ssSsi := self invoke: 'ffiTestReturnSsSsi'. - 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') ----- testReturnStructSsf "Test returning struct with short float (16 + 32 bits)" | ssf | + ssf := self invoke: 'ffiTestReturnSsf'. - ssf := FFITestLibrary ffiTestReturnSsf. self assert: ssf s1 = 1. self assert: ssf f2 = 2.0.! Item was changed: ----- Method: FFIPluginTests>>testReturnStructSsi (in category 'tests - structure') ----- testReturnStructSsi "Test returning struct with short int (16 + 32 bits)" | ssi | + ssi := self invoke: 'ffiTestReturnSsi'. - ssi := FFITestLibrary ffiTestReturnSsi. self assert: ssi s1 = 1. self assert: ssi i2 = 2.! Item was changed: ----- Method: FFIPluginTests>>testReturnStructSsis (in category 'tests - structure') ----- testReturnStructSsis "Test returning struct with short int short (16 + 32 + 16 bits)" | ssis | + ssis := self invoke: 'ffiTestReturnSsis'. - 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') ----- testReturnStructSslf "Test returning struct with short longlong float (16 + 64 + 32 bits)" | sslf | + sslf := self invoke: 'ffiTestReturnSslf'. - 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') ----- testReturnStructSsls "Test returning struct with short longlong short (16 + 64 + 16 bits)" | ssls | + ssls := self invoke: 'ffiTestReturnSsls'. - 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') ----- testReturnUnionUdSi2 "Test returning union with double or 2 int (64 or 64 bits)" | udSi2 | + udSi2 := self invoke: 'ffiTestInitUdSi2_d' with: Float pi. - 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 := self invoke: 'ffiTestInitUdSi2_ii' with: 1 with: 2. - 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') ----- testReturnUnionUfd "Test returning union with float or double (32 or 64 bits)" | ufd | + ufd := self invoke: 'ffiTestInitUfd_f' with: 1.0. - ufd := FFITestLibrary ffiTestInitUfdWithFloat: 1.0. self assert: 1.0 equals: ufd f1. + ufd := self invoke: 'ffiTestInitUfd_d' with: 2.0. - ufd := FFITestLibrary ffiTestInitUfdWithDouble: 2.0. self assert: 2 equals: ufd d1.! Item was changed: ----- Method: FFIPluginTests>>testReturnUnionUfi (in category 'tests - union') ----- testReturnUnionUfi "Test returning union with float or int (32 or 32 bits)" | ufi | + ufi := self invoke: 'ffiTestInitUfi_f' with: 1.0. - ufi := FFITestLibrary ffiTestInitUfiWithFloat: 1.0. self assert: 1.0 equals: ufi f1. self assert: 1.0 asIEEE32BitWord equals: ufi i1. + ufi := self invoke: 'ffiTestInitUfi_i' with: 2. - ufi := FFITestLibrary ffiTestInitUfiWithInt: 2. self assert: 2 equals: ufi i1.! Item was added: + ----- Method: FFIPluginTests>>testShorts (in category 'tests - atomics') ----- + testShorts + + | result | + result := self invoke: 'ffiTestShorts' with: $A with: 65 with: 65.0 with: true. + self assert: 130 equals: result.! Item was changed: ----- Method: FFIPluginTests>>testSmallStructureReturn (in category 'tests - structure') ----- testSmallStructureReturn "Test returning small structures (<4 bytes) which are returned in a register on some platforms." | pt1 | + pt1 := self invoke: 'ffiTestSmallStructReturn'. - pt1 := FFITestLibrary ffiTestSmallStructReturn. self assert: pt1 x = 3. self assert: pt1 y = 4.! Item was changed: ----- Method: FFIPluginTests>>testSumStructSSdi5 (in category 'tests - structure') ----- 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 := self invoke: 'ffiTestSumSSdi5' with: ssdi5. - 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 added: + ----- Method: FFIPluginTests>>testSumStructSUfdUdsi2 (in category 'tests - structure') ----- + testSumStructSUfdUdsi2 + "Sum up the double parts of two unions in a struct. We have to malloc because we cannot (yet?) share parts of byte arrays between structures." + + | sUfdUdsi2 sum | + sUfdUdsi2 := heapObject := FFITestSUfdUdSi2 externalNew. + sUfdUdsi2 ufd1 d1: 123.456. + sUfdUdsi2 udSii2 d1: 456.123. + sum := self invoke: 'ffiTestSumSUfdUdSi2_d' with: sUfdUdsi2. + self assert: 123.456 + 456.123 equals: sum.! Item was added: + ----- Method: FFIPluginTests>>testSumStructSUfdUfi (in category 'tests - structure') ----- + testSumStructSUfdUfi + "Sum up the float parts of two unions in a struct. We have to malloc because we cannot (yet?) share parts of byte arrays between structures." + + | sUfdUdsi2 result expected | + sUfdUdsi2 := heapObject := FFITestSUfdUfi externalNew. + sUfdUdsi2 ufd1 f1: 123.456. + sUfdUdsi2 ufi2 f1: 456.123. + result := self invoke: 'ffiTestSumSUfdUfi_f' with: sUfdUdsi2. + expected := 123.456 + 456.123. + self assert: (result between: expected - 0.0005 and: expected + 0.0005).! Item was changed: ----- Method: FFIPluginTests>>testSumStructSdi (in category 'tests - structure') ----- testSumStructSdi "Test passing structure double int" | sdi sum | sdi := FFITestSdi new. sdi d1: 0.5; i2: 16r12345678. + sum := self invoke: 'ffiTestSumSdi' with: sdi. - sum := FFITestLibrary ffiTestSumSdi: sdi. self assert: 0.5 + 16r12345678 equals: sum! Item was changed: ----- Method: FFIPluginTests>>testSumStructSdi2 (in category 'tests - structure') ----- 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 := self invoke: 'ffiTestSumSdi_2' with: sdi1 with: sdi2. - 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') ----- 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 := self invoke: 'ffiTestSumSdi_4' with: sdi1 with: sdi2 with: sdi3 with: sdi4. - 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') ----- testSumStructSfd "Test passing structure float double" | sfd sum | sfd := FFITestSfd new. sfd f1: 0.5; d2: 305419896.0. + sum := self invoke: 'ffiTestSumSfd' with: sfd. - sum := FFITestLibrary ffiTestSumSfd: sfd. self assert: 0.5 + 305419896.0 equals: sum! Item was changed: ----- Method: FFIPluginTests>>testSumStructSfd2 (in category 'tests - structure') ----- 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 := self invoke: 'ffiTestSumSfd_2' with: sfd1 with: sfd2. - 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') ----- 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 := self invoke: 'ffiTestSumSfd_4' with: sfd1 with: sfd2 with: sfd3 with: sfd4. - 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') ----- testSumStructSslf "Test passing structure short long float" | sslf sum | sslf := FFITestSslf new. sslf s1: -32768; l2: 16r1234560000; f3: 65536.0. + sum := self invoke: 'ffiTestSumSslf' with: sslf. - sum := FFITestLibrary ffiTestSumSslf: sslf. self assert: -32768 + 16r1234560000 + 65536.0 equals: sum! Item was added: + ----- Method: FFIPluginTests>>testSumStructSslf2 (in category 'tests - structure') ----- + testSumStructSslf2 + "Test passing structure short long float" + | sslf1 sslf2 sum | + sslf1 := FFITestSslf new. + sslf1 s1: -32768; l2: 16r123456789012; f3: 65536.0. + sslf2 := FFITestSslf new. + sslf2 s1: 32767; l2: (-1 << 31); f3: -65536.0. + sum := self invoke: 'ffiTestSumSslf_2' with: sslf1 with: sslf2. + self + assert: sslf1 s1 + sslf1 l2 + sslf1 f3 + sslf2 s1 + sslf2 l2 + sslf2 f3 + equals: sum! Item was added: + ----- Method: FFIPluginTests>>testSumStructSslf4 (in category 'tests - structure') ----- + testSumStructSslf4 + "Test passing structure short long float" + | sslf1 sslf2 sslf3 sslf4 sum | + sslf1 := FFITestSslf new. + sslf1 s1: -32768; l2: 16r123456789012; f3: 65536.0. + sslf2 := FFITestSslf new. + sslf2 s1: 32767; l2: (-1 << 31); f3: -65536.0. + sslf3 := FFITestSslf new. + sslf3 s1: 1; l2: 16r123456789012; f3: 123.456. + sslf4 := FFITestSslf new. + sslf4 s1: 2; l2: (-1 << 31); f3: 456.123. + sum := self invoke: 'ffiTestSumSslf_2' with: sslf1 with: sslf2. + self + assert: sslf1 s1 + sslf1 l2 + sslf1 f3 + sslf2 s1 + sslf2 l2 + sslf2 f3 + + sslf3 s1 + sslf3 l2 + sslf3 f3 + sslf4 s1 + sslf4 l2 + sslf4 f3 + equals: sum! Item was changed: ----- Method: FFIPluginTests>>testSumdWithStructSdi4 (in category 'tests - structure') ----- 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 := self invoke: 'ffiTestSumdWithSdi_4' with: 5.0 with: sdi1 with: sdi2 with: sdi3 with: sdi4. - 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') ----- 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 := self invoke: 'ffiTestSumdiWithSdi_4' withArguments: { 5.0 . 6 . sdi1 . sdi2 . sdi3 . sdi4 }. - 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') ----- 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 := self invoke: 'ffiTestSumfWithSfd_4' with: 5.0 with: sfd1 with: sfd2 with: sfd3 with: sfd4. - 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') ----- 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 := self invoke: 'ffiTestSumiWithSdi_4' with: 5 with: sdi1 with: sdi2 with: sdi3 with: sdi4. - 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 removed: - ----- Method: FFIPluginTests>>testUintRange (in category '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 removed: - ----- Method: FFIPluginTests>>testUlongRange (in category '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: + ----- Method: FFIPluginTests>>testUnsignedIntegerRange (in category 'tests - other') ----- + testUnsignedIntegerRange + "Simple test for making sure the FFI can call certain numbers in the uint range. Note that only the first two parameters are summed up." + + | result arg1 arg2 arg3 arg4 | + arg1 := arg2 := 3894967296 "1<<32-4e8". + arg3 := arg4 := 3103854339. + result := FFITestLibrary ffiTestUint: arg1 with: arg2 with: arg3 with: arg4. + self assert: -8e8 "due to overflow" equals: result.! Item was changed: ----- Method: FFITestBiggerStruct class>>fields (in category 'field definition') ----- fields "FFITestBiggerStruct defineFields" ^#( + (x 'int64_t') + (y 'int64_t') + (z 'int64_t') + (w 'int64_t') + (r 'int64_t') + (s 'int64_t') + (t 'int64_t') + (u 'int64_t'))! - (x 'longlong') - (y 'longlong') - (z 'longlong') - (w 'longlong') - (r 'longlong') - (s 'longlong') - (t 'longlong') - (u 'longlong'))! Item was changed: + ----- Method: FFITestLibrary class>>ffiPrintString: (in category 'other') ----- - ----- Method: FFITestLibrary class>>ffiPrintString: (in category 'primitives') ----- ffiPrintString: aString + " + FFITestLibrary ffiPrintString: 'Hello' + " - "FFITestLibrary ffiPrintString: 'Hello'" <cdecl: char* 'ffiPrintString' (char *) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- 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 changed: + ----- Method: FFITestLibrary class>>ffiTest4IntSum:with:with:with: (in category 'atomic - int32_t') ----- - ----- Method: FFITestLibrary class>>ffiTest4IntSum:with:with:with: (in category 'primitives - long vs. int') ----- ffiTest4IntSum: c1 with: c2 with: c3 with: c4 "FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4" + <cdecl: int32_t 'ffiTest4IntSum' (int32_t int32_t int32_t int32_t) module:'SqueakFFIPrims'> - <cdecl: int 'ffiTest4IntSum' (int int int int) module:'SqueakFFIPrims'> - self flag: #ffiLongVsInt. ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTest4LongSum:with:with:with: (in category 'primitives - long vs. int') ----- - ffiTest4LongSum: c1 with: c2 with: c3 with: c4 - "FFITestLibrary ffiTest4LongSum: 1 with: 2 with: 3 with: 4" - <cdecl: long 'ffiTest4IntSum' (long long long long) module:'SqueakFFIPrims'> - self flag: #ffiLongVsInt. - ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTest8IntSum:with:with:with:with:with:with:with: (in category 'atomic - int32_t') ----- - ----- Method: FFITestLibrary class>>ffiTest8IntSum:with:with:with:with:with:with:with: (in category 'primitives - long vs. int') ----- ffiTest8IntSum: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8 "FFITestLibrary ffiTest8IntSum: 1 with: 2 with: 3 with: 4 with: 5 with: 6 with: 7 with: 8" + <cdecl: int32_t 'ffiTest8IntSum' (int32_t int32_t int32_t int32_t int32_t int32_t int32_t int32_t) module:'SqueakFFIPrims'> - <cdecl: int 'ffiTest8IntSum' (int int int int int int int int) module:'SqueakFFIPrims'> - self flag: #ffiLongVsInt. ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTest8LongLongSum:with:with:with:with:with:with:with: (in category 'atomic - int64_t') ----- + ffiTest8LongLongSum: long1 with: long2 with: long3 with: long4 with: long5 with: long6 with: long7 with: long8 + + <cdecl: longlong 'ffiTest8LongLongSum' (longlong longlong longlong longlong longlong longlong longlong longlong) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTest8LongSum:with:with:with:with:with:with:with: (in category 'primitives - long vs. int') ----- - ffiTest8LongSum: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8 - "FFITestLibrary ffiTest8LongSum: 1 with: 2 with: 3 with: 4 with: 5 with: 6 with: 7 with: 8" - <cdecl: long 'ffiTest8IntSum' (long long long long long long long long) module:'SqueakFFIPrims'> - self flag: #ffiLongVsInt. - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTest8longSum:with:with:with:with:with:with:with: (in category 'atomic - c_long') ----- + ffiTest8longSum: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8 + "FFITestLibrary ffiTest8LongSum: 1 with: 2 with: 3 with: 4 with: 5 with: 6 with: 7 with: 8" + <cdecl: c_long 'ffiTest8longSum' (c_long c_long c_long c_long c_long c_long c_long c_long) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestBool:with:with:with: (in category 'atomic - bool') ----- - ----- Method: FFITestLibrary class>>ffiTestBool:with:with:with: (in category 'primitives') ----- ffiTestBool: b1 with: b2 with: b3 with: b4 "FFITestLibrary ffiTestBool: true with: false with: true with: false" <cdecl: bool 'ffiTestInts' (bool bool bool bool) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestChar:with:with:with: (in category 'primitives') ----- - ffiTestChar: c1 with: c2 with: c3 with: c4 - "FFITestLibrary ffiTestChar: $A with: 65 with: 65.0 with: true" - <cdecl: char 'ffiTestChars' (char char char char) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestChars:with:with:with: (in category 'atomic - char') ----- + ffiTestChars: c1 with: c2 with: c3 with: c4 + "Answers c1 + c2 as Character. + FFITestLibrary ffiTestChars: $A with: 32 with: 0 with: 0 + " + <cdecl: char 'ffiTestChars' (char char char char) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestDoubles14:with:with:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - floats') ----- + ffiTestDoubles14: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 with: f10 with: f11 with: f12 with: f13 with: f14 + + <cdecl: double 'ffiTestDoubles14' (double double double double double double double double double double double double double double) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestDoubles9:d:d:d:d:d:d:d:d: (in category 'primitives') ----- - ffiTestDoubles9: f1 d: f2 d: f3 d: f4 d: f5 d: f6 d: f7 d: f8 d: f9 - "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" - <cdecl: double 'ffiTestDoubles9' (double double double double double double double double double) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestDoubles9:with:with:with:with:with:with:with:with: (in category 'atomic - floats') ----- + ffiTestDoubles9: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 + "FFITestLibrary ffiTestDoubles9: 1.0 with: 2.0 with: 3.0 with: 4.0 with: 5.0 with: 6.0 with: 7.0 with: 8.0 with: 9.0" + <cdecl: double 'ffiTestDoubles9' (double double double double double double double double double) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestDoubles:with: (in category 'atomic - floats') ----- - ----- Method: FFITestLibrary class>>ffiTestDoubles:with: (in category 'primitives') ----- ffiTestDoubles: f1 with: f2 "FFITestLibrary ffiTestDoubles: $A with: 65.0" <cdecl: double 'ffiTestDoubles' (double double) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestFloats13:with:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - floats') ----- + ffiTestFloats13: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 with: f10 with: f11 with: f12 with: f13 + + <cdecl: float 'ffiTestFloats13' (float float float float float float float float float float float float float) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestFloats14:with:with:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - floats') ----- + ffiTestFloats14: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 with: f10 with: f11 with: f12 with: f13 with: f14 + + <cdecl: float 'ffiTestFloats14' (float float float float float float float float float float float float float float) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestFloats7:with:with:with:with:with:with: (in category 'atomic - floats') ----- + ffiTestFloats7: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 + + <cdecl: float 'ffiTestFloats7' (float float float float float float float) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestFloats:with: (in category 'atomic - floats') ----- - ----- Method: FFITestLibrary class>>ffiTestFloats:with: (in category 'primitives') ----- ffiTestFloats: f1 with: f2 "FFITestLibrary ffiTestFloats: $A with: 65.0" <cdecl: float 'ffiTestFloats' (float float) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestInitSUfd:udSi2: (in category 'primitives') ----- - ffiTestInitSUfd: ufd udSi2: udSi2 - "FFITestLibrary FFITestInitSUfd: ... udSi2: .." - <cdecl: FFITestSUfdUdSi2 'ffiTestInitSUfdUdSi2' (FFITestUfd FFITestUdSi2) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestInitSUfd:ufi: (in category 'primitives') ----- - ffiTestInitSUfd: ufd ufi: ufi - "FFITestLibrary ffiTestInitSUfd: ... ufi: .." - <cdecl: FFITestSUfdUfi 'ffiTestInitSUfdUfi' (FFITestUfd FFITestUfi) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInitSUfdUdSi2:with: (in category 'structure - init') ----- + ffiTestInitSUfdUdSi2: ufd with: udSi2 + "FFITestLibrary ffiTestInitSUfdUdSi2: ... with: .." + <cdecl: FFITestSUfdUdSi2 'ffiTestInitSUfdUdSi2' (FFITestUfd FFITestUdSi2) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInitSUfdUfi:with: (in category 'structure - init') ----- + ffiTestInitSUfdUfi: ufd with: ufi + "FFITestLibrary ffiTestInitSUfdUfi: ... with: .." + <cdecl: FFITestSUfdUfi 'ffiTestInitSUfdUfi' (FFITestUfd FFITestUfi) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestInitUdSi2WithDouble: (in category 'primitives') ----- - ffiTestInitUdSi2WithDouble: d - "FFITestLibrary ffiTestInitUdSi2WithDouble: 1.0" - <cdecl: FFITestUdSi2 'ffiTestInitUdSi2_d' (double) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestInitUdSi2WithInt:int: (in category 'primitives') ----- - ffiTestInitUdSi2WithInt: i1 int: i2 - "FFITestLibrary ffiTestInitUdSi2WithInt: 1 int: 2" - <cdecl: FFITestUdSi2 'ffiTestInitUdSi2_ii' (long long) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInitUdSi2_d: (in category 'structure - init') ----- + ffiTestInitUdSi2_d: d + "FFITestLibrary ffiTestInitUdSi2_d: 1.0" + <cdecl: FFITestUdSi2 'ffiTestInitUdSi2_d' (double) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInitUdSi2_ii:with: (in category 'structure - init') ----- + ffiTestInitUdSi2_ii: i1 with: i2 + "FFITestLibrary ffiTestInitUdSi2_ii: 1 with: 2" + <cdecl: FFITestUdSi2 'ffiTestInitUdSi2_ii' (int32_t int32_t) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestInitUfdWithDouble: (in category 'primitives') ----- - ffiTestInitUfdWithDouble: d - "FFITestLibrary ffiTestInitUfdWithDouble: 1.0" - <cdecl: FFITestUfd 'ffiTestInitUfd_d' (double) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestInitUfdWithFloat: (in category 'primitives') ----- - ffiTestInitUfdWithFloat: f - "FFITestLibrary ffiTestInitUfdWithFloat: 1.0" - <cdecl: FFITestUfd 'ffiTestInitUfd_f' (float) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInitUfd_d: (in category 'structure - init') ----- + ffiTestInitUfd_d: d + "FFITestLibrary ffiTestInitUfd_d: 1.0" + <cdecl: FFITestUfd 'ffiTestInitUfd_d' (double) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInitUfd_f: (in category 'structure - init') ----- + ffiTestInitUfd_f: f + "FFITestLibrary ffiTestInitUfd_f: 1.0" + <cdecl: FFITestUfd 'ffiTestInitUfd_f' (float) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestInitUfiWithFloat: (in category 'primitives') ----- - ffiTestInitUfiWithFloat: f - "FFITestLibrary ffiTestInitUfiWithFloat: 1.0" - <cdecl: FFITestUfi 'ffiTestInitUfi_f' (float) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestInitUfiWithInt: (in category 'primitives') ----- - ffiTestInitUfiWithInt: i - "FFITestLibrary ffiTestInitUfiWithInt: 2" - <cdecl: FFITestUfi 'ffiTestInitUfi_i' (long) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInitUfi_f: (in category 'structure - init') ----- + ffiTestInitUfi_f: f + "FFITestLibrary ffiTestInitUfi_f: 1.0" + <cdecl: FFITestUfi 'ffiTestInitUfi_f' (float) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInitUfi_i: (in category 'structure - init') ----- + ffiTestInitUfi_i: i + "FFITestLibrary ffiTestInitUfi_i: 2" + <cdecl: FFITestUfi 'ffiTestInitUfi_i' (long) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInt4IntAliasSum:with:with:with: (in category 'type alias') ----- + ffiTestInt4IntAliasSum: 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 removed: - ----- Method: FFITestLibrary class>>ffiTestInt:with:with:with: (in category 'primitives - long vs. int') ----- - ffiTestInt: c1 with: c2 with: c3 with: c4 - "FFITestLibrary ffiTestInt: $A with: 65 with: 65.0 with: true" - <cdecl: int 'ffiTestInts' (int int int int) module:'SqueakFFIPrims'> - self flag: #ffiLongVsInt. - ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestIntAlias4IntAliasSum:with:with:with: (in category 'type alias') ----- - ----- 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: FFITestIntAlias 'ffiTest4IntSum' (FFITestIntAlias FFITestIntAlias FFITestIntAlias FFITestIntAlias) module:'SqueakFFIPrims'> - <cdecl: int 'ffiTest4IntSum' (FFITestIntAlias FFITestIntAlias FFITestIntAlias FFITestIntAlias) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestIntAlias4IntSum:with:with:with: (in category 'type alias') ----- - ----- 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! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInts8:with:with:with:with:with:with:with: (in category 'atomic - int32_t') ----- + ffiTestInts8: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8 + "Always answers 42." + <cdecl: int32_t 'ffiTestInts8' (int32_t int32_t int32_t int32_t int32_t int32_t int32_t int32_t) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestInts:with:with:with: (in category 'atomic - int32_t') ----- + ffiTestInts: c1 with: c2 with: c3 with: c4 + "Adds c1 + c2" + <cdecl: int32_t 'ffiTestInts' (int32_t int32_t int32_t int32_t) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestLong:with:with:with: (in category 'primitives - long vs. int') ----- - ffiTestLong: c1 with: c2 with: c3 with: c4 - "FFITestLibrary ffiTestLong: $A with: 65 with: 65.0 with: true" - <cdecl: long 'ffiTestInts' (long long long long) module:'SqueakFFIPrims'> - self flag: #ffiLongVsInt. - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestLongLong8:with:with:with:with:with:with:with:with:with: (in category 'atomic - int64_t') ----- + ffiTestLongLong8: char1 with: char2 with: char3 with: char4 with: char5 with: char6 with: char7 with: char8 with: long1 with: long2 + + <cdecl: longlong 'ffiTestLongLong8' (char char char char char char char char longlong longlong) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestLongLong8a1:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - int64_t') ----- + ffiTestLongLong8a1: char1 with: char2 with: char3 with: char4 with: char5 with: char6 with: char7 with: char8 with: char9 with: long1 with: long2 + + <cdecl: longlong 'ffiTestLongLong8a1' (char char char char char char char char char longlong longlong) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestLongLong8a2:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - int64_t') ----- + ffiTestLongLong8a2: char1 with: char2 with: char3 with: char4 with: char5 with: char6 with: char7 with: char8 with: char9 with: char10 with: long1 with: long2 + + <cdecl: longlong 'ffiTestLongLong8a2' (char char char char char char char char char char longlong longlong) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestLongLong:with: (in category 'atomic - int64_t') ----- - ----- Method: FFITestLibrary class>>ffiTestLongLong:with: (in category 'primitives') ----- ffiTestLongLong: long1 with: long2 "FFITestLibrary ffiTestLongLong: 3 with: 4" <cdecl: longlong 'ffiTestLongLong' (longlong longlong) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestLongLongA1:with:with: (in category 'primitives') ----- - ffiTestLongLongA1: byte with: long1 with: long2 - "FFITestLibrary ffiTestLongLongA1: 3 with: 4 with: 5" - <cdecl: longlong 'ffiTestLongLonga1' (char longlong longlong) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestLongLongA3:with:with: (in category 'primitives') ----- - ffiTestLongLongA3: byte1 with: long1 with: byte2 - "FFITestLibrary ffiTestLongLongA3: 3 with: 4 with: 5" - <cdecl: longlong 'ffiTestLongLonga3' (char longlong char) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestLongLonga1:with:with: (in category 'atomic - int64_t') ----- + ffiTestLongLonga1: byte with: long1 with: long2 + "FFITestLibrary ffiTestLongLongA1: 3 with: 4 with: 5" + <cdecl: longlong 'ffiTestLongLonga1' (char longlong longlong) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestLongLonga2:with:with:with: (in category 'atomic - int64_t') ----- + ffiTestLongLonga2: byte1 with: byte2 with: long1 with: long2 + + <cdecl: longlong 'ffiTestLongLonga2' (char char longlong longlong) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestLongLonga3:with:with: (in category 'atomic - int64_t') ----- + ffiTestLongLonga3: byte1 with: long1 with: byte2 + "FFITestLibrary ffiTestLongLonga3: 3 with: 4 with: 5" + <cdecl: longlong 'ffiTestLongLonga3' (char longlong char) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestLongLongs8:with:with:with:with:with:with:with: (in category 'atomic - int64_t') ----- + ffiTestLongLongs8: long1 with: long2 with: long3 with: long4 with: long5 with: long6 with: long7 with: long8 + "Always answers 42." + <cdecl: longlong 'ffiTestLongLongs8' (longlong longlong longlong longlong longlong longlong longlong longlong) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestMixedDoublesAndLongs:with:with:with:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic') ----- + ffiTestMixedDoublesAndLongs: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 with: arg8 with: arg9 with: arg10 with: arg11 with: arg12 with: arg13 with: arg14 with: arg15 "with: arg16 with: arg17 with: arg18 with: arg19 with: arg20" + + <cdecl: double 'ffiTestMixedDoublesAndLongs' (double c_long double c_long double c_long double c_long double c_long double c_long double c_long double c_long double c_long double c_long) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestMixedDoublesIntAndStruct:d:d:d:d:d:d:d:d:i:s: (in category 'primitives') ----- - ffiTestMixedDoublesIntAndStruct: f1 d: f2 d: f3 d: f4 d: f5 d: f6 d: f7 d: f8 d: f9 i: i1 s: s1 - "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: (FFITestPoint4 new x: 3; y: 4; z: 5; w:6)" - <cdecl: double 'ffiTestMixedDoublesIntAndStruct' (double double double double double double double double double long FFITestPoint4) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestMixedDoublesIntAndStruct:with:with:with:with:with:with:with:with:with:with: (in category 'structure') ----- + ffiTestMixedDoublesIntAndStruct: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 with: i1 with: s1 + " + FFITestLibrary ffiTestMixedDoublesIntAndStruct: 1.0 + with: 2.0 with: 3.0 with: 4.0 with: 5.0 + with: 6.0 with: 7.0 with: 8.0 with: 9.0 with: 42 + with: (FFITestPoint4 new x: 3; y: 4; z: 5; w:6) + " + <cdecl: double 'ffiTestMixedDoublesIntAndStruct' (double double double double double double double double double long FFITestPoint4) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestMixedFloatsAndDouble:with:with:with: (in category 'atomic') ----- - ----- Method: FFITestLibrary class>>ffiTestMixedFloatsAndDouble:with:with:with: (in category 'primitives') ----- ffiTestMixedFloatsAndDouble: f1 with: d1 with: f2 with: f3 "FFITestLibrary ffiTestMixedFloatsAndDouble: 1.2 with: 3.4 with: 5.6 with: 7.8" <cdecl: double 'ffiTestMixedFloatsAndDouble' (float double float float) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct2:with: (in category 'structure') ----- - ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct2:with: (in category 'primitives') ----- ffiTestMixedIntAndStruct2: i with: pt4 "FFITestLibrary ffiTestMixedIntAndStruct2: 2 with: (FFITestPoint4 new x: 3; y: 4; z: 5; w:6)" + <cdecl: int32_t 'ffiTestMixedIntAndStruct2' (int32_t FFITestPoint4) module:'SqueakFFIPrims'> - <cdecl: long 'ffiTestMixedIntAndStruct2' (long FFITestPoint4) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct3:with: (in category 'structure') ----- - ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct3:with: (in category 'primitives') ----- ffiTestMixedIntAndStruct3: i with: anFFISmallStruct1 "FFITestLibrary ffiTestMixedIntAndStruct3: 2 with: (FFISmallStruct1 new x: 3; y: 4)" + <cdecl: int32_t 'ffiTestMixedIntAndStruct3' (int32_t FFISmallStruct1) module:'SqueakFFIPrims'> - <cdecl: long 'ffiTestMixedIntAndStruct3' (long FFISmallStruct1) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct:with:with: (in category 'structure') ----- - ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct:with:with: (in category 'primitives') ----- ffiTestMixedIntAndStruct: i with: pt1 with: pt2 "FFITestLibrary ffiTestMixedIntAndStruct: 2 with: (FFITestPoint2 new x: 3; y: 4) with: (FFITestPoint2 new x: 5; y: 6)" + <cdecl: int32_t 'ffiTestMixedIntAndStruct' (int32_t FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'> - <cdecl: long 'ffiTestMixedIntAndStruct' (long FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestPoint2:with: (in category 'primitives') ----- - ffiTestPoint2: pt1 with: pt2 - <cdecl: FFITestPoint2 'ffiTestStruct64' (FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestPoint4:with: (in category 'primitives') ----- - ffiTestPoint4: pt1 with: pt2 - <cdecl: FFITestPoint4 'ffiTestStructBig' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestPointers:with: (in category 'structure - points') ----- - ----- Method: FFITestLibrary class>>ffiTestPointers:with: (in category 'primitives') ----- ffiTestPointers: pt1 with: pt2 + "Allocates the result. Needs to be free'd after calling." <cdecl: FFITestPoint4* 'ffiTestPointers' (FFITestPoint4* FFITestPoint4*) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSSdi5 (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSSdi5 (in category 'primitives') ----- ffiTestReturnSSdi5 "FFITestLibrary ffiTestReturnSSdi5" <cdecl: FFITestSSdi5 'ffiTestReturnSSdi5' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSd2 (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSd2 (in category 'primitives') ----- ffiTestReturnSd2 "FFITestLibrary ffiTestReturnSd2" <cdecl: FFITestSd2 'ffiTestReturnSd2' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSdi (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSdi (in category 'primitives') ----- ffiTestReturnSdi "FFITestLibrary ffiTestReturnSdi" <cdecl: FFITestSdi 'ffiTestReturnSdi' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSf2 (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSf2 (in category 'primitives') ----- ffiTestReturnSf2 "FFITestLibrary ffiTestReturnSf2" <cdecl: FFITestSf2 'ffiTestReturnSf2' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSf2d (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSf2d (in category 'primitives') ----- ffiTestReturnSf2d "FFITestLibrary ffiTestReturnSf2d" <cdecl: FFITestSf2d 'ffiTestReturnSf2d' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSf4 (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSf4 (in category 'primitives') ----- ffiTestReturnSf4 "FFITestLibrary ffiTestReturnSf4" <cdecl: FFITestSf4 'ffiTestReturnSf4' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSfd (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSfd (in category 'primitives') ----- ffiTestReturnSfd "FFITestLibrary ffiTestReturnSfd" <cdecl: FFITestSfd 'ffiTestReturnSfd' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSfdf (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSfdf (in category 'primitives') ----- ffiTestReturnSfdf "FFITestLibrary ffiTestReturnSfdf" <cdecl: FFITestSfdf 'ffiTestReturnSfdf' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSfi (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSfi (in category 'primitives') ----- ffiTestReturnSfi "FFITestLibrary ffiTestReturnSfi" <cdecl: FFITestSfi 'ffiTestReturnSfi' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSi2 (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSi2 (in category 'primitives') ----- ffiTestReturnSi2 "FFITestLibrary ffiTestReturnSi2" <cdecl: FFITestSi2 'ffiTestReturnSi2' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSl2 (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSl2 (in category 'primitives') ----- ffiTestReturnSl2 "FFITestLibrary ffiTestReturnSl2" <cdecl: FFITestSl2 'ffiTestReturnSl2' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSs2 (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSs2 (in category 'primitives') ----- ffiTestReturnSs2 "FFITestLibrary ffiTestReturnSs2" <cdecl: FFITestSs2 'ffiTestReturnSs2' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSs2i (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSs2i (in category 'primitives') ----- ffiTestReturnSs2i "FFITestLibrary ffiTestReturnSs2i" <cdecl: FFITestSs2i 'ffiTestReturnSs2i' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSs4 (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSs4 (in category 'primitives') ----- ffiTestReturnSs4 "FFITestLibrary ffiTestReturnSs4" <cdecl: FFITestSs4 'ffiTestReturnSs4' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSsSsf (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSsSsf (in category 'primitives') ----- ffiTestReturnSsSsf "FFITestLibrary ffiTestReturnSsSsf" <cdecl: FFITestSsSsf 'ffiTestReturnSsSsf' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSsSsi (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSsSsi (in category 'primitives') ----- ffiTestReturnSsSsi "FFITestLibrary ffiTestReturnSsSsi" <cdecl: FFITestSsSsi 'ffiTestReturnSsSsi' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSsf (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSsf (in category 'primitives') ----- ffiTestReturnSsf "FFITestLibrary ffiTestReturnSsf" <cdecl: FFITestSsf 'ffiTestReturnSsf' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSsi (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSsi (in category 'primitives') ----- ffiTestReturnSsi "FFITestLibrary ffiTestReturnSsi" <cdecl: FFITestSsi 'ffiTestReturnSsi' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSsis (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSsis (in category 'primitives') ----- ffiTestReturnSsis "FFITestLibrary ffiTestReturnSsis" <cdecl: FFITestSsis 'ffiTestReturnSsis' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSslf (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSslf (in category 'primitives') ----- ffiTestReturnSslf "FFITestLibrary ffiTestReturnSslf" <cdecl: FFITestSslf 'ffiTestReturnSslf' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestReturnSsls (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestReturnSsls (in category 'primitives') ----- ffiTestReturnSsls "FFITestLibrary ffiTestReturnSsls" <cdecl: FFITestSsls 'ffiTestReturnSsls' () module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestShort:with:with:with: (in category 'primitives') ----- - ffiTestShort: c1 with: c2 with: c3 with: c4 - "FFITestLibrary ffiTestShort: $A with: 65 with: 65.0 with:1" - <cdecl: short 'ffiTestShorts' (short short short short) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestShorts:with:with:with: (in category 'atomic - int16_t') ----- + ffiTestShorts: c1 with: c2 with: c3 with: c4 + "Answers c1 + c2. + FFITestLibrary ffiTestShorts: 1 with: 2 with: 3 with: 4" + <cdecl: short 'ffiTestShorts' (short short short short) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestSmallStructReturn (in category 'structure - return') ----- - ----- Method: FFITestLibrary class>>ffiTestSmallStructReturn (in category 'primitives') ----- ffiTestSmallStructReturn "FFITestLibrary ffiTestSmallStructReturn" <cdecl: FFISmallStruct1 'ffiTestSmallStructReturn' (void) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestStruct64:with: (in category 'structure - points') ----- + ffiTestStruct64: pt1 with: pt2 + "pt1 + pt2" + <cdecl: FFITestPoint2 'ffiTestStruct64' (FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestStructBig:with: (in category 'structure - points') ----- + ffiTestStructBig: pt1 with: pt2 + "pt1 + pt2" + <cdecl: FFITestPoint4 'ffiTestStructBig' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestStructBigger:with: (in category 'structure - points') ----- + ffiTestStructBigger: pt1 with: pt2 + "Copies the values of pt1 to x, y, z, w and pt2 to r, s, t, u in the resulting struct." + <cdecl: FFITestBiggerStruct 'ffiTestStructBigger' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumOfDoubleFromSUfdUdsi2: (in category 'primitives') ----- - ffiTestSumOfDoubleFromSUfdUdsi2: sUfdUfi - "FFITestLibrary ffiTestSumOfFloatFromSUfdUdSi2: (FFITestLibrary ...)" - <cdecl: double 'ffiTestSumSUfdUdSi2_d' (FFITestSUfdUdSi2) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumOfFloatFromSUfdUfi: (in category 'primitives') ----- - ffiTestSumOfFloatFromSUfdUfi: sUfdUfi - "FFITestLibrary ffiTestSumOfFloatFromSUfdUfi: (FFITestLibrary ...)" - <cdecl: double 'ffiTestSumSUfdUfi_f' (FFITestSUfdUfi) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSSdi5: (in category 'structure - sums') ----- + ffiTestSumSSdi5: structSdi5 + " + FFITestLibrary ffiTestSumSSdi5: FFITestLibrary ffiTestReturnSSdi5 + " + <cdecl: double 'ffiTestSumSSdi5' (FFITestSSdi5) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSUfdUdSi2_d: (in category 'structure - sums') ----- + ffiTestSumSUfdUdSi2_d: sUfdUfi + " + FFITestLibrary ffiTestSumOfFloatFromSUfdUdSi2: (FFITestLibrary ...) + " + <cdecl: double 'ffiTestSumSUfdUdSi2_d' (FFITestSUfdUdSi2) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSUfdUfi_f: (in category 'structure - sums') ----- + ffiTestSumSUfdUfi_f: sUfdUfi + " + FFITestLibrary ffiTestSumSUfdUfi_f: (FFITestLibrary ...) + " + <cdecl: double 'ffiTestSumSUfdUfi_f' (FFITestSUfdUfi) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestSumSdi: (in category 'structure - sums') ----- - ----- Method: FFITestLibrary class>>ffiTestSumSdi: (in category 'primitives') ----- ffiTestSumSdi: sdi + " + FFITestLibrary ffiTestSumSdi: FFITestLibrary ffiTestReturnSdi + " - "FFITestLibrary ffiTestSumSdi: FFITestLibrary ffiTestReturnSdi" <cdecl: double 'ffiTestSumSdi' (FFITestSdi) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumSdi:sdi: (in category 'primitives') ----- - ffiTestSumSdi: sdi1 sdi: sdi2 - "FFITestLibrary ffiTestSumSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi" - <cdecl: double 'ffiTestSumSdi_2' (FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumSdi:sdi:sdi:sdi: (in category 'primitives') ----- - ffiTestSumSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4 - "FFITestLibrary ffiTestSumSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi" - <cdecl: double 'ffiTestSumSdi_4' (FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSdi_2:with: (in category 'structure - sums') ----- + ffiTestSumSdi_2: sdi1 with: sdi2 + " + FFITestLibrary + ffiTestSumSdi_2: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + " + <cdecl: double 'ffiTestSumSdi_2' (FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSdi_4:with:with:with: (in category 'structure - sums') ----- + ffiTestSumSdi_4: sdi1 with: sdi2 with: sdi3 with: sdi4 + " + FFITestLibrary + ffiTestSumSdi_4: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + " + <cdecl: double 'ffiTestSumSdi_4' (FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestSumSfd: (in category 'structure - sums') ----- - ----- Method: FFITestLibrary class>>ffiTestSumSfd: (in category 'primitives') ----- ffiTestSumSfd: sfd + " + FFITestLibrary ffiTestSumSfd: FFITestLibrary ffiTestReturnSfd + " - "FFITestLibrary ffiTestSumSfd: FFITestLibrary ffiTestReturnSfd" <cdecl: double 'ffiTestSumSfd' (FFITestSfd) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumSfd:sfd: (in category 'primitives') ----- - ffiTestSumSfd: sfd1 sfd: sfd2 - "FFITestLibrary ffiTestSumSfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd" - <cdecl: double 'ffiTestSumSfd_2' (FFITestSfd FFITestSfd) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumSfd:sfd:sfd:sfd: (in category 'primitives') ----- - ffiTestSumSfd: sfd1 sfd: sfd2 sfd: sfd3 sfd: sfd4 - "FFITestLibrary ffiTestSumSfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd" - <cdecl: double 'ffiTestSumSfd_4' (FFITestSfd FFITestSfd FFITestSfd FFITestSfd) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSfd_2:with: (in category 'structure - sums') ----- + ffiTestSumSfd_2: sfd1 with: sfd2 + " + FFITestLibrary + ffiTestSumSfd_2: FFITestLibrary ffiTestReturnSfd + with: FFITestLibrary ffiTestReturnSfd + " + <cdecl: double 'ffiTestSumSfd_2' (FFITestSfd FFITestSfd) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSfd_4:with:with:with: (in category 'structure - sums') ----- + ffiTestSumSfd_4: sfd1 with: sfd2 with: sfd3 with: sfd4 + " + FFITestLibrary + ffiTestSumSfd_4: FFITestLibrary ffiTestReturnSfd + with: FFITestLibrary ffiTestReturnSfd + with: FFITestLibrary ffiTestReturnSfd + with: FFITestLibrary ffiTestReturnSfd + " + <cdecl: double 'ffiTestSumSfd_4' (FFITestSfd FFITestSfd FFITestSfd FFITestSfd) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestSumSslf: (in category 'structure - sums') ----- - ----- Method: FFITestLibrary class>>ffiTestSumSslf: (in category 'primitives') ----- ffiTestSumSslf: sslf + " + FFITestLibrary ffiTestSumSslf: FFITestLibrary ffiTestReturnSslf + " - "FFITestLibrary ffiTestSumSslf: FFITestLibrary ffiTestReturnSslf" <cdecl: double 'ffiTestSumSslf' (FFITestSslf) module:'SqueakFFIPrims'> ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumSslf:sslf: (in category 'primitives') ----- - ffiTestSumSslf: sslf1 sslf: sslf2 - "FFITestLibrary ffiTestSumSslf: FFITestLibrary ffiTestReturnSslf sslf: FFITestLibrary ffiTestReturnSslf" - <cdecl: double 'ffiTestSumSslf_2' (FFITestSslf FFITestSslf) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumSslf:sslf:sslf:sslf: (in category 'primitives') ----- - ffiTestSumSslf: sslf1 sslf: sslf2 sslf: sslf3 sslf: sslf4 - "FFITestLibrary ffiTestSumSslf: FFITestLibrary ffiTestReturnSslf sslf: FFITestLibrary ffiTestReturnSslf sslf: FFITestLibrary ffiTestReturnSslf sslf: FFITestLibrary ffiTestReturnSslf" - <cdecl: double 'ffiTestSumSslf_4' (FFITestSslf FFITestSslf FFITestSslf FFITestSslf) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSslf_2:with: (in category 'structure - sums') ----- + ffiTestSumSslf_2: sslf1 with: sslf2 + " + FFITestLibrary + ffiTestSumSslf_2: FFITestLibrary ffiTestReturnSslf + with: FFITestLibrary ffiTestReturnSslf + " + <cdecl: double 'ffiTestSumSslf_2' (FFITestSslf FFITestSslf) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumSslf_4:with:with:with: (in category 'structure - sums') ----- + ffiTestSumSslf_4: sslf1 with: sslf2 with: sslf3 with: sslf4 + " + FFITestLibrary + ffiTestSumSslf_4: FFITestLibrary ffiTestReturnSslf + with: FFITestLibrary ffiTestReturnSslf + with: FFITestLibrary ffiTestReturnSslf + with: FFITestLibrary ffiTestReturnSslf + " + <cdecl: double 'ffiTestSumSslf_4' (FFITestSslf FFITestSslf FFITestSslf FFITestSslf) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumStructSdi5: (in category 'primitives') ----- - ffiTestSumStructSdi5: structSdi5 - "FFITestLibrary ffiTestSumStructSdi5: FFITestLibrary ffiTestReturnSSdi5" - <cdecl: double 'ffiTestSumSSdi5' (FFITestSSdi5) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumd:i:withSdi:sdi:sdi:sdi: (in category 'primitives') ----- - ffiTestSumd: aDouble i: anInt withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4 - "FFITestLibrary ffiTestSumd: 4.0 i: 3 withSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi" - <cdecl: double 'ffiTestSumdiWithSdi_4' (double long FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumd:withSdi:sdi:sdi:sdi: (in category 'primitives') ----- - ffiTestSumd: aDouble withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4 - "FFITestLibrary ffiTestSumd: 4.0 withSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi" - <cdecl: double 'ffiTestSumdWithSdi_4' (double FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumdWithSdi_4:with:with:with:with: (in category 'structure - sums') ----- + ffiTestSumdWithSdi_4: aDouble with: sdi1 with: sdi2 with: sdi3 with: sdi4 + " + FFITestLibrary + ffiTestSumdWithSdi_4: 4.0 + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + " + <cdecl: double 'ffiTestSumdWithSdi_4' (double FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumdiWithSdi_4:with:with:with:with:with: (in category 'structure - sums') ----- + ffiTestSumdiWithSdi_4: aDouble with: anInt with: sdi1 with: sdi2 with: sdi3 with: sdi4 + " + FFITestLibrary + ffiTestSumdiWithSdi_4: 4.0 + with: 3 + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + " + <cdecl: double 'ffiTestSumdiWithSdi_4' (double long FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumf:withSfd:sfd:sfd:sfd: (in category 'primitives') ----- - ffiTestSumf: aFloat withSfd: sfd1 sfd: sfd2 sfd: sfd3 sfd: sfd4 - "FFITestLibrary ffiTestSumf: 0.5 withSfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd" - <cdecl: double 'ffiTestSumfWithSfd_4' (float FFITestSfd FFITestSfd FFITestSfd FFITestSfd) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumfWithSfd_4:with:with:with:with: (in category 'structure - sums') ----- + ffiTestSumfWithSfd_4: aFloat with: sfd1 with: sfd2 with: sfd3 with: sfd4 + " + FFITestLibrary + ffiTestSumf: 0.5 + with: FFITestLibrary ffiTestReturnSfd + with: FFITestLibrary ffiTestReturnSfd + with: FFITestLibrary ffiTestReturnSfd + with: FFITestLibrary ffiTestReturnSfd + " + <cdecl: double 'ffiTestSumfWithSfd_4' (float FFITestSfd FFITestSfd FFITestSfd FFITestSfd) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestSumi:withSdi:sdi:sdi:sdi: (in category 'primitives') ----- - ffiTestSumi: anInt withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4 - "FFITestLibrary ffiTestSumi: 3 withSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi" - <cdecl: double 'ffiTestSumiWithSdi_4' (long FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> - ^self externalCallFailed! Item was added: + ----- Method: FFITestLibrary class>>ffiTestSumiWithSdi_4:with:with:with:with: (in category 'structure - sums') ----- + ffiTestSumiWithSdi_4: anInt with: sdi1 with: sdi2 with: sdi3 with: sdi4 + " + FFITestLibrary + ffiTestSumiWithSdi_4: 3 + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + with: FFITestLibrary ffiTestReturnSdi + " + <cdecl: double 'ffiTestSumiWithSdi_4' (int32_t FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'> + ^self externalCallFailed! Item was changed: + ----- Method: FFITestLibrary class>>ffiTestUint:with:with:with: (in category 'atomic - uint32_t') ----- - ----- Method: FFITestLibrary class>>ffiTestUint:with:with:with: (in category 'primitives - long vs. int') ----- ffiTestUint: c1 with: c2 with: c3 with: c4 + "Answers c1 + c2. Repurpose ffiTestInts to check uint32_t range." + <cdecl: int32_t 'ffiTestInts' (uint32_t uint32_t uint32_t uint32_t) module:'SqueakFFIPrims'> - "FFITestLibrary ffiTestUint: 3103854339 with: 3103854339 with: 3103854339 with: 3103854339" - <cdecl: int 'ffiTestInts' (uint uint uint uint) module:'SqueakFFIPrims'> - self flag: #ffiLongVsInt. ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary class>>ffiTestUlong:with:with:with: (in category 'primitives - long vs. int') ----- - ffiTestUlong: c1 with: c2 with: c3 with: c4 - "FFITestLibrary ffiTestUlong: 3103854339 with: 3103854339 with: 3103854339 with: 3103854339" - <cdecl: long 'ffiTestInts' (ulong ulong ulong ulong) module:'SqueakFFIPrims'> - self flag: #ffiLongVsInt. - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary>>ffiPrintString: (in category 'primitives') ----- - ffiPrintString: aString - "FFITestLibrary new ffiPrintString: 'Hello'" - <cdecl: char* 'ffiPrintString' (char *)> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary>>ffiTestChar:with:with:with: (in category 'primitives') ----- - ffiTestChar: c1 with: c2 with: c3 with: c4 - "FFITestLibrary new ffiTestChar: $A with: 65 with: 65.0 with: true" - <cdecl: char 'ffiTestChars' (char char char char)> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary>>ffiTestDoubles:with: (in category 'primitives') ----- - ffiTestDoubles: f1 with: f2 - "FFITestLibrary new ffiTestDoubles: $A with: 65.0" - <cdecl: double 'ffiTestDoubles' (double double)> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary>>ffiTestFloats:with: (in category 'primitives') ----- - ffiTestFloats: f1 with: f2 - "FFITestLibrary new ffiTestFloats: $A with: 65.0" - <cdecl: float 'ffiTestFloats' (float float)> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary>>ffiTestInt:with:with:with: (in category 'primitives') ----- - ffiTestInt: c1 with: c2 with: c3 with: c4 - "FFITestLibrary new ffiTestInt: $A with: 65 with: 65.0 with: $A" - <cdecl: long 'ffiTestInts' (long long long long)> - ^self externalCallFailed! Item was removed: - ----- Method: FFITestLibrary>>ffiTestShort:with:with:with: (in category 'primitives') ----- - ffiTestShort: c1 with: c2 with: c3 with: c4 - "FFITestLibrary new ffiTestShort: $A with: 65 with: 65.0 with: $A" - <cdecl: short 'ffiTestShorts' (short short short short)> - ^self externalCallFailed! Item was changed: ----- Method: FFITestMisalignedCompoundStruct class>>fields (in category 'field definition') ----- fields "FFITestMisalignedCompoundStruct defineFields" ^#( + (s1 'int16_t') "short" - (s1 #short) (s2 'FFITestMisalignedStruct') )! Item was changed: ----- Method: FFITestMisalignedStruct class>>fields (in category 'field definition') ----- fields "FFITestMisalignedStruct defineFields" ^#( + (s1 'int16_t') "short" + (i1 'int32_t') - (s1 #short) - (i1 #long) )! Item was changed: ----- Method: FFITestPoint2 class>>fields (in category 'field definition') ----- fields "FFITestPoint2 defineFields" ^#( + (x 'int32_t') + (y 'int32_t') - (x 'long') - (y 'long') )! Item was added: + ----- Method: FFITestPoint2>>asPoint (in category 'converting') ----- + asPoint + + ^ self x @ self y! Item was added: + ----- Method: FFITestPoint2>>setX:setY: (in category 'initialization') ----- + setX: xValue setY: yValue. + + self x: xValue. + self y: yValue.! Item was changed: ----- Method: FFITestPoint4 class>>fields (in category 'field definition') ----- fields "FFITestPoint4 defineFields" ^#( + (x 'int32_t') + (y 'int32_t') + (z 'int32_t') + (w 'int32_t') - (x 'long') - (y 'long') - (z 'long') - (w 'long') )! Item was changed: ----- Method: FFITestSdi class>>fields (in category 'field definition') ----- fields "FFITestSdi defineFields" ^#( (d1 'double') + (i2 'int32_t') - (i2 'long') )! Item was changed: ----- Method: FFITestSfi class>>fields (in category 'field definition') ----- fields "FFITestSfi defineFields" ^#( (f1 'float') + (i2 'int32_t') - (i2 'long') )! Item was changed: ----- Method: FFITestSi2 class>>fields (in category 'field definition') ----- fields "FFITestSi2 defineFields" ^#( + (i1 'int32_t') + (i2 'int32_t') - (i1 'long') - (i2 'long') )! Item was changed: ----- Method: FFITestSl2 class>>fields (in category 'field definition') ----- fields "FFITestSl2 defineFields" ^#( + (l1 'int64_t') "longlong" + (l2 'int64_t') "longlong" - (l1 'longlong') - (l2 'longlong') )! Item was changed: ----- Method: FFITestSs2 class>>fields (in category 'field definition') ----- fields "FFITestSs2 defineFields" ^#( + (s1 'int16_t') "short" + (s2 'int16_t') "short" - (s1 'short') - (s2 'short') )! Item was changed: ----- Method: FFITestSs2i class>>fields (in category 'field definition') ----- fields "FFITestSs2i defineFields" ^#( + (s1 'int16_t') "short" + (s2 'int16_t') "short" + (i3 'int32_t') - (s1 'short') - (s2 'short') - (i3 'long') )! Item was changed: ----- Method: FFITestSs4 class>>fields (in category 'field definition') ----- fields "FFITestSs4 defineFields" ^#( + (s1 'int16_t') "short" + (s2 'int16_t') "short" + (s3 'int16_t') "short" + (s4 'int16_t') "short" - (s1 'short') - (s2 'short') - (s3 'short') - (s4 'short') )! Item was changed: ----- Method: FFITestSsSsf class>>fields (in category 'field definition') ----- fields "FFITestSsSsf defineFields" ^#( + (s1 'int16_t') "short" - (s1 'short') (ssf2 'FFITestSsf') )! Item was changed: ----- Method: FFITestSsSsi class>>fields (in category 'field definition') ----- fields "FFITestSsSsi defineFields" ^#( + (s1 'int16_t') "short" + (ssi2 FFITestSsi) - (s1 'short') - (ssi2 'FFITestSsi') )! Item was changed: ----- Method: FFITestSsf class>>fields (in category 'field definition') ----- fields "FFITestSsf defineFields" ^#( + (s1 'int16_t') "short" - (s1 'short') (f2 'float') )! Item was changed: ----- Method: FFITestSsi class>>fields (in category 'field definition') ----- fields "FFITestSsi defineFields" ^#( + (s1 'int16_t') "short" + (i2 'int32_t') - (s1 'short') - (i2 'long') )! Item was changed: ----- Method: FFITestSsis class>>fields (in category 'field definition') ----- fields "FFITestSsis defineFields" ^#( + (s1 'int16_t') "short" + (i2 'int32_t') + (s3 'int16_t') "short" - (s1 'short') - (i2 'long') - (s3 'short') )! Item was changed: ----- Method: FFITestSslf class>>fields (in category 'field definition') ----- fields "FFITestSslf defineFields" ^#( + (s1 'int16_t') "short" + (l2 'int64_t') "longlong" - (s1 'short') - (l2 'longlong') (f3 'float') )! Item was changed: ----- Method: FFITestSsls class>>fields (in category 'field definition') ----- fields "FFITestSsls defineFields" ^#( + (s1 'int16_t') "short" + (l2 'int64_t') "longlong" + (s3 'int16_t') "short" - (s1 'short') - (l2 'longlong') - (s3 'short') )! Item was changed: ----- Method: FFITestUfi class>>fields (in category 'field definition') ----- fields "FFITestUfi defineFields" ^#( (f1 'float') + (i1 'int32_t') - (i1 'long') )! Item was changed: ----- Method: FFITypeNameTests>>testAtomicChar (in category 'tests') ----- testAtomicChar self flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestChars:with:with:with:) - assert: (self argTypesAt: #ffiTestChar:with:with:with:) equals: (Array new: 5 withAll: ExternalType char).! Item was changed: ----- Method: FFITypeNameTests>>testAtomicInt (in category 'tests') ----- testAtomicInt self flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestInts:with:with:with:) - assert: (self argTypesAt: #ffiTestInt:with:with:with:) equals: (Array new: 5 withAll: ExternalType int).! Item was changed: ----- Method: FFITypeNameTests>>testAtomicLong (in category 'tests') ----- testAtomicLong self flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestInts:with:with:with:) - assert: (self argTypesAt: #ffiTestLong:with:with:with:) equals: (Array new: 5 withAll: ExternalType long).! Item was changed: ----- Method: FFITypeNameTests>>testAtomicUlong (in category 'tests') ----- testAtomicUlong self flag: #ffiLongVsInt; + assert: (self argTypesAt: #ffiTestUint:with:with:with:) allButFirst - assert: (self argTypesAt: #ffiTestUlong:with:with:with:) allButFirst equals: (Array new: 4 withAll: ExternalType ulong).! Item was changed: ----- Method: FFITypeNameTests>>testStruct (in category 'tests') ----- testStruct self + assert: (self argTypesAt: #ffiTestStruct64:with:) - assert: (self argTypesAt: #ffiTestPoint2:with:) equals: (Array new: 3 withAll: FFITestPoint2 externalType).!

1 0

FFI: FFI-Kernel-mt.125.mcz
by commits＠source.squeak.org 03 May '21

03 May '21

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.125.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.125 Author: mt Time: 3 May 2021, 1:52:04.145757 pm UUID: 831195f6-e82e-1f4a-9a73-70b0e085459e Ancestors: FFI-Kernel-mt.124 Fixes a regression in the print-string for external functions. Adds #typeName to reduce some code duplication. =============== Diff against FFI-Kernel-mt.124 =============== Item was changed: ----- Method: ExternalFunction>>printOn: (in category 'printing') ----- printOn: aStream aStream nextPut:$<; nextPutAll: self callingConventionString; nextPutAll:': '. { 'threaded' } with: { FFICallFlagThreaded } do: [:modifier :flag| (flags anyMask: flag) ifTrue: [aStream nextPutAll: modifier; space]]. + aStream nextPutAll: argTypes first typeName; space. - aStream print: argTypes first; space. self name == nil ifTrue:[aStream nextPutAll:'(*) '] ifFalse:[aStream print: self name asString; space]. aStream nextPut:$(. 2 to: argTypes size do:[:i| + aStream nextPutAll: (argTypes at: i) typeName. - aStream print: (argTypes at: i). i < argTypes size ifTrue:[aStream space]]. aStream nextPut:$). self module == nil ifFalse:[ aStream space; nextPutAll:'module: '; print: self module asString. ]. self errorCodeName == nil ifFalse:[ aStream space; nextPutAll:'error: '; nextPutAll: self errorCodeName. ]. aStream nextPut:$>! Item was changed: ----- Method: ExternalStructureType>>printOn: (in category 'printing') ----- printOn: aStream self isTypeAlias ifTrue: [ + aStream nextPutAll: self typeName. - aStream nextPutAll: referentClass name. aStream nextPutAll: '~>'; print: self originalType. self isEmpty ifTrue: [aStream nextPutAll: ' ???']. ^ self]. referentClass == nil ifTrue:[aStream nextPutAll: '<unknown struct type>'] ifFalse:[ super printOn: aStream. self isEmpty ifTrue: [aStream nextPutAll: ' { void }']].! Item was changed: ----- Method: ExternalType>>printOn: (in category 'printing') ----- printOn: aStream + aStream nextPutAll: self typeName. - aStream nextPutAll: (referentClass ifNil: [self atomicTypeName] ifNotNil: [referentClass name]). - self isPointerType ifTrue: [aStream nextPut: $*]. aStream space; nextPut: $(; nextPutAll: self byteSize asString; space; nextPutAll: self byteAlignment asString; nextPut: $).! Item was added: + ----- Method: ExternalType>>typeName (in category 'accessing') ----- + typeName + + ^ String streamContents: [:stream | + stream nextPutAll: (referentClass + ifNil: [self atomicTypeName] + ifNotNil: [referentClass name]). + self isPointerType + ifTrue: [stream nextPut: $*]]!

1 0

The Trunk: Tests-jar.461.mcz
by commits＠source.squeak.org 02 May '21

02 May '21

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-jar.461.mcz ==================== Summary ==================== Name: Tests-jar.461 Author: jar Time: 2 May 2021, 2:51:16.847089 pm UUID: 651bce1b-31e0-aa41-8178-47c312752c8b Ancestors: Tests-nice.460 Test #outer in combination with #resignalAs =============== Diff against Tests-nice.460 =============== Item was added: + ----- Method: ExceptionTester>>doubleOuterResignalAsTest (in category 'tests') ----- + doubleOuterResignalAsTest + "ExceptionTester new doubleOuterResignalAsTest" + + [[self doSomething. + MyResumableTestError signal. + self doYetAnotherThing] + on: MyResumableTestError + do: [:ex | ex outer. self doSomethingExceptional]. self doSomethingElse] + on: MyResumableTestError + do: [:ex | ex resignalAs: MyTestNotification] + ! Item was added: + ----- Method: ExceptionTester>>doubleOuterResignalAsTestResults (in category 'tests') ----- + doubleOuterResignalAsTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was added: + ----- Method: ExceptionTests>>testDoubleOuterResignalAs (in category 'tests - ExceptionTester') ----- + testDoubleOuterResignalAs + self assertSuccess: (ExceptionTester new runTest: #doubleOuterResignalAsTest ) !

1 0

The Trunk: Kernel-jar.1398.mcz
by commits＠source.squeak.org 02 May '21

02 May '21

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-jar.1398.mcz ==================== Summary ==================== Name: Kernel-jar.1398 Author: jar Time: 2 May 2021, 2:56:26.972089 pm UUID: 9398993d-726c-8747-bde6-506318c4f898 Ancestors: Kernel-nice.1397 Fix a bug in #resignalAs causing an incorrect evaluation of resignalAs in combination with #outer. Complemented with a test in Tests-jar.461 (Inbox) To illustrate the bug try: | x | x:=''. [ [1/0. x:=x,'1'] on: ZeroDivide do: [:ex | ex outer. x:=x,'2']. x:=x,'3' ] on: ZeroDivide do: [:ex | ex resignalAs: Notification]. x answers: ---> '2' currently - incorrect ---> '13' after the fix =============== Diff against Kernel-nice.1397 =============== Item was changed: ----- Method: Exception>>resignalAs: (in category 'handling') ----- resignalAs: replacementException + "Signal an alternative exception in place of the receiver. + Unwind to signalContext before signalling the replacement exception" - "Signal an alternative exception in place of the receiver." + signalContext resumeEvaluating: [replacementException signal]! - self resumeEvaluating: [replacementException signal]!

1 0

FFI: FFI-Tools-mt.22.mcz
by commits＠source.squeak.org 01 May '21

01 May '21

Marcel Taeumel uploaded a new version of FFI-Tools to project FFI: http://source.squeak.org/FFI/FFI-Tools-mt.22.mcz ==================== Summary ==================== Name: FFI-Tools-mt.22 Author: mt Time: 1 May 2021, 6:32:23.937408 pm UUID: 6c3060d1-8b56-c74a-99be-d36a04e838cb Ancestors: FFI-Tools-mt.21 Adds interface to enumerate fields (name and type) in structure types. Use that interface to show more structure in ObjectExplorer on such types. I could not really decide on whether to prepend or append those new fields in the object explorer. For a larger structure type, you might have to scroll down to discover the basic "compiledSpec" etc. ... =============== Diff against FFI-Tools-mt.21 =============== Item was added: + ----- Method: ExternalStructureType>>allTypesDo:seen: (in category '*FFI-Tools-enumerating') ----- + allTypesDo: aBlock seen: seenObjects + "Overridden to support cyclic typedefs." + + (seenObjects ifAbsentAdd: self) ifFalse: [^ self]. + super allTypesDo: aBlock seen: seenObjects.! Item was changed: ----- Method: ExternalStructureType>>explorerContents (in category '*FFI-Tools') ----- explorerContents + | basicExplorerFields originalTypeField fieldTypeFields | - | basicExplorerFields originalTypeField | basicExplorerFields := super explorerContents. + + self isTypeAlias ifTrue: [ + originalTypeField := ObjectExplorerWrapper + with: self originalType + name: '_originalType' + model: self. + ^ {originalTypeField}, basicExplorerFields]. + + fieldTypeFields := Array streamContents: [:s | + self typesDo: [:type :fieldName | + s nextPut: (ObjectExplorerWrapper + with: type + name: (fieldName ifNil: ['__'] ifNotNil: ['_', fieldName]) + model: self)]]. + + ^ fieldTypeFields, basicExplorerFields! - self isTypeAlias ifFalse: [^ basicExplorerFields]. - originalTypeField := ObjectExplorerWrapper - with: self originalType - name: '_originalType' - model: self. - ^ {originalTypeField}, basicExplorerFields! Item was added: + ----- Method: ExternalStructureType>>typesDo: (in category '*FFI-Tools-enumerating') ----- + typesDo: block + + self assert: [self isPointerType not]. + self assert: [self referentClass notNil]. + + (self isTypeAlias + ifTrue: [ + "Add a custom role to emphasize it in #allTypes." + {{#'_aliasFor' . self referentClass fields second}}] + ifFalse: [self referentClass fields]) + do: [:spec | + | fieldName typeName type | + fieldName := spec first. + typeName := spec second. + type := ExternalType typeNamed: typeName. + block cull: type cull: fieldName].! Item was added: + ----- Method: ExternalType>>allTypes (in category '*FFI-Tools-enumerating') ----- + allTypes + + ^ Array streamContents: [:s | + self allTypesDo: [:type :fieldName | + s nextPut: fieldName -> type]]! Item was added: + ----- Method: ExternalType>>allTypesDo: (in category '*FFI-Tools-enumerating') ----- + allTypesDo: block + + self allTypesDo: block seen: IdentitySet new.! Item was added: + ----- Method: ExternalType>>allTypesDo:seen: (in category '*FFI-Tools-enumerating') ----- + allTypesDo: aBlock seen: seenObjects + + self typesDo: [:type :fieldName | + aBlock cull: type cull: fieldName. + type allTypesDo: aBlock seen: seenObjects].! Item was added: + ----- Method: ExternalType>>types (in category '*FFI-Tools-enumerating') ----- + types + + ^ Array streamContents: [:s | + self typesDo: [:type :fieldName | s nextPut: fieldName -> type]]! Item was added: + ----- Method: ExternalType>>typesDo: (in category '*FFI-Tools-enumerating') ----- + typesDo: block + + self isPointerType + ifTrue: [ self asNonPointerType typesDo: block ] + ifFalse: [ "Atomic. There are no more types here." ].!

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 May 2021