Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.119.mcz
==================== Summary ====================
Name: FFI-Kernel-mt.119 Author: mt Time: 28 July 2020, 1:34:03.494011 pm UUID: ad1bfdeb-3a7f-bb49-a61d-199918835891 Ancestors: FFI-Kernel-nice.118
Adds parser hook for callback pragmas. Simplifies loading of FFI-Callback.
=============== Diff against FFI-Kernel-nice.118 ===============
Item was added: + ----- Method: Parser>>callback (in category '*FFI-Kernel') ----- + 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!