core-foundation.fsevents: use CALLBACK: type to define master-event-source-callback
parent
1a0fda2a5b
commit
347003eb64
|
@ -36,7 +36,6 @@ STRUCT: FSEventStreamContext
|
|||
{ release void* }
|
||||
{ copyDescription void* } ;
|
||||
|
||||
! callback(
|
||||
CALLBACK: void FSEventStreamCallback ( FSEventStreamRef streamRef, void* clientCallBackInfo, size_t numEvents, void* eventPaths, FSEventStreamEventFlags* eventFlags, FSEventStreamEventId* eventIds ) ;
|
||||
|
||||
CONSTANT: FSEventStreamEventIdSinceNow HEX: FFFFFFFFFFFFFFFF
|
||||
|
@ -173,16 +172,7 @@ SYMBOL: event-stream-callbacks
|
|||
info event-stream-callbacks get at [ drop ] or call( changes -- ) ;
|
||||
|
||||
: master-event-source-callback ( -- alien )
|
||||
"void"
|
||||
{
|
||||
"FSEventStreamRef"
|
||||
"void*" ! info
|
||||
"size_t" ! numEvents
|
||||
"void*" ! eventPaths
|
||||
"FSEventStreamEventFlags*"
|
||||
"FSEventStreamEventId*"
|
||||
}
|
||||
"cdecl" [ (master-event-source-callback) ] alien-callback ;
|
||||
[ (master-event-source-callback) ] FSEventStreamCallback ;
|
||||
|
||||
TUPLE: event-stream < disposable info handle ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue