FFI: FFI-Callbacks-mt.3.mcz

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

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

Name: FFI-Callbacks-mt.3
Author: mt
Time: 28 July 2020, 1:37:14.847011 pm
UUID: 9d6c3731-a9c3-2742-a9bb-d47d40a156d2
Ancestors: FFI-Callbacks-mt.2

Updates for FFI-Kernel-mt.119. You may need to re-generate the fields in FFICallbackContext and FFICallbackResult.

=============== Diff against FFI-Callbacks-mt.2 ===============

Item was changed:
  ----- Method: ExternalAddress class>>fromInteger: (in category '*FFI-Callbacks') -----
  fromInteger: anInteger
  "Read the given interger as an address pointing to an external memory area."
 
  | buffer type |
+ self flag: #refactor. "Maybe: ExternalAddress new fromInteger: anInteger --- and maybe move to FFI-Kernel"
  type := ExternalType uintptr_t.
  buffer := ByteArray new: type byteSize.
  type handle: buffer at: 1 put: anInteger.
  ^ buffer asExternalPointer!

Item was removed:
- ----- Method: FFICallbackContext>>floatRegArgs (in category 'accessing') -----
- floatRegArgs
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- ^ExternalData fromHandle: (handle shortPointerAt: 13) type: ExternalType double asPointerType!

Item was removed:
- ----- Method: FFICallbackContext>>floatRegArgs: (in category 'accessing') -----
- floatRegArgs: someExternalData
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- handle shortPointerAt: 13 put: someExternalData getHandle.!

Item was removed:
- ----- Method: FFICallbackContext>>intRegArgs (in category 'accessing') -----
- intRegArgs
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- ^ExternalData fromHandle: (handle shortPointerAt: 9) type: ExternalType long asPointerType!

Item was removed:
- ----- Method: FFICallbackContext>>intRegArgs: (in category 'accessing') -----
- intRegArgs: someExternalData
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- handle shortPointerAt: 9 put: someExternalData getHandle.!

Item was removed:
- ----- Method: FFICallbackContext>>rvs (in category 'accessing') -----
- rvs
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- ^FFICallbackResult fromHandle: (handle structAt: 25 length: 8)!

Item was removed:
- ----- Method: FFICallbackContext>>rvs: (in category 'accessing') -----
- rvs: aFFICallbackResult
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- handle structAt: 25 put: aFFICallbackResult getHandle length: 8.!

Item was removed:
- ----- Method: FFICallbackContext>>stackPtr (in category 'accessing') -----
- stackPtr
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- ^ExternalData fromHandle: (handle shortPointerAt: 5) type: ExternalType long asPointerType!

Item was removed:
- ----- Method: FFICallbackContext>>stackPtr: (in category 'accessing') -----
- stackPtr: someExternalData
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- handle shortPointerAt: 5 put: someExternalData getHandle.!

Item was removed:
- ----- Method: FFICallbackContext>>thunkp (in category 'accessing') -----
- thunkp
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- ^ExternalData fromHandle: (handle shortPointerAt: 1) type: ExternalType void asPointerType!

Item was removed:
- ----- Method: FFICallbackContext>>thunkp: (in category 'accessing') -----
- thunkp: someExternalData
- "This method was automatically generated. See FFICallbackContext class>>fields."
- <generated>
- handle shortPointerAt: 1 put: someExternalData getHandle.!

Item was changed:
  ----- Method: FFICallbackMemory class>>unload (in category 'class initialization') -----
  unload
 
+ Smalltalk removeFromStartUpList: self.
+ Smalltalk specialObjectsArray at: 53 put: nil.!
- Smalltalk removeFromStartUpList: self.!

Item was changed:
  ----- Method: FFICallbackMemory>>externalPointer: (in category 'accessing') -----
  externalPointer: anExternalAddress
 
+ self addressFieldPut: anExternalAddress asInteger.!
- | type integer |
- self flag: #debugging.
- type := ExternalType uintptr_t.
- integer := type
- handle: anExternalAddress asByteArrayPointer
- at: 1.
-
- self addressFieldPut: integer.!

Item was removed:
- ----- Method: FFICallbackResult>>booleanResult (in category 'accessing') -----
- booleanResult
- "This method was automatically generated. See FFICallbackResult class>>fields."
- <generated>
- ^handle booleanAt: 1!

Item was removed:
- ----- Method: FFICallbackResult>>booleanResult: (in category 'accessing') -----
- booleanResult: aBoolean
- "This method was automatically generated. See FFICallbackResult class>>fields."
- <generated>
- handle booleanAt: 1 put: aBoolean!

