FFI: FFI-Tools-mt.20.mcz

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

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

Name: FFI-Tools-mt.20
Author: mt
Time: 28 July 2020, 1:34:28.035011 pm
UUID: f78c718c-8d1c-e141-a601-7e9bcf6d3978
Ancestors: FFI-Tools-mt.19

Adds parser hook for callback pragmas. Simplifies loading of FFI-Callback.

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

Item was added:
+ ----- Method: SHParserST80>>callback (in category '*FFI-Tools') -----
+ 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!