FFI: FFI-Kernel-mt.83.mcz

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

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

Name: FFI-Kernel-mt.83
Author: mt
Time: 1 June 2020, 10:07:38.001523 am
UUID: 6a3601c2-a649-2a4e-a6ad-ddba52738605
Ancestors: FFI-Kernel-mt.82

Moves C code generation for typedefs to FFI-Tools package.

=============== Diff against FFI-Kernel-mt.82 ===============

Item was removed:
- ----- Method: ExternalType>>printAtomicType:on: (in category '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 removed:
- ----- Method: ExternalType>>printStructureField:at:inClass:on:indent: (in category '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 removed:
- ----- Method: ExternalType>>printTypedefOn: (in category '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 removed:
- ----- Method: ExternalType>>typedef (in category 'printing') -----
- typedef
- ^String streamContents: [:s| self printTypedefOn: s]!