Item was removed:
- ----- Method: FFICallbackResult>>floatResult (in category 'accessing') -----
- floatResult
- "This method was automatically generated. See FFICallbackResult class>>fields."
- <generated>
- ^handle doubleAt: 1!

Item was removed:
- ----- Method: FFICallbackResult>>floatResult: (in category 'accessing') -----
- floatResult: aFloat
- "This method was automatically generated. See FFICallbackResult class>>fields."
- <generated>
- handle doubleAt: 1 put: aFloat!

Item was removed:
- ----- Method: FFICallbackResult>>integerResult (in category 'accessing') -----
- integerResult
- "This method was automatically generated. See FFICallbackResult class>>fields."
- <generated>
- ^handle signedLongAt: 1!

Item was removed:
- ----- Method: FFICallbackResult>>integerResult: (in category 'accessing') -----
- integerResult: anInteger
- "This method was automatically generated. See FFICallbackResult class>>fields."
- <generated>
- handle signedLongAt: 1 put: anInteger!

Item was removed:
- ----- Method: FFICallbackResult>>positiveIntegerResult (in category 'accessing') -----
- positiveIntegerResult
- "This method was automatically generated. See FFICallbackResult class>>fields."
- <generated>
- ^handle unsignedLongAt: 1!

Item was removed:
- ----- Method: FFICallbackResult>>positiveIntegerResult: (in category 'accessing') -----
- positiveIntegerResult: anInteger
- "This method was automatically generated. See FFICallbackResult class>>fields."
- <generated>
- handle unsignedLongAt: 1 put: anInteger!

Item was removed:
- ----- Method: Parser>>callback (in category '*FFI-Callbacks') -----
- callback
- <pragmaParser>
-
- | descriptorClass retType externalName args argType |
- descriptorClass := ExternalFunction.
- "Parse return type"
- self advance.
- here = 'const' ifTrue: [self advance].
- retType := self externalType: descriptorClass.
- retType == nil ifTrue:[^self expected:'return type'].
- "Parse function name or index"
- externalName := here.
-
- (self match: #leftParenthesis) ifFalse:[^self expected:'function pointer (*)'].
- (self matchToken: #*) ifFalse:[^self expected:'function pointer (*)'].
- (self match: #rightParenthesis) ifFalse:[^self expected:'function pointer (*)'].
-
- (self match: #leftParenthesis) ifFalse:[^self expected:'argument list'].
- args := WriteStream on: Array new.
- [self match: #rightParenthesis] whileFalse:[
- here = 'const' ifTrue: [self advance].
- here = ',' ifTrue: [self advance].
- argType := self externalType: descriptorClass.
- argType == nil ifTrue:[^self expected:'argument'].
- argType isVoid & argType isPointerType not ifFalse:[args nextPut: argType]].
-
- self addPragma: (Pragma keyword: #callback: arguments: {{retType}, args contents}).
- ^true!

Item was removed:
- ----- Method: SHParserST80>>callback (in category '*FFI-Callbacks') -----
- callback
- <pragmaParser>
-
- self scanPast: #externalFunctionCallingConvention.
-
- self scanPast: #externalCallType.
- currentToken = '*'
- ifTrue: [self scanPast: #externalCallTypePointerIndicator].
-
- currentTokenFirst == $( ifFalse: [^ self fail]. self scanNext.
- currentTokenFirst == $* ifFalse: [^ self fail]. self scanNext.
- currentTokenFirst == $) ifFalse: [^ self fail]. self scanNext.
-
- self failUnless: currentTokenFirst == $(.
- self scanPast: #leftParenthesis.
- [currentTokenFirst ~= $)]
- whileTrue: [
- self failUnless: currentToken notNil.
- self scanPast: #externalCallType.
- currentToken = '*'
- ifTrue: [self scanPast: #externalCallTypePointerIndicator]].
- self scanPast: #rightParenthesis.
- currentToken = 'module:'
- ifTrue: [
- self scanPast: #module.
- self parseStringOrSymbol ].
- currentToken = 'error:' ifTrue: [
- self scanPast: #primitive. "there's no rangeType for error"
- self currentTokenType == #name
- ifTrue: [ self parseTemporary: #patternTempVar ]
- ifFalse: [ self parseStringOrSymbol ] ].
- self failUnless: currentToken = '>'.
- self scanPast: #primitiveOrExternalCallEnd!