FFI: FFI-Tools-mt.6.mcz

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

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

Name: FFI-Tools-mt.6
Author: mt
Time: 1 June 2020, 10:07:54.246523 am
UUID: ecaa6159-1abb-7f4f-b725-22098f843230
Ancestors: FFI-Tools-mt.5

Complements FFI-Kernel-mt.83.

=============== Diff against FFI-Tools-mt.5 ===============

Item was added:
+ ----- Method: ExternalType>>printAtomicType:on: (in category '*FFI-Tools-printing') -----
+ printAtomicType: spec on: aStream
+ self assert: (spec anyMask: FFIFlagAtomic).
+ aStream nextPutAll: (#( 'void' 'unsigned char' 'unsigned char' 'signed char'
+ 'unsigned short' 'short' 'unsigned long' 'long'
+ 'unsigned long long' 'long long' 'char' 'signed char'
+ 'float' 'double') at: ((spec bitAnd: FFIAtomicTypeMask) bitShift: FFIAtomicTypeShift negated) + 1).
+ aStream space.
+ (spec anyMask: FFIFlagPointer) ifTrue:
+ [aStream nextPut: $*]!

Item was added:
+ ----- Method: ExternalType>>printStructureField:at:inClass:on:indent: (in category '*FFI-Tools-printing') -----
+ printStructureField: typeTuple at: initialSpecIndex inClass: structureClass on: aStream indent: indent
+ "Print the structure's field starting at initialSpecIndex and answer the index in compiledSpec of the subsequent type."
+ | typeName spec subStructureClass |
+ aStream tab: indent.
+ typeName := typeTuple first.
+ spec := compiledSpec at: initialSpecIndex.
+ (spec anyMask: FFIFlagAtomic) ifTrue:
+ [self printAtomicType: spec on: aStream.
+ aStream nextPutAll: (typeName ifNotNil: [typeName] ifNil: ['foo']).
+ ^initialSpecIndex + 1].
+ subStructureClass := self subStructureClassFor: typeName in: structureClass.
+ (spec bitClear: FFIStructSizeMask) = FFIFlagStructure ifTrue:
+ [| next |
+ next := initialSpecIndex + 1.
+ aStream
+ nextPutAll: subStructureClass compositeKindName;
+ nextPutAll: ' {'.
+ subStructureClass fields withIndexDo:
+ [:tuple :i|
+ aStream cr.
+ next := self printStructureField: tuple
+ at: next
+ inClass: subStructureClass
+ on: aStream
+ indent: indent + 1.
+ aStream nextPut: $;].
+ aStream crtab: indent; nextPut: $}.
+ typeName ifNotNil: [aStream space; nextPutAll: typeName].
+ self assert: (next - 1 = compiledSpec size or: [(compiledSpec at: next) = FFIFlagStructure]).
+ ^next <= compiledSpec size ifTrue: [next + 1] ifFalse: [next]].
+ self assert: (spec anyMask: FFIFlagPointer).
+ (subStructureClass isKindOf: ExternalUnion)
+ ifTrue: [aStream nextPutAll: 'union ']
+ ifFalse: [aStream nextPutAll: 'struct '].
+ aStream nextPutAll: subStructureClass name; nextPutAll: ' *'; nextPutAll: typeName.
+ ^initialSpecIndex + 1!

Item was added:
+ ----- Method: ExternalType>>printTypedefOn: (in category '*FFI-Tools-printing') -----
+ printTypedefOn: s
+ s nextPutAll: 'typedef '.
+ referentClass
+ ifNotNil:
+ [(compiledSpec first bitClear: FFIStructSizeMask) = FFIFlagStructure
+ ifTrue:
+ [| next |
+ next := 2.
+ s
+ nextPutAll: referentClass compositeKindName;
+ nextPutAll: ' {'.
+ referentClass fields withIndexDo:
+ [:tuple :i|
+ s cr.
+ next := self printStructureField: tuple
+ at: next
+ inClass: referentClass
+ on: s
+ indent: 1.
+ s nextPut: $;].
+ s cr; nextPutAll: '} '.
+ self assert: (next - 1 = compiledSpec size or: [(compiledSpec at: next) = FFIFlagStructure])]
+ ifFalse:
+ [self assert: (compiledSpec first bitClear: FFIStructSizeMask) = FFIFlagPointer.
+ s nextPutAll: referentClass name; nextPutAll: ' *foo'.
+ ^self]]
+ ifNil:
+ [self printAtomicType: compiledSpec first on: s].
+ s nextPutAll: (referentClass ifNotNil: [referentClass name] ifNil: ['foo'])!

Item was added:
+ ----- Method: ExternalType>>typedef (in category '*FFI-Tools-printing') -----
+ typedef
+ ^String streamContents: [:s| self printTypedefOn: s]!