FFI: FFI-Kernel-mt.111.mcz

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

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

Name: FFI-Kernel-mt.111
Author: mt
Time: 17 June 2020, 7:56:43.540384 pm
UUID: 4421e4eb-4ac9-5f4b-9fcc-64c57a034587
Ancestors: FFI-Kernel-mt.110

Adds a simple interface to use ExternalData as representative of an external global/shared variable.

(We could add an extra subclass to make it more clear. Like ExternalTypeAlias.)

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

Item was added:
+ ----- Method: ExternalData>>value (in category 'accessing - external globals') -----
+ value
+ "For convenience. Assume that the external data is just one global variable. Answer the value of that global variable."
+
+ ^ self at: 1!

Item was added:
+ ----- Method: ExternalData>>value: (in category 'accessing - external globals') -----
+ value: aValue
+ "For convenience. Assume that the external data is just one global variable. Set the value of that global variable."
+
+ self at: 1 put: aValue.!

Item was changed:
  ----- Method: ExternalType class>>c_ulong (in category 'type constants - extra') -----
  c_ulong
  "Try to approximate a fitting type for 'usigned long' in a C interface. See comment in #c_long."
 
+ ^ self c_long asUnsigned!
- ^ self typeNamed: 'u', self c_long atomicTypeName!

Item was added:
+ ----- Method: ExternalType>>asSigned (in category 'converting') -----
+ asSigned
+
+ self isSigned ifTrue: [^ self].
+ ^ AtomicTypes at: (AtomicTypeNames at: self atomicType + 1)!

Item was added:
+ ----- Method: ExternalType>>asUnsigned (in category 'converting') -----
+ asUnsigned
+
+ self isUnsigned ifTrue: [^ self].
+ ^ AtomicTypes at: (AtomicTypeNames at: self atomicType - 1)!

Item was added:
+ ----- Method: ExternalType>>checkIntegerType (in category 'private') -----
+ checkIntegerType
+
+ self isIntegerType
+ ifFalse: [self error: 'Test is only defined on integer types!!'].!

Item was changed:
  ----- Method: ExternalType>>isIntegerType (in category 'testing') -----
  isIntegerType
  "Return true if the receiver is a built-in integer type"
  | type |
  type := self atomicType.
+ ^type > FFITypeBool and:[type <= FFITypeSignedChar]!
- ^type > FFITypeBool and:[type <= FFITypeUnsignedLongLong]!

Item was changed:
  ----- Method: ExternalType>>isSigned (in category 'testing') -----
  isSigned
+ "Return true if the receiver is a signed integer type."
+
+ self checkIntegerType.
- "Return true if the receiver is a signed type.
- Note: Only useful for integer types."
  ^self atomicType anyMask: 1!

Item was changed:
  ----- Method: ExternalType>>isUnsigned (in category 'testing') -----
  isUnsigned
+ "Return true if the receiver is an unsigned integer type."
+
+ self checkIntegerType.
- "Return true if the receiver is an unsigned type.
- Note: Only useful for integer types."
  ^self isSigned not!