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

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

Name: FFI-Tools-mt.15
Author: mt
Time: 11 June 2020, 11:13:29.847059 am
UUID: ae1bb806-a075-a541-8e78-a93421394155
Ancestors: FFI-Tools-mt.14

Simplify support for C-string interpretation.

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

Item was changed:
  ----- Method: ExternalData>>explorerContentsStructFields (in category '*FFI-Tools') -----
  explorerContentsStructFields
+ 	"In case some data interpretation omitted to convert char*, which is a (null-terminated) C string, to Smalltalk string."
+ 	
+ 	^ (self isNull not and: [type = ExternalType string]) ifFalse: [#()] ifTrue: [	
- 
- 	^ (self isNull not and: [self mightBeCString]) ifFalse: [#()] ifTrue: [	
  		{ObjectExplorerWrapper
+ 			with: self fromCString
- 			with: self fromCStringLimited
  			name: 'as C string'
  			model: self}]!

Item was removed:
- ----- Method: ExternalData>>fromCStringLimited (in category '*FFI-Tools') -----
- fromCStringLimited
- 	
- 	^ self fromCStringLimitedTo: 50!

Item was removed:
- ----- Method: ExternalData>>fromCStringLimitedTo: (in category '*FFI-Tools') -----
- fromCStringLimitedTo: limit
- 	"Limit the number of characters to fetch in case this is no C string."
- 
- 	| stream index char |
- 	type isPointerType ifFalse: [self error: 'External object is not a pointer type.'].
- 	stream := WriteStream on: String new.
- 	index := 1.
- 	[index > limit or: [(char := handle unsignedCharAt: index) = 0 asCharacter]] whileFalse: [
- 		stream nextPut: char.
- 		index := index + 1].
- 	^stream contents!

Item was changed:
  ----- Method: ExternalData>>hasContentsInExplorer (in category '*FFI-Tools') -----
  hasContentsInExplorer
  
  	^ super hasContentsInExplorer
+ 		or: [self isNull not and: [type = ExternalType string]]!
- 		or: [self isNull not and: [self mightBeCString]]!

Item was removed:
- ----- Method: ExternalData>>mightBeCString (in category '*FFI-Tools') -----
- mightBeCString
- 
- 	^ type isPointerType
- 		and: [(type instVarNamed: #referencedType) = ExternalType char]